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D2465 GENERAL - INSTALLATION OF THE "III.l" SOFTWARE SYSTEM 

This note describes procedures for implementing the Mark III.l software system. It mentions 
certain operational procedures, and references some system notes describing major III.l 
features. Other major III.l features are described in the appendices to the D and P Notes. 
These system notes should be studied before implementation of III.l is attempted. 

The major change for III.l for most installations is the conversion of the MCP from the ESPOL 
language to a new ALGOL-based programming language named NEWP . Salient features of the NEWP 
language and information concerning the conversion of the MCP to NEWP may be found in the 
following notes: NEWP note D2804, "Implementation of NEWP" and MCP note P2288, "MCP Conversion 
to NEWP". In addition to the conversion to NEWP, the MCP has been reorganized into modules 
which group together logically related features, which is described in MCP note D2430, "MCP 
Restructuring". This reorganization has also required a complete resequenc i ng , 

Since NEWP's internal information table structures are different from those of the other 
ALGOL-based languages, it i s no longer possible to LOADINFO from the MCP. The major effect of 
this restriction is on the system intrinsics. Many of the intrinsics have been converted to 
other languages (e.g. ESPOL to DCALGOL) or have been absorbed into the MCP symbolic (e.g. 
SORT). Any local modifications to the system intrinsics must therefore be checked for the 
proper ianguge constructs and intrinsic symbolic location. 

A sample WFL job for compiling all system software items may be found in the System Software 
Operational Guide, Volume II (Form No. 5001688), Section 14. The changes for III.l software 
will be described in a revision to this manual. 

The III.l MCP, WFL, Controller, ALGOL, DCALGOL and NEWP are all compilable on the Mark 1(1.0 
level software. This allows compilation of the III.l software on III.O as the first phase of 
the bootstrapping process. Note that the MCP on the SYSTEM tape is usable "as is" if no 
modifications are required by the installation. If such modifications are required, they may 
be made and the resulting symbolic compiled on the III.O system. 

When the installation is ready to move to III.l, the CM command may be used to change to the 
new MCP. It is recommended that the mix be empty, as a loss of information about running jobs 
may occur if the "??CM" command is used with a non-empty mix. Following the CM, the III.l 
intrinsics should be loaded, and then any system software necessary to continue operation may 
be copied from the system tape. 

A number of new features have been added to the system. Careful review of the system notes 
will allow the installation to decide which features might be relevant to its operation, and 
will provide information as to the use of those features. 

Those installations planning to move system files off the halt-load pack (or disk) by use of 
the DISKLOCATION (DL) command should be aware that the III.O software is not sensitive to this 
command. If operational system files such as the job description, SUMLOG and BD files are 
moved from their normal locations to some other family, a loss of information could result if 
it is necessary to CM back to III.O. For this reason it may be better not to use the DL 
feature until the installation is satisfied with the stabilty of III.l and has decided that a 
CM to I II . i s unl ikely . 

Customers using the early ("TC") versions of the MCP to support * GLOBAL tm Memory systems 
should note the easing of several restrictions which were imposed by that MCP. In particular, 
the requirement that all exchangeable devices be exchanged to all processors has been removed. 
The restriction of SWAPPER to one local memory structure has also been removed. 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 

In order to improve operator communication with the MCP, many of the ODT input messages will be 
revised in future software releases. The revised messages have been incorporated in the III.l 
release without deleting the old message. This enables operators to make an orderly transition 
to the new syntax. It is recommended that installations study GENERAL mote D2535, "Revised ODT 
Messages", and begin using the new forms. In addition to the proposed revisions, new messages 
are documented in this note. desired. 

SWAPPER has been modified to provide more flexibility in the program structures which are 
supported. It may also be used in multiple local memory subsystems on B6800 multiprocessor 
systems. In addition to the flexibility of this implementation, a load-balancing algorithm has 
been incorporated to improve performance on B6800 multiprocessors. See GENERAL note D2906, 
"Changes in the SWAPPER Mechanism", for details of the new facilities. 

As was announced at Spring '79 CUBE, a new and more comprehensive printer control facility is 
planned for a future release. In conjunction with this program, the MCP option PRINTERLABELS 
has been removed along with the pertinent MCP code. 
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D25 3 5 GENERAL - REVISED "ODT" MESSAGES 

This system note documents changes to the ODT (Operator Display Terminal) messages. 

Primarily, the changes made now allow the standard mix-related messages to appear only in the 
fol lowi ng form: 

<mix number list> ODT MESSAGE. 

Previously, ODT MESSAGE <mix number lisl> has been also allowed. 

The first release of the B6800 Multiprocessor system and the III.l system release will allow 
either form; the III. 3 system release will allow only the syntax described herein. 

The following list shows the old and new mnemonics where applicable: 

Old New 



Auto Backup 

Clear Queued Messages 

Display System Intrinsics 

Initialize Da t acorn 

Dump Memory 

Prevent Schedule Jobs Entering Mix 

Make or Modify Queue 

Recon figure 

Transfer Log 

Di spl ay Mix Ent r i es 

Mix! i m i t 

Display Peripheral Status 

Display System Configuration 

Make User 

Suppresses Display of Active Job 

Reset Opt ions 

Remove Reader Security Restrictions 

Set Opt i ons 

Tape Directory 

Opt i ons 

Unit Res e r ved , Ava i 1 abl e 

Display Da t e 

Display System Intrinsics 

Display Time 

Force From Schedule Queue 

The following messages have been added or modified for the the first release of 
Multiprocessor system: 



AP 


AB 


BRK 


CQ 


CI 


SI 


DC 


ID 


DP 


DUMP 


EI 


HS 


EQ 


MQ 


IV 


RC 


LR 


TL 


M 


MX 


MI XL 


ML 


P 


PER 


PC 


SC 


PU 


MU 


RESTORE 


SUFPRESS- 


RO 


OP 


RR 


SR 


SO 


OP 


TD 


TDIR 


TO 


OP 


UA 


UR 


WD 


TD 


WI 


SI 


WT 


TD 


XS 


FS 



the B6800 



A 

ACQU 

CF 

CU 

DL 

FREE 

GC 

HN 

HU 

J 

LP 

ML 

MS 

MX 

NET 

PG 

PP 

RECONF 

RY 

S 

SN 

sv 
sw 

w 

WM 



Active Mix En t r i e s ) 

RE 

Configuration Fiie) 

Core Usage) 

Disk Loca t i on) 

Group Configuration) 

Hos t name ) 

Host User code) 

Job and Task Structure) 

Lock Program) 

Mi x 1 imi t ) 

Make Subsystem) 

Mix En t r i es ) 

Ne twork) 

Purge) 

Privileged Program) 

"IGURE 

Ready) 

Scheduled Mix Entries) 

Serial Number ) 

Save) 

Swappe r ) 

Waiting Mix Entries) 

What MCP) 



See GENERAL note D2861 for a description of "B6800 Multiprocessor Systems' 
D2867 for a description of "Soft Configuration of Global Memory Systems". 



see GENERAL note 



A (Active Mix Entries) Message 
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Revised Syntax: 



-/I\- ALL 



-/I\- SWAPPER 
-/1\- MCSNAME 



-<mc sname >- 



-/1\- IN <subsystem id> 

|- ( <processor id list> ) 



(processor id 1 i s t> 
< 

- GLOBAL 

- 1 

_ 2 

_ 3 

_ 4 



Revised Semantics: 

The A (Active Mix Entries) message lists all active jobs and tasks If ALL is used, any 
active jobs or tasks which have been suppressed by the SUPPRESS message are displayed in 
addition to unsuppressed tasks. 

When SWAPPER is specified, only jobs running in swapspace will be displayed. 

When MCSNAME is specified, only jobs that originated from the specified MCS will be 
di splayed . 

On a B6800 multiprocessor system, each displayed task is preceded by a subsystem indicator- 
processor id for a local memory task, "G" for a global memory task, or blank for a task 
whose subsystem location is currently unassigncd. 

When IN is specified, only jobs with stacks running in the subsystem identified or the 
processor identified will be displayed. 

A typical response to the A message is as follows: 

7 ACTIVE ENTRIES 

0232 JOB 80DCP/0 
0234 JOB 70SYSTEM/CANDE 
0243/0244 55 ESPOL JKL 
0254/0254 55#SEPCOMP JHOST2/HOST 
•0255x0256 55 ALGOL KAP 

The lower case "x" between the job and task number in the last entry of the example 
indicates that the job is under control of an MCS. Swap jobs are flagged with an "#" 
between the priority number and the file name. The number in the active entry heading 
(7) is the total number of active entries including suppressed entries. 

New Exampl e : 

A ALL MCSNAME=SYSTEM/CANDE 



IvoTc2 e £ Sa &E W ' " dis P la y a " active jobs (including suppressed) that originated from 
SYSTEM/CANDE . 

New Example: (B6800 Mu 1 t i -Proces sor System): 

A SW IN(J) 
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This message will display all active jobs (excluding suppressed) whose stacks are 
running in swapspace in processor 3. 

AB (Auto Backup) Message 



AB replaces tht AP (Auto Backup) Messagi 
Syn tax: 

— AB j 

I -<number> 

I ! 

I - cp 

I 

|_ LP 

CP <number>- 



i 



I ! 



I- LP -| 



Seman tics: 

The AB (Auto Backup) message sets the maximum number of ABed line printers and/or card 
punches. This number is set to zero at Halt/Load time if the MCP option AUTORECOVERY is 
reset. When AUTOBACKUP is looking for a line printer or card punch to use for automatic 
output of backup files, it begins looking for on-line ABed units. If AUTOBACKUP cannot 
find any ABed units, it tries any on-line line printer or card punch. 

This message may appear simply as AB, in which case the system responds by displaying the 
current number of line printers and card punches available to AUTOBACKUP. 

Ex amp 1 e : 

AB 



AB MAX=2; CP MAX=1; AB-ED LPS=0; AB-ED CPS=0 

When a number immediately follows the AB, that number is used as the maximum 
copies of AUTOPRINT allowed. 

Ex amp I e : 

AB 3 



number of 



AB MAX=3; CP MAX= 1 ; AB-ED LPS=0 ; AB-ED CPS=0 

When a number and device immediately follow the AB, that number is 
number of copies of AUTOPRINT allowed on that device. 

Examp 1 e : 

AB 3 LP 



used as the maximum 



AB MAX=3; CP MAX=0; AB-ED LPS=1; AB-ED CPS=0 

When a device and unit number immediately follow the AB, the 
ABed. 

Examp 1 e : 

AB LP 12 



indicated output device i: 



The number of devices assigned may exceed the number of allowed copies of AUTOBACKUP. 
following sequence of AB messages allows one AUTOBACKUP printing on LP 5. 

Examp 1 e : 

AB 

AB LP 5 



The 
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AUTOBACKUP may be disabled on the indicated device by preceding the specified device with • 
Hyphen. When such a message references a device upon which output is currently being 
generated, this activity ; ?, allowed to proceed to a normal termination before the device is 
disabled. 

Examp 1 e : 

AB-CP 13 



When use of AB results in al! line printers and card punches being freed of the ABed status 
and AB is set to 0, the queue of d i s k/d i skpack backup yet to be printed is forgotten. This 
A.°TxA«A^,m ,/ e 2 CtUal backu P f'les, except they are not printed automatically by 
AUIOBACKUP If subsequently any LP is given AB status or AB is set to a non-zero number, 
all disk and native mode diskpacks will be searched for backup files which are enqueued for 
printing. A similar situation holds for card punch. 

Backup files introduced by Library Maintenance (i.e., COPY, COPY&COMPARE and ADD) from tape 
are picked up by this rebuilding of the queues and will be printed in turn. 

Examp 1 e : 

COPY BD/00003 6 5/00003 66/000TASKFILE 
COPY BP/0000367/000O3 68/OO0TASKFILE 

Backup files of this form will be picked up. 

COPY BD/0000365/0000366/OOOTASKFILE AS JEV/TASKFILE 

Backup files of this form will not be picked up. 

ACQUIRE Message 



Syntax : 

-- ACQUIRE 



- MOD <mod range> 

- MODS -j 

- PROC — <node id> 

-<unit type> — <unit number>-| 



S e in a n t i c s : 

Existing groups can be altered by the FREE and ACQUIRE messages. The ACQUIRE message 
a. lows an active group to acquire additional resources. Devices "acquired" will be 
displayed as saved units. Disk packs will also be closed. The "new" devices must be RYed 
betore they can be used. 

Examp 1 e : 

PER MT 



MT STATUS 

8 1*P [HALL ] 1600 #1 1.0 MEMORY/DUMP [2,11 
NOT AVAILABLE TO GROUP 



82 



ACQUIRE MT 8 2 

MT82 WILL BE ACQUIRED 
RY MT 82 



PER MT 



MT STATUS 



8 1*P [HALL ] 1600 #1 1:0 MEMORY/DUMP [2,1] 
82*P [MIKE ] 1600 SCRATCH [2;i] 



AD (Access Duplicate) Message 



B7700/B6700 MARK 3.1 RELEASE 2 1 AUGUST 1979 GENERAL 



PAGE 6 
MARK 3 . 1 

Rev i sed Syn t ax : 

-- AD < f ami 1 ynamo — ( — < f ami 1 y i nde;. •>-- ) — | 

l_ I 

I i 
|- ON -| 

Setnan tics: 

The AD (Access Duplicate) message causes the access structure (SYSTEM/ ACCESS or 
SYSTEM/CATALOG) to be duplicated. The duplicate structure has the family index number 
appended; e.g., SYSTEM/ACCESS/002 or SYSTEM/CATALOG/ 00 3 . The family index represents a 
member of the Catalog or Access family. 

Examp 1 e : 

AD 2 

*608 JOB 80 COPYDIR 

AD- causes the referenced access structure to no longer be considered a duplicate. The 
actual file is not removed. 

Examp 1 e . 

AD- 2 



SYSTEM/ACCESS/002 REMOVED 

ADM (Automatic Display Mode) Message 

ADM has been revised, as follows: 

MIX has been changed to MX. 

Revisions made to the following messages have been applied to ADM also: 

A (Active Mix Entries) 

J (Job and Task Structure Display) 

ML (Mi xl imi t ) 

MX (Mix Entries) 

S (Scheduled Mix Entries) 

W (Waiting Mix Entries) 

See the description of the individual messages for details. 

Syn tax: 

Unchanged 
Seman tics: 

Unchanged 
Examp 1 e : 

Unchanged 

AP (Auto Backup) 

AP has been eliminated: see AB (Auto Backup) for new message. 
AX (Accept) Message 



Re vised Syntax: 

— <mi x number 1 i s t > — AX — <text> — | 
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Seman tics: 

Unchanged 
Examp I e : 

Unchanged 

BRK (Break) Message 

BRK has been eliminated; see CQ (Clear Queue) for new message. 
CF (Configuration File) 



PAUE 



Syntax: 

— CF - 



I- + 



; f i 1 e n 



e name>- 



Seman tics: 

The CF message is used to designate or display the title of the current configuration file. 
CF with no options displays the title of the cutrent configuration file. 
CF+ selects SYSTEM/CONFIGURATION, the default, as the configuration file. 
CF- removes the designation of the configuration file. 
CF < f i 1 e name> selects the named file as the configuration file. 
Examp 1 e : 
CF 

CONFIGURATION FILE: (EVANS )SYSTEM/GMMCONFIG/022079 
CF + 

SYSTEM/CONFIGURATION IS THE CONFIG. FILE 
CF XYZ 

XYZ IS THE CONFIG. FILE 

CI (Change Intrinsics) Message 

CI has been eliminated; see SI (System Intrinsics) for new message. 

CQ (Clear Queue) Message 

Syntax : 
— CQ —I 

Seman tics: 

The CQ (Clear Queue) message clears system messages queued for the terminal. 
A typical response to the CQ message is the following: 
MESSAGES FLUSHED 
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CS (Change Supervisor) Message 

CS incorporates the WS (What Supervisor) message. 
Revised Syn tax: 

— CS j 

i i 

|_ - | 

I 

| — < f i 1 e title> — ON — < f ami 1 yname>- | 

Seman tics: 

The CS (Change Supervisor) message displays, cancels or designates as 
program a code disk file specified by a file title, as follows: 



supe r v l sor 



CS 
CS- 
CS <file title> 



Displays the current supervisor 
Cancels the current supervisor 
Designates the supervisor 



The file must be present when CS is executed. 

At Halt/Load time, the supervisor program is automatically entered into the mix. If the 
run-time system option DUPSUPERV I SOR is set, the MCP will attempt to execute a code file 
<file t i t le>/FMLYINX<nnn>, where <nnn> is the family index. If DUPSUPERVISOR is reset, the 
MCP will attempt to execute the designated supervisor program. 

Examp 1 e : 

CS 

SUPERVISOR: SYSTEM/SUPERVISOR 
CS- 

SUPERVISOR: NOT SPECIFIED 
CS SUPPRESS/MIX/NOS 



SUPERVISOR: SUPRESS/MIX/NOS 
CU (Core Usage) Message 

Revised Syntax: 

cu __i 



|-<mix number list>-i 



Seman tics: 

Unchanged 

New Examp I e : 

The resulting display for a B6800 multiprocessor system will depend upon the number of 
local processors comprising the system. A 2-processor system could produce the 
f o 1 1 owi ng : 



CORE USAGE AT 

GLOBAL MEMORY 

AVAILABLE 

NON SAVE 

SAVE 

TOTAL 



10:21 :04 

255028 

105882 

32306 

393216 



LOCAL MEMORY 
AVA I LABLE 
NON SAVE 
SAVE 
TOTAL 



1 1 1967 

301632 

98401 

512000 



LOCAL MEMORY 2 

AVAILABLE 3 1843 

NON SAVE 357335 

SAVE 12 2 8 2 2 

TOTAL 5 12000 



SYSTEM TOTAL 

AVAILABLE 398838 

NON SAVE 764849 

SAVE 253529 

TOTAL 1417 2 16 
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As the number of processors increase, the number of loc 
increase. 



PAGE 9 
al memory statistic blocks will 



F !? r a ^-? ?le ? 6 ? 00 with global memory, the display will be of just the local memory with 
one additional line giving the total of the shared (global) memory available. 

DC (Da t acorn Initiation) Message 

DC has been eliminated; see ID (Initialize Datacom) for new messages. 
DD (Directory Duplicate) Message 



Rev i sed Syn t ax : 

— DD 



I II I 
j | |- ON -| 



-<fami lyname> — ( — < f ami 1 y i ndex> — ) 



Seman tics: 

Unchanged 
New Examp 1 e : 

DD TIOMASTER 2 



-ACTIVE ENTR1ES- 



•9303 JOB 80 COPYDIR 

DL (Di sk locat ion) Message 

Syntax: 

DL 



DISKLOCATION -| 



I 

|- BACKUP 

I 

I- USERDATA 

I- OVERLAY — ( (processor id list> ) 

|- JOBS 

|- CATALOG 

I 

|- LOG — <f ami 1 yname> • 



ON — < f ami 1 yname>- 



<processor id 1 i s t > 
l< I 



I l<- . -I 

I 



! I 



- GLOBAL 
_ l 

_ 2 

- 3 

_ 4 
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Seman tics: 

The DL (Disklocat ion) message specifies that system files reside on families other than the 
Ha 1 t /Load f ami 1 y . 

The simple form of "DL" is used to interrogate the current settings of the various "DL" 
f ami lies. 

A typical response to the DL message is as follows: 

DISK LOCATION: 
CATALOG ON DISK 
JOBS ON DISK 
USERDATA ON DISK 
BACKUP ON BKPACK 
LOG ON DISK 
OVERLAY ON DISK 

The DL OVERLAY specification allows the user to direct system OVERLAY file allocation (and 
the consequent overlaying I/O activity) to any desired family. For a B6800 Multiprocessor 
System, each processor has its own DL OVERLAY specification to ensure direct I/O access to 
the memory being overlayed. Different local processors may not be able to access directly 
the same disk-type devices. 

The <proccssor id list> specification for an OVERLAY family is meaningful only for a B6800 
Multiprocessor System, and is rejected on ODT inputs to a monolithic system. 

The presence of each pertinent DL OVERLAY family is checked at system initialization «i me - 
and whenever an ODT input attempts to change a specification. (This "presence" check 
includes a test for proper I/O visibility on a B6800 Multiprocessor System.) If a family is 
not present, an RSVP wait allows the user the following options: 

1. Mount the family baseunit and "OK" the RSVP wait. 

2 "OF" or "DS" the RSVP wait to disassociate DL OVERLAY from the missing family. (At 
initialization time, the unsatisfied DL OVERLAY specification defaults to the <Halt/Load 
familyname>; on a B6800 Multiprocessor System, the default for a local processor is the 
<Halt/Load familyname> for that processor. If the wait arose from an ODT input, the 
previous family specification for the DL OVERLAY case in question is retained.) 

Whenever a DL OVERLAY specification is changed, the MCP overlay file for the system 
(monolithic) or processor (multiprocessor) is immediately moved during the new family. 
This file is also moved at system initialization if a DL OVERLAY specification is other 
than the corresponding <Halt/Load f ami 1 yname> ; other overlay files, however, once allocated 
on a given family, are never moved. Thus, changing a DL OVERLAY family while the system is 
running affects only the allocation of new overlay files. 

Examp 1 e : 

DL OVERLAY MYPACK 



<job#> OVERLAY SET TO MYPACK 

The DL BACKUP specification, and a corresonding extension to the "SB" ODT message, allow a 
site to direct its PRINTER and PUNCH BACKUP files to any desired family. The "SB 
extension recognizes "DLBACKUP" as a valid substitute backup specification. 

A new task attribute, "BACKUPFAMILY" , has been implemented; it may be set only by the MCP 
or an MCS . Specifying DLBACKUP as a substitute backup medium causes the BACKUPFAMILY in 
the TASK (if valid, otherwise the current DL BACKUP family specification) to be the family 
on which printer and punch backup files are opened. The DL BACKUP familyname is stored 
into the BACKUPFAMILY of the job stack when the job is initiated; task attribute 
inheritance propagates this BACKUPFAMILY to all stacks initiated under the job. CANDE 
stores the DL BACKUP familyname at log-on time, and propagates it to all tasks begun under 
the session. Thus, all backup files for a job/session normally go to a single family, even 
if the DL BACKUP family is changed during a job or CANDE session. (This, of course, need 
not be true if SB specifications were changed during the job/session, and is not true for 
backup files explicitly directed elsewhere.) 

The presence of the specified DL BACKUP family is checked at system initialization time, 
and whenever an attempt is made to change it via an ODT input. If the family is not 
present, an RSVP wait allows the user the following options: 

1. Mount the family baseunit and "OK" the RSVP wait. 

2. "OF" the RSVP wait to keep the missing family as the DL BACKUP specification. 

3. "DS" the RSVP wait to disassociate DL BACKUP from the missing family. (At 
initialization time the DL BACKUP specification defaults to the <Halt/Load familyname>; 
DSing a wait resulting from an ODT input causes the previous DL BACKUP family 
specification to be retained.) 
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The CANDE commands BACK and BDREMOVE automatically find files on DISK, PACK and the 
session's BACKUPFAMILY. 

Ex amp 1 e : 

DL BACKUP MYPACK 



<job#> DL BACKUP FAMILY SET TO: MYPACK 

The DL JOBS specification allows the operator to specify the family on which JOBDESC is 
located. No JOBDESC file is actually be moved to that family, but all Halt/Loads 
subsequent to the specification will search for the family. If it is not present, the 
operator may IL the search to another family (this updates DL to the ILed family) or OF the 
search (this causes JOBS DL to default to the Halt/Load family). 

Ex amp 1 e : 

DL JOBS ON MYPACK 

DISKLOCATION FOR JOBS WILL BE CHANGED 

The DL CATALOG specifications allows the operator to specify the catalog family. It works 
in the same fashion as JOBS. 

Ex amp 1 e : 

DL CATALOG ON MYPACK 

DISKLOCATION FOR CATALOG WILL BE CHANGED 

The DL LOG specification allows a site to have its SYSTEM/SUMLOG file maintained on any 
desired family. Efficiency considerations suggest that the DL LOG family chosen for a 
B68CI0 Multiprocessor System be directly visible to each local processor, but this need not 
be the case. SYSTEM/LOGANALYZER has been changed to search the DL LOG family for any log 
file whose location has not been explicitly specified. 

During system initialization, the specified DL LOG family must be present or the DL LOG 
specification defaults to the <Halt/Load f ami lyname> as a non-IAD file. 

When an attempt is made to change the DL LOG specification via an ODT input, an RSVP wait 
occurs if the newly specified family is not present and the user has the following options: 

1. Make the family baseunit available and "OK" the RSVP wait. 

2. "OF" or "DS" the RSVP wait to discard the requested change and maintain the previous DL 
LOG specification. 

Assuming any required family is present, MCP action when changing the DL LOG specification 

is as fol lows : 

1. A Log Release ("LR") is done on the SYSTEM/SUMLOG on the old DL LOG family. 

2. If a valid SYSTEM/SUMLOG file already exists on the new DL LOG family, it is continued- 
otherwise, a new SYSTEM/SUMLOG is opened. 

Ex amp 1 e : 

DL LOG MYPACK 



<job#> SUMLOG IS ON MYPACK 

The DL USERDATA specification, along with a corresponding change to SYSTEM/MAKEUSER , allows 
a site to maintain its SYSTEM/USERDATAFILE on any desired family. 

An attempt to change the DL USERDATA family via an ODT input succeeds provided there was no 
SYSTEM/USERDATAFILE on the old DL USERDATA family (or the old family was not present) If 
a SYSTEM/USERDATAFILE does exist, MCP action is as follows: 

1. The presence of the new DL USERDATA family is verified; if it is not present, the user 
may "OF" or "DS" the resulting RSVP wait to abort the change and retain the previous DL 
USERDATA specification. 

2. A check is made to determine whether a SYSTEM/USERDATAFILE already exists on the new 
family; if it does, an RSVP wait allows the user the following options: 

a. "DS" the RSVP wait to abort the DL USERDATA change, or 

b. "RM" the RSVP wait to remove the file, or 

c. dispose of the file in some other way, and "OK" the wait. 

3. The current SYSTEM/USERDATAFILE is copied to the new USERDATA family; the 
SYSTEM/USERDATAFILE on the old family is renamed "USERDATAFILE/<dat e-t ime> " . (Should 
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the copy fail, the DL USERDATA change is aborted.) 

If there is no SYSTEM/USERDATAFILE on the USERDATA family, or that family is not present, 
and a non- i n t erac t i ve request is made for userdata information, MCP action is as follows: 

1. If there is no family, a "REQUIRES PK" RSVP message is displayed, with OK, DS or OF 
options. OK causes repeated demand for the family; DS terminates the requestor; OF 
causes the code to proceed without the family. 

2. If the family is present but has no SYSTEM/USERDATAFILE, or if "REQUIRES PK" message was 
answered "OF", a "NO FILE" RSVP message is displayed. If the "IL" option is used, the 
USERDATA DL family is set to the familyname of the resulting unit. 

Ex amp 1 e : 

DL USERDATA MYPACK 



SYSTEM/USERDATAFILE WAS MOVED TO MYPACK 
DUMP (Dump Memory) Message 



DUMP replaces the DP (Dump Memory) Message. 

Revi sed Syntax : 

DUMP 

•<nonnumeric text> 

- " <text> " 

-<mix number list> — DUMP 



I 

| -<opt ion 1 i s t >- 



<opt ion 1 i s t > 



l<- 



I I 



- ALL 

- NONE 

- FAULT 

- DSED 

- BASE 

- ARRAYS 

- CODE 

- FILES 

- DBS 

- PORTS 

- LIBRARIES 

- PRIVATELIBRARIES 

- SIBS 



Seman t i c s : 

The DUMP (Dump Memory) message may be used to dump the entire contents of memory to tape or 
invoke a program dump on a particular program. 

When text appears following the DUMP, that string appears in the memory dump tape as the 
reason for the dump. 
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Options may be used on a program dump as follows: 

* The options appearing in the list will be ORed with any compiled-in options and 

the net result used to control the program dump. 

ALL Dump all items in the stack and also list code segments. 

NONE Use the default dump options. 



FAULT 



A program dump will occur if a fault occurred in the program (divide by zero, 
segment array, etc.). A program dump is not invoked at the time the message is 
entered. 



DSED A program dump will occur if the program is DSed. A program dump is not 
invoked at the time the message is entered. 

BASE Dump the base of the stack which is used by the operating system. 

ARRAYS Dump all present arrays. 

CODE Dump all code segments. 

FILES Dump all areas used by files. 

DBS Dump SIB and data base stack. 

PORTS Dumps ports and signals. 

LIBRARIES Dumps library stack. 

PRIVATELIBRARIES 

Dumps only Private Library stacks. 

SIBS Dumps only SIB. 

Exampl e : 

3132 DUMP ALL 



DP (Dump) Message 

DP has been eliminated; see DUMP (Dump Memory) for new message. 

DR (Date Reset) Message 

Revised Syntax: 

— DR — <mm> — / — <dd> — / — <yy> — | 

Revised Semantics: 

The DR (Date Reset) message may be used to change the date currently in use by the MCP . 
The desired date is specified by <mm> , <dd>, and <yy>, which are one- to two-digit numeric 
indications of the month, date, and year, respectively. 

The delimiter must be a slash ("/"). 

New Exampl e : 

DR 04/22/75 



DATE IS TUESDAY APR 22, 1975 (75112) 
(75112) indicates that the year is 1975 and the date is day 112. 

DS (Discontinue) Message 

Rev i sed Syntax : 

— <mix number list > — DS | 

I I 

|-<option 1 i s t > — j 
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— ALL 

|- NONE 

| - FAULT 

- DSED 

i - BASE 

i 

! - ARRAYS — 

I- CODE 

I 

j- FILES 

j- DBS 

I 

i- PORTS 

I- LIBRARIES 



i I 



I 

|- SIBS 



PRIVATELIBRARIES 



Revised Semantics: 

With the DS (Discontinue) message, all programs associated with the given mix numbers are 
terminated or removed from the mix schedule or scheduling queue. 

If the program has been initiated and options appear in the DS message, these options will 
be used to control a program dump taken at the time of termination. 

Options for the program dump are as follows: 

ALL Dump all items in the stack and also list code segments. 

Use the default dump options. 



NONE 
FAULT 

DSED 

BASE 

ARRAYS 

CODE 

FILES 

DBS 

PORTS 

LIBRARIES 



A program dump will occur only if a fault occurred in the program (divide by zero, 
segment array, etc.). A program dump is not invoked at the time the message is 
entered. 



A program dump will occur only if the program is DSed . 
invoked at the time the message is entered. 



program dump i s 



no t 



Dump the base of the stack which is used by the operating system. 

Dump all present arrays. 

Dump all code segments. 

Dump all areas used by files. 

Dump SIB and data base stack. 

Dumps ports and signals. 

Dumps library stack. 



PRIVATELIBRARIES 

Dumps only Private Library stacks. 

SIBS Dumps only SIB. 

Examp 1 e : 

Unchanged 

EI (Emergency Interrupt) Message 
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EI has been eliminated; see HS (Hold Schedule) for new message. 

EQ (Eliminate Queue) Message 

EQ has been eliminated; see MQ (Make or Modify Queue) for new message. 
FA (File Attribute) Message 

Rev i sed Synt ax : 



|< , I 

I I 
-<mix number 1 i s t > — FA <file attribute assignment) | 



Semant i cs : 

Unchanged 
New Exampl e : 

798 8 FA VERSI0N=12, CYCLE= 1 3 

FM (Form Message) Message 

Revi sed Syntax : 

— <mix number 1 i s t > — FM — <device> — <unit number> — | 

Semant i cs : 

Unchanged 
Ex amp 1 e : 

Unchanged 

FR (Final Reel) Message 

Revi sed Syntax : 

— <mix number list> — FR — | 

Seman tics: 

Unchanged 
Ex amp 1 e : 

4423 FR 



FREE Message 

Synt ax : 
— FREE - 



- MOD <mod range> 

- MODS -I 

PROC — <node id> 

-<unit typo — <unit number>- 
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Semant i c s : 



Existing groups can be altered by the FREE and ACQUIRE messages. The FREE message is used 
to detach resources from an active group. Devices must be SAVEd before they can be 
"freed". Disk packs must also be closed first. 

Ex amp 1 e : 

PER MT 



MT STATUS 

8 1*P [HALL ] 1600 #1 1:0 MEMORY/DUMP [2,1] 
82«P [MIKE ] 1600 SCRATCH [2,1] 

SV MT 82 
FREE MT 82 



UNIT IN USE 
FREE MT 8 2 



MT8 2 FREED 
PER MT 



Lrp STATUS 

81*P [HALL ] 1600 #1 1:0 MEMORY/DUMP [2,1] 
8 2 NOT AVAILABLE TO GROUP 

FS (Force from Schedule) Message 

FS replaces the XS (Exceed Schedule) message. 

Syntax : 

— <mix number 1 i s t > — FS — | 

Semant i cs : 

When the FS (Force Schedule) message is entered, the execution of the indicated scheduled 

job is unconditionally initiated. Also, it may be used to force a job out of a scheduling 

queue, as well as one initiated but scheduled by the MCP . The system does not display a 
response to this message. 

Ex amp 1 e : 

7852 FS 



GC (Group Configuration) Message 

Syntax : 

— GC — | 

Semant i cs : 

The GC (Group Configuration) message displays the current group configuration. 
Ex amp 1 e : 
GC 

Response for Multiprocessor System: 
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••*•• GROUP CONFIGURATION ***** 
GROUP ID: BLUE 

PROCESSOR PORTS: A000 PROC ID. = 1 
PERIPHERALS ALLOWED TO GROUP: 

12-13,32-33,42-43,69-71,8 1-83, 193-194 
GLOBAL MEMORY STATUS : 

PRIVATE MEMORY AVAILABLE. NONE 

PRIVATE MEMORY IN USE: NONE 

SHARED MEMORY AVAILABLE: 32-33,38-39,44-45,50-5 1,56-57,62-63 

SHARED MEMORY IN USE: 32-33,38-39,44-45,50-5 1 

Response for Monolithic System: 

***** GROUP CONFIGURATION ***** 
GROUP ID: DEFAULT 
PERIPHERALS ALLOWED TO GROUP: 

1-255 
GLOBAL MEMORY STATUS: 

PRIVATE MEMORY AVAILABLE: NONE 

PRIVATE MEMORY IN USE: 0-63 

SHARED MEMORY AVAILABLE: NONE 

SHARED MEMORY IN USE: NONE 



HI (Except ionevent) Message 

Re v i s ed Syn t ax : 

— <mix number list> — HI 



I I 

| -<number>- ] 

Seman t i cs : 

Unchanged 
Ex amp i e : 

4312 HI 

HN (Hostname) Message 

Syn tax: 

— HN 1 

I I 

| -<hos tname>- | 

Seman t i c s : 

The HN (Hostname) message displays the hostname of the system. HN <hostname> designates 
the hostname of the system. The new hostname does not take effect until the next 
Hal t/Load. 

Ex amp 1 e : 

HN 

HOSTNAME: BLUE 
HN GAZORBAFLEX 

HOSTNAME: BLUE 

HOSTNAME WILL BE >> GAZORBAFLEX << AFTER NEXT HALT/ LOAD 

HS (Hold Schedule) Message 

HS replaces the EI (Emergency Interrupt) message. 
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Syntax : 

— HS — 



_ t __. 



Semant ics : 

The HS (Hold Schedule) message stops the selection of jobs from the 
schedule into execution. HS- resumes job selection. HS? displays 
the current status of job selection. 

Ex amp 1 e : 

HS 



JOB SELECTION STOPPED 
and to resume normal operations 
HS- 



JOB SELECTION RESUMED 

HS? 

HOLD SCHEDULE IS RESET 
HU (Host Usercode) Message 



Syntax : 
— HU - 



-<usercode>- 



Semant ics : 

The HU (Host Usercode) message designates the usercode to be used for inter-host system 
communications. Networking must not be in effect when HU is used. 



to 



inter-host system communications (i.e., non-user 



HU is referenced in two ways: 

1. The usercode attached 
communi cat ions) . 

2. Used for identity in inter-host communications where a usercode is not available; e.g., 
ODT input. 

Ex amp 1 e : 

HU <usercode> sets the "SYSTEM" usercode 
HU displays the current usercode 

HU- removes the usercode. 

A new "LOCATOR" for the USERDATA interface is used to determine whether the usercode is a 
"SYSTEM" usercode or not. This "LOCATOR" is called "SYSTEMUSER" . This same mnemonic is 
used by MAKEUSER to designate a usercode as a "SYSTEM" usercode. 

If no system usercode is set by the HU command and inter-host system communication is 
attempted, an error condition is generated. 

If an inter-host system communication is received and the usercode associated with the 
message is not recognized by the receiving host as a "SYSTEM" usercode in the USERDATAFILE, 
an error condition is generated. 



ID (Initialize Data com) Message 
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ID replaces the DC (Datacom Initiation) message. 
Syntax : 

— ID • 

-<number>- | | -<i den t i f i er> 

|- ON — <f ami 1 yname>- 



PAOE 19 



Seman t i cs : 

The ID (Initialize Datacom) message is provided to allow initialization of data 
communications processors and to yield information regarding the DCP files. 



When a number is used in the message, the DCP identified by that number is initialized. 
When an identifier appears in the message, that identifier is used as the prefix of the NIF 
and DCPCODE files to be employed by the DCP. 



Exampi e : 

ID 6 DATACOM2 

The DCP numbered 6 will be initialized; it will employ the files titled DATACOM2/NIF and 

DA 1 ACXJM2 /DCPCODE . 

ID 6 

The DCP numbered 6 wi 1 1 be initialized; by default, it will employ the NIF and DCPCODE 
files with the present prefix. 

ID- 

The DCP prefix SYSTEM is made. 
ID 

The system responds by indicating the current NIF and DCPCODE file prefix, as follows: 
NIF:TIONDL 

IL (Ignore Label) Message 

Revised Syntax: 

— <mix number list> — IL — <device> — <unit numbeo — | 

Semant ics : 

Unchanged 
Exampi e : 

7924 IL MT113 



IV (Initialize and Verify) Message 

IV has been eliminated; see RC (Reconfigure) for new message. 
J (Job and Task Structure Display) Message 

Re vised Syntax: 
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-/1\- ALL -I 



l<- 



-/1\- SWAPPER 



-/1\- MCSNAME <mcsname>- 

I I 
I- = -I 

-/1\- IN <subsystem id> 



I 



( (processor id 1 i s t > ) 



(processor id 1 i s t > 

< 

I I 
l<- . -I 

— GLOBAL 

I - 
_ i 

_ 2 

- 3 

_ 4 



Revised Semantics: 

The J (Job and Task Structure Display) message lists the tasks by job structure. If ALL is 
used, any active jobs or tasks which have been suppressed by the SUPPRESS message are 
displayed in addition to unsuppressed tasks. J does not show jobs in the job queue; the SQ 
(Show Queue) message serves that purpose. 

When SWAPPER is specified, only jobs running in swapspace will be displayed. 

When MCSNAME is specified, only jobs that originated from the specified MCS will be 
d i spl ayed . 

On a B6800 multiprocessor system, each displayed task is preceded by a subsystem indicator: 
processor id for a local memory task, "G" for a global memory task, or blank for a task 
whose subsystem location is currently unassigned. 

When IN is specified, only jobs with stacks running in the subsystem identified or the 
processor identified will be displayed. 



See "Queue-Level Scheduling" and Figure 1-2 for 
al gor i thm. 



discussion of the queue-matching 



The mix picture for a job running three tasks in parallel might look like the following: 

0230 JOB 55 

. . 0231 5 5 COBOL TASK/A 

. . 0233 55 COBOL TASK/B 
S. . 0234 55 ALGOL TASK/C 

Note that every task and job has a different mix number. The number 55 is the priority, 
equal in this case for all the tasks shown. 

The different tasks in a job may be in different states. Any of them may be active, 
scheduled, completed or waiting for operator action. The left margin has a letter flagging 
any of the job's tasks which are not active, as follows: S for scheduled tasks, W for 
waiting tasks (RSVP required) and E for compiles which have a syntax error. Completed 
tasks are not shown within the job structure. An asterisk "*" preceding a job or task 
indicates the task is displayed for the first time in a particular category. Swap jobs are 
flagged with an "#" between the priority number and the file name. 

A job placed in the reader may never show in the job structure for any of three reasons. 
First, the job may have finished before a mix display (MX) was requested. In this case, it 
appears in the completed table if it is one of the list of most recently completed jobs. 
If Autoprint (AP) is running, the job's wrapup sheet is printed. Second, the job may have 
been rejected without being run. This condition shows up as a syntax error printout if 
Autoprint is running. Finally, the job may be in a queue waiting to be initiated, in which 
case the SQ message will show it. 
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A typical response to a J message is shown in the example. 

Ex amp 1 e : 

JOB STRUCTURE 

* 3044 JOB 50 COPY & COMPARE SY 
•W. . 3045 50 LIBRARY/MA I NTENANCE 
3072 JOB 60 INTERIMFR26 

E. . 3041 50 SYSTEM/REL/ ALGOL ON INTERIM26 
*E. . 3060 50#ALGOL (JONES) CANDE/CODE60 

W. . 3080 50 ALGOL (GORD) SYSTEM/PL1 
♦S.. 3097 50 PL/! (GORD) CANDE/CODE 1080 

Swap jobs are flagged with an "#" between the priority number and the file name. The 
number in the active entry heading is the total number of active entires including 
suppressed entries. 

New Ex amp 1 e : 

J ALL MCSNAME=SYSTEM/CANDE 



This message will display all active jobs (including suppressed) that originated from 
SYSTEM/CANDE. 

New Example: (B6800 Mul t i -Processor System): 

J SW IN(3) 



This message will display all active jobs (excluding suppressed) whose stacks are 
running in swapspace in processor 3. 

LJ (Log to Joblog) Message 



Revised syntax: 

— <mix number 1 i s t > — LJ — <text> — | 

Seman t i cs : 

Unchanged 
Ex amp 1 e : 

Unchanged 

LP (Lock Program) Message 

Syntax : 

— <mix number list> — LP 



I I 
I- - "I 

Seman t i c s : 

The LP (Lock Program) message is provided to disable certain ODT messages which may 
interfere with program execution. Once locked, the DS and QT messages will be invalid for 
the locked task. 

LP- removes the LP restriction. 

Ex amp 1 e : 

7094 LP 



7094 PROGRAM LOCKED. 

7094 LP - 



7094 NOT LOCKED. 
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LR (Log Release) Message 

LR has been eliminated; see TL (Transfer Log) for new message. 
M (Mix Entries) Messge 

M has been eliminated; see MX (Mix Entries) for new message. 
MIXL (Mixlimit) Message 

MIXL has been eliminated; see ML (Mixlimit) for new message. 
ML (Mixlimit) Message 



PAGE 2'< 



ML replaces the MIXL (Mixlimit) message. 
Rev i sed Synt ax : 

ML <number> | 

I 



Seman t i cs : 

The ML (Mixlimit) message is used to set or interrogate the current mixlimit. The system 
responds to the interrogation ML by displaying queue class, active count, mixlimit and the 
number of jobs queued for every job queue. If a default queue has been set, the letter D 
appears in the left margin of the display for that queue. A typical response to a ML 
message is as follows: 



QUEUE 

D 
3 
5 

TOTAL 



ACTIVE 

2 

4 

7 



LIMIT 

10 
2 
4 
NONE 



QUEUED 




1 



ML <number> sets the mixlimit used for introducing new jobs into the system. This message 
establishes the maximum number of jobs which may be introduced regardless of the sum of all 
mixlimits set for all queues. Setting the mixlimit equal to zero will allow no jobs to be 
run. The limits set on each queue need not be changed. 

Exampl e : 

ML 20 



QUEUE 



ACTIVE 



LIMIT 



QUEUED 



TOTAL 7 

ML- removes the mixlimit. 
Exampl e : 

ML- 

QUEUE ACTIVE LIMIT QUEUED 



20 



TOTAL 7 

MODE (In or Output Mode) Message 



NONE 



Synt ax : 

Unchanged 
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Revised Seman tics 



The MODE message is used to control the input/output capability of the indicated device. 
The IN option (read only) prevents new files from being created, but it does not prevent 
writes to the given unit. Old files can be updated and/or removed even if the IN option is 
set. The 10 and OUT options allow the device to revert to normal operation. The MODE 
message allows the operator to inform the MCP that the WRITE ENABLE switch on a given disk 
pack unit has been changed. 

Ex amp 1 e : 

MODE PK 09 6 OUT 



PK096 MODE IS OUT 

This allows files to be opened for output. 

GETUSERDISK gives a "SECTORS REQUIRED" message if a request is made for space on a write 
locked out disk pack. 

MQ (Make or Modify Queue) Message 



In addition to the pre-III.l MQ syntax, the EQ (Eliminate Queue) option has been 
i ncorpora t ed . 

Rev i s ed Syn t ax : 

-- MQ <number> | 

I !' ' i 

I <queue attributes) — 

--<number> 



The syntax and semantics for <queue attributes) are unchanged, except as follows: 

A new attribute has been added to the list of queue attributes, 

Syntax for SUBSYSTEM: 

—/IS- SUBSYSTEM — = — subsystem id>— | 



Semantics for SUBSYSTEM: 

This queue attribute is used to specify a subset of the memory subsystems in which the job 
queue is to be located. 

Seman tics: 



The entry of the MQ (Make or Modify Queue) message results in the modification or 
of a job queue identified by the number following the MQ. 

MQ- <number> eliminates the specified queue from the system. 

Examp 1 e : 



c rea t ion 



MQ 37 MIXL = 2 



QUEUE 37: 

MIXLIMIT = 2 
DEFAULTS : 

NONE 
LIMITS: 

NONE 



MS (Make Subsystem) Message 
Syntax : 
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MS 



■(subsystem id>- 



-<subsystem id> — 



( — <processor id list> — ) 



(processor id 1 i s t > 



,<___. 



K- . -! 
- GLOBAL 

_ i 

_ 2 

_ 3 

_ 4 



Seman t i cs : 

The MAKE SUBSYSTEM message defines a logical subsystem within a system. 

MS without qualification displays all the current subsystem definitions. 

MS (subsystem id> displays that subsystem definition. 

MS - (subsystem id> eliminates a subsystem definition. 

MS (subsystem i d> = ( (proces sor id list>) defines or redefines a subsystem. 

Exampl e : 



MS 



MS SYSTEM 
MS GLOBAL 
MS TWO 
MS BARBARA 
MS RED 
MS YELLOW 
MS BLUE 



MS JUNK 



(2) 



MS JUNK 
MS - JUNK 



JUNK REMOVED 



MU (Make User) Message 



= (GLOBAL, 1,2,3,4) 

= (GLOBAL) 

= (2) 

= (2) 

= (3) 

= (3) 

= (1) 



(2) 



CURRENTLY (GLOBAL ,1,2) 
CURRENTLY (GLOBAL) 
CURRENTLY (2) 
CURRENTLY (2) 
CURRENTLY EMPTY 
CURRENTLY EMPTY 
CURRENTLY (1) 



CURRENTLY (2) 



MU incorporates the PU (Privileged User) message. 
Syntax : 

— MU (identifier> 

|- / (identifier) -| |- PRIVILEGED 
- — (identifier) — PRIVILEGED 
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Seman tics: 

The MU (Make User) message causes the first specified identifier to be entered into the 
userd i rec t ory as a valid usercode, and the second specified identifier (if any) to be 
associated as a password with that usercode. The usercode may be specified as a privileged 
user. A usercode preceded by a minus sign has privileges removed from it. The MU action 
is subject to regulation by the "MU MODEL" entry in the SYSTEM/USERDATAFILE; MU may be 
disallowed entirely, or the PRIVILEGED option may be disabled. 

Ex amp 1 e : 

MU JOHN/DOE 

JOHN/DOE PRIVILEGED 
MU- JOHN 



JOHN NOT PRIVILEGED 



MX (Mix Entries) Message 



MX replaces the M (Mix) message. 

Rev i sed Syn t ax : 

— MX 



-/1\- ALL 



! 



I<- 



I I 



-/1\- SWAPPER 



-/1\- MCSNAME <mcsnamc>- 

I I 



-/1\- IN <subsystem id>- 



j- ( <processor id list> ) 



<processor id list> 
<- 



I I 
l<- - "I 



- GLOBAL 

_ i 

_ 2 

- 3 

_ 4 



Revised Semantics: 

The MX (Mix Entries) request yields the same response as the J (Job and Task Structure 
Display) request, except that display lines (RSVP messages and DISPLAY) are printed with 
each task. If ALL is used, any active jobs or tasks which have been suppressed by the 
SUPPRESS message are displayed in addition to unsuppressed tasks. 

When SWAPPER is specified, only jobs running in swapspace will be displayed. 

When MCSNAME is specified, only jobs that originated from the specified MCS will be 
d i splayed. 

On a B6800 multiprocessor system, each displayed task is preceded by a subsystem indicator: 
processor id for a local memory task, "G" for a global memory task, or blank for a task 
whose subsystem location is currently unassigned. 
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When IN is specified, only jobs with stacks running in the subsystem identified or the 
processor identified will be displayed. 

Ex amp 1 e : 

MX 

JOB STRUCTURE 



S4087 JOB 50 ?RUN DICKEYIN( "SUP 

4070 JOB 50? RUN DATABASE/DU 

S..L4083 50 DATABASE/DUMPANALYZER ON DMS 

4053 JOB 70 SYSTEM/CANDE 

D:DISPLAY:# 

E..4075 60 DMALGOL ON DMS (JKD) CANDE/C0DE1 100 

*S. .4120 SO DMALGOL ON DMS 

3643 JOB 60 INTERIMFR26 

D: (JHHH) JHHHPATCH REMOVED ON INTERIM26 PK065 

W . . 4 1 2 8 60 LIBRARY/MAINTENANCE 

R: RECOPY REQD: SYSTEM/FORTRAN 

D: COMPARE ERROR: MT114* 

Ex amp 1 e : 

MX ALL MCSNAME=SYSTEM/CANDE 



This message will display all active jobs (including suppressed) that originated from 
SYSTEM/CANDE. 

Example: (B6800 Multi-Processor System): 

MX SW IN(3) 



This message will display all active jobs (excluding suppressed) whose stacks are 
running in swapspace in processor 3. 

NET (Network) Message 

Syntax: 

— NETWORK 1 



Semant i cs : 

The NET (Network) message is used to attach a host to the network. 

NET displays the current status of the network including the names, states and address of 
each of the known hosts in the network. 

NET+ initiates contact with other hosts by initiating the SYSTEM/HOSTSERVICES library, 
which provides network communication functions to users and programs. Until this is done, 
no inter-host communications can take place. 

NET- disconnects the host from the network by causing the SYSTEM/HOSTSERVICES library to go 
to EOJ. 

Ex amp 1 e : 

NET 

LOCAL HOST IS NOT NETWORKING 

BLUEfOJ LOCAL HOST( 1 ) DISCONNECTED 

NET+ 

This message will cause the execution of STARTNETWORK . 

NET- 

This message will cause the execution of NETWORKD IS CONNECT. 
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NEXT (Next Screen) Message 

NEXT has been eliminated; see NS (Next Screen) for new message. 
NS (Next Screen) Message 



Syntax : 

— NS — | 

Semant i cs : 

The function of NS (Next Screen) is to bring up the next screen on a screen terminal if 
there is a next screen. The message is automatically typed in and the cursor positioned at 
the lower right corner of the screen. 

OF (Optional File) Message 



Re v i sed Synt ax : 

— <mix number list> — OF — | 

Semant i cs : 

Unchanged 
Exampl e : 

Unchanged 

OG (Overlay Goal) Message 

Re v i sed Syntax : 

— <mix number list> — OG 

I -<number>-| 

Semant i cs : 

Unchanged 
Exampl es : 

4869,5269 OG 18 

4869 OVERLAY GOAL=18% 
5 269 OVERLAY GOAL=18% 

5269 OG 

5 2 69 OVERLAY GOAL=ll% PER MINUTE 
4869 OG 20 



4869 OVERLAY GOAL=2( 

OK (Reactivate) Message 

Rev i sed Syntax : 

— <mix number list> — OK - 
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Semant i cs : 
Unchanged 

Exampl es : 
0963 OK 



0931 ,0935 OK 



OP (Options) Message 



OP incorporates the SO (Set Options), RO (Reset Options) and TO (Test Options) messages. 
Synt ax : 

— OP 1 



- + - 



| -<opt ion 1 i s t >- J 
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i on list: 



(number) 

■ OPEN 

■ TERMINATE 

NOCHECK 

LPBDONLY | 

AUTORM j 

DIAGNOSTICS i 

l 

CDONLY j 

AUTORECQVERY j 

DUPSUPERVTSOR — [ 

I 
DUPINTRINSICS j 

I 
AUTODC | 

i 
NODUMP , 



CPBDONLY | 

CRUNCH ! 

BACKUPBYJOBNR — 
FULLTRANSLATION 

NOFETCH 

RESOURCECHECK -- 

NOSUMMARY 

DIRDEBUG 

CATALOGING 

NEWPERETRY 

OKTIMEANDDATE — 
LOGPOSITIONING - 
SERIALNUMBER — 

ARCHIVING 

CONTROLOLDWFL — 

IORANGECHECK 

IODIAGNOSTICS — 
USECATDEFAULT — 

CATTEST 

MCPTEST 



'I ! 



Semantics: 

The OP (Options) message displays, sets and resets options as follows: 

oi ' Displays all options and their respective states. 

OP -option list> Displays the options in the list and their respective states 

J P~ Displays all options that are set. 

OP-<:option list> Sets all options in the option list. 

B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 GENERAL 



MARK 3 . 1 
OP- Displays all options that are reset. 

OP-<option list> Resets the options in the option list 
Examp 1 e : 
OP 



P\Gf 



OPTIONS -- 

1 OPEN 

3 NOCHECK 

5*AUTORM 

7 CDONLY 

9 DUPSUPERVISOR 
12'AUTODC 
14*CPBDONLY 
17 BACKUPBYJOBNR 
19*NOFETCH 
21*NOSUMMARY 
2 3 'CATALOGING 
2 5'NEWPERETRY 
27*SERIALNUMBER 
29 CONTROLOLDWFL 
43 IODIAGNOSTICS 
46*CATTEST 

OP + OPEN 



2 'TERM I NATE 
4»LPBDONLY 
6 DIAGNOSTICS 
8*AUTORECOVERY 
10 DUPINTRINSICS 
13 NODUMP 
16 'CRUNCH 

18 FULLTRANSLATION 
2 0* RESOURCECHECK 
2 2 DIRDEBUG 
2 4 OKTIMEANDDATE 
2 6*LOGPOSITIONING 
2 8 'ARCHIVING 
31 IORANGECHECK 
4 5*USECATDEFAULT 
4 7 MCPTEST 



1 OPEN SET 
OP - 



RESET OPTIONS 

1 OPEN 

6 DIAGNOSTICS 

9 DUPSUPERVISOR 
13 NODUMP 

18 FULLTRANSLATION 
24 OKTIMEANDDATE 
3 1 IORANGECHECK 
47 MCPTEST 

OP - OPEN 



3 NOCHECK 

7 CDONLY 

10 DUPINTRINSICS 

17 BACKUPBYJOBNR 

22 DIRDEBUG 

29 CONTROLOLDWFL 

4 3 IODIAGNOSTICS 



1 OPEN RESET 

The III.l run-time system options are as follows: 
<number> 

A number appearing in this message must correspond to the number which identifies the 
option desired. (The run-time system options are not to be confused with the option 
word assigned to each job.) 

OPEN (option 1) 

When this option is set, a file-open message is displayed for each job whenever a file 
i s opened . 

TERMINATE (option 2) 

When this option is set, abnormal job terminations result in an attempted program dump 
rather than a full memory dump. If this option is reset, such abnormal terminat;ons 
result in a full memory dump. 

NOCHECK (option 3) 

When this option is set. memory dumps under both abnormal termination and FORGETCHECK 
conditions are inhibited. These dumps are automatic when NOCHECK is reset 

LPDONLY (opt ion 4) 

When this option is set, all printer output files are assigned to printer backup disk 
These files can then be printed by the AUTOBACKUP routine. 

AUTORM (opt ion 5) 
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When this option is set, the MCP automatically removes the old file when a 
duplicate-file condition occurs. When AUTORM is reset, an RM or OF message is required 
when such a condition occurs. 

DIAGNOSTICS (option 6) 

When this option is set, an RSVP message (e.g., RF DEGRADATION) is displayed at the 
console any time the reliability of a hardware unit is degraded by a set amount. This 
option is meaningless when the MCP has been compiled without setting the MTBF option. 

CDONLY (option 7) 

ZI %1 1 th !? °P tion set . an y job opening card input which is not internal to the jobfile is 
used. Also, no card reader may be labeled. 

AUTORECOVERY (option 8 ) 

When this option is set, a Halt/Load is attempted following all system fatal memory 
dumps (except a hung processor). DCP's which were running prior to the Halt/Load are 
subsequently reinitialized and the AP number is restored to the value previous to the 

If this option is reset, the above conditions do not happen. Furthermore, the mix limit 
ot all queues is set to zero so that no jobs will be automatically restarted. 

DUPSUPERVISOR (option 9) 

This option is provided for use with directory reconstruction. If a code file <file 
title> has been designated as the supervisor program by a CS message and this option is 

l S l\ /k.TvfMv 7 ° ad tim r '!!• MCP wil1 atte,n Pt to execute a code file <file 
title>/FMLYINX<nnn>. If this option is reset, the MCP wi I II attempt to execute the 
designated supervisor program. 

DUPINTRINSICS (option 10) 

This option is provided for use with directory reconstruction. If a file <file title> 
has been designated as the i nt r ins i cs file by a CI message and this option is set, at 
Halt/Load time the system will attempt to use as the intrinsics file the code file <file 
ti t le>/<family mdex>. If this option is reset, the code file <file title> will be used 
as the intrinsics file at Halt/Load time, regardless of the EU involved. 

AUTODC (option 12) 

When this option is set, the automatic generation of a Data Comm control stack is 
provided for when an executing job requests it. 

NODUMP (option 13) 

When this option is set, the MCP is prevented from attempting dumps to taoe. Potential 

nonfatal dumps are denoted by a message at the supervisory console and logged. The 

source of a fatal dump is displayed in a sys tern message at Halt/Load time. When this 

option is reset, dumps are taken in the normal fashion. 

CPBDONLY (option 14) 

When this option is set, all card punch output files are assigned to punch backup disk. 
These files can be punched by the AUTOBACKUP routine. 

CRUNCH (option 16) 

When this option is set, code files and backup disk files are automatically CRUNCHed 
i»k k e L a r-i closed / ^ote that if this option is reset, no file can be CRUNCHed 
although the file may have been explicitly CRUNCHed by other program constructs. 

BACKUPBYJOBNR (option 17) 

When this option is set, jobs are printed by order of the job number. When reset, jobs 
are printed by order of lowest output print quantity to highest output print quantity. 

FULLTRANSLATION (option 18) 

When this option is set, every logical file is initialized with the file attribute 
TRANSLATE set to FULLTRANS . This allows software t rans 1 at ion whenever . rans. at Ion \l 
required and hardware translation is not provided. 

NOFETCH (option 19) 

When this option is set, FETCH statements entered by a WFL deck are disabled. 

RESOURCECHECK (option 20) 
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When this option is set, it enables tape resource management. 

NQSUMMARY (option 21) 

When this option is set, the job summary output is suppressed if no backup files are 
produced. The job summary is printed if a task terminates abnormally. 

DIRDEBUO (option 22) 

CAUTION 

This option is intended for use only by the Burroughs 
Large Systems Plant. 

CATALOGING (option 23) 

At Halt/Load time CATALOGING is tested. If it is true, CATALOGLEVEL is initialized to 
CATALOGLEVELSET; if it is false, CATALOGLEVEL is set to zero. Note that a CATALOGING 
MCP is any MCP whose CATALOGLEVEL is greater than zero. 

Note: A Halt/Load must occur after this option is set for CATALOGING to take effect. 

QKTIMEANDDATE (option 24) 

This, option; i sr< used &Q> verify that system TIME and DATE values are valid. 

Ye-rlfte&Sfon will be required) on B68QQ> mutt {processor systems regardless of the option 

setting if the clock of any processor varies from that of the leader by more than 60 

seconds during the system initialization sequence. (Whenever B6800 time-of-day 

registers disagree as a multiprocessor system is initialized, they are all synchronized 
at the maximum time found in any of them.) 

When verification is required, the current TIME and DATE settings will be displayed on 
the ODT and updated whenever ADM would ordinarily be updated. The operator may enter 
"TIMEOK" to resume normal processing after resetting any invalid time or date via the 
"DR" and "TR" messages. 

NEWPERETRY (option 25) 

This option invokes a special method of repositioning the tape after a write error 
occurs on any PE tape unit. Do not set NEWPERETRY unless all PE tape controls have 
attained the following RIN level: 

CE-L3486-1 
CON-3-L2 189-6 
MECH-R2254-19 

LOGPOSITIONING (option 26) 

When this option is set, the MCP will log the positioning actions of tape parity retry 
as well as the actual retries. This option should be set by a site having trouble in 
retrying tape errors; e.g., lost blocks on tape. 

SERIALNUMBER (option 27) 

When this option is set, scratch tapes will not be assigned to output tapes unless the 
SERIALNO attribute is used or the operator OUs the tape. 

ARCHIVING (option 28) 

This option enables the MCP archiving function. If this option is set and the catalog 
level of the system is greater than zero, an archive log will be created in which 
pertinent information will be stored for later processing by the SYSTEM/ ARCHIVE utility. 
The name of the archive log will be "ARCHIVELOG/<da t e>/< t ime>" , where <date> and <time> 
refer to the creation date and time of the file. If the archive log is not successfully 
set up, the option will automatically be reset by the system. 

CONTROLOLDWFL (option 29) 

When this option is set, all WFL input from the ODT is treated as new WFL. This option 
affects only job syntax entered through the ODT. 

IORANGECHECK (option 31) 

This option verifies that the disk address requested for an I/O is, in fact, within the 
range of any other rows of the file. 

IODIAGNOSTICS (option 43) 

CAUTION 

This option is intended for use only by the Burroughs 
Large Systems Plant. 

USECATDEFAULT (option 45) 
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At Halt/Load time, this option and cataloging are tested. If both are true, all files 
have the attribute USECATALOG set to true by default. 

CATTEST (opt ion 46) 

CAUTION 

This option is intended for use only by the Burroughs 
Large Systems Plant. 

MCPTEST (option 47) 

CAUTION 

This option is intended for use only by the Burroughs 
Large Systems Plant. 

Setting or resetting any of these options (by number) should have no effect. 
OT (Stack Cell Inspection) Message 



Rev i s ed Syn t ax : 

— <mix nuraber> — OT — <number>- 



Semant i cs : 

Unchanged 
Exampl es : 

Unchanged 

OU (Output Unit) Message 

Revised Syntax: 

— <mix number list> — OU — <output device> — | 

S email tics: 

Unchanged 
Ex amp 1 es : 

Unchanged 

P (Peripheral Status) Message 

P has been eliminated; see PER (Peripheral Status) for new message. 
PC (Print Configuration) Message 

PC has been eliminated; see SC (System Configuration) for new message. 
PER (Peripheral Status) Message 



PER replaces the P (Peripheral) message. 
Rev i sed Syntax : 
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PER 



-<devi ce>- 



-<dev i cc> — 



Revised Semantics: 

When the PER (Peripheral Status) message is entered, the status of the specified peripheral 
unit(s) is displayed on the supervisory console at which the message was entered. 

If PER= or PER <device>= is used, unlabeled and not-ready devices are included; otherwise, 
they are not . 

On a B6800 multiprocessor system, the display for each unit is followed by a bracketed list 
of processor numbers showing which subsystems are connected to the unit. 

The remainder of the semantics remain unchanged. 

New Example: (B6800 Multiprocessor System) 

PER PK 



pj£ STATUS 

64 NOT AVAILABLE TO GROUP 
66 NOT AVAILABLE TO GROUP 
68*B [152000] #1 DISK (26)[2,1] 
70»B [144732] #1 PACK (02)[2,1] 
71*B [004092] #1 USERS (00)[2,1] 



PG (Purge) Message 

The PG (Purge) message now allows the specification of tape density. 
Revised Syntax: 

PG MT <unit number list> 1 

I- PGL -I |- PK -| |- ( — <density>— ) -| 



<dens i ty> 

____ 200 — 
556 — 
800 — 
1600 - 
6250 - 



Revised Semantics: 

The PG (Purge) message may be used to purge specified tape units or disk packs if they are 
ready, not in use, and are wr i t e-enabl ed. For tapes, use of this message requires that the 
tape have serial numbers; these serial numbers are not disturbed by the message. If the 
tapes in question do not have serial numbers, use of the SN message is required. The 
density of the tape may be specified; however, when the density is specified, it applies to 
all tapes in the list. 

The PGL form of this message, in addition, causes the specified tape units to be locked so 
that no job can automatically pick up the scratch tapes. 

New Ex amp 1 e : 

PG MT 82 (1600) 
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MT8 2 WILL BE PURGED 



For disk packs, the PG message causes the pack to be relabeled with the packname SCRATCH 
and made available to SCR programs. This message, intended primarily for maintenance, 
should not be used for disk packs in the normal course of work. 

PP (Privileged Program) Message 

Syntax : 

— PP <file title> — | 

l_ I 

Seman t i c s : 

The PP (Privileged Program) message designates a code file as a privileged program; i.e., 
it has the same capability as a program running under a privileged usercode. A code file 
title preceded by a minus sign has privileges removed from it. 

Ex amp 1 e : 

PP (MIKE)OBJECT/HARD 



(MIKE)OBJECT/HARD IS A PRIVILEGED PROGRAM 
PP- (MIKE)OBJECT/HARD 



(MIKE)OBJECT/HARD NON PRIVILEGED PROGRAM 

PR (Priority) Message 

Revised Syntax: 

— <mix number list> — PR — <number> — | 

S email t i cs : 

Unchanged 
Exampl es : 

4972, 4980 PR 90 



497 5 PR 30 

PU (Privileged User) Message 

PU has been eliminated; see MU (Make User) for new message. 
QT (Quit) Message 



Rev i sed Syntax : 

— <mix number list> — QT — | 

Semant i cs : 

Unchanged 
Ex amp I e : 

6823 QT 
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RC (Reconfigure) Message 



In addition to the pre-III.l syntax, the IV (Initialize and Verify) message has been 
incorporated. 

Revi sed Syntax : 



RC PK <unit number>- 

! ! 
I - DK - 1 



IV -| 



!<- 



-<parameter options>- 



<parameter options> 

/1\_ OWNER <name; 

|_ i 



-/1\- NAME <packname> — 

-/1\- SERIAL <integer>- 

l-.-i 



-/1\- BP 



-<integer>- 



-/1\- FAMILYINDEX — = — <number>- 



KEEP 



-/1\- IC - 
-/1\~ SR - 
-/1\- IAD 



Revised Semantics: 

The RC (Reconfigure) message is used to create a new set of volume labels on a disk pack or 
head-per-track disk. If the disk pack is to be a native mode base pack or interchange 
pack, a new master directory is also created. The IV option may be used to format and 
analyze all of the tracks of the specified pack. 

The semantics for (parameter options> is unchanged. 
RECONFIGURE Message 



Syntax : 

— RECONGIFURE — 



INSTALLATION 

GROUP 

INSTALLATION 



— AS <group 1 i s t > 

I I 

I |- DEFAULT 

- AS < ins ta 1 1 at ion id>- 

- DEFAULT 



Seman t i cs : 



The RECONFIGURE message regroups the hardware resources according to the groups specified 
in the group list. If INSTALLATION is specified, all installation resources are 



reconfigured to the new configuration. If GROUP is specified, all resources assigned to 

the group to which the operator display terminal at which the message was entered will be 

reconfigured into the new configuration. A reconfiguration may cause a Halt/Load of 
existing groups which are being reconfigured into new groups 
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Any subset of the <group id>s defined in the configuration file may be specified in the new 
configuration. Not all defined <group id>s need be specified and a <group id> cannot be 
specified more than once. 

Ex amp 1 e : 

RECONFIGURE INSTALLATION AS THREEBY 
RECONFIGURE INSTALLATION AS SYSA, SYSB, SYSC 
RECONFIGURE GROUP AS TWOBY 
RECONFIGURE GROUP AS RED 

RES (Reserve) Message 



RES incorporates the RET (Return) Message. 
Rev i sed Syntax: 

— RES 



> DK <unit number> — <reserve options;.- 

I 
PK -I 



- EU -| 



- COPY ERRORS -| 

! 

- REMOVE I 



- DK <unit number> — <su or switch>- 

- PK - 

- EU -| 



-I 



(reserve opt ions> 



I I 
-<su or switch>-| |- 

- AS MAINT 

- LABEL 

- SEGMENT — <number>- 



AS BADDISK 



I 

|- FOR — <number>- 

! 



THRU <number>- 

i 

i - SEGMENT - j 



< su or swi t ch> 



- SU <number> 

SU — <number> THRU <number>- 

I 

|- SU 

FOR 



|< 



-- SWITCH <number>- 



-<number> THRU — <number>- 

[- SWITCH 

FOR 
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Revised Semantics: 



The RES (Reserve) message allows a specified area to be removed from or returned to the 
head-per-t rack or disk pack subsystem. 

lESwr« a 2«- l, »" t0 be reserved is placed in the IAD-disk pool or marked as a BADDISK or 
RESIDISK file. Only non-IAD disk areas may be so reserved. 

Disk areas specified as IAD-disk may be returned to the available disk pool. If an area is 
not IAD-disk, an appropriate error message is displayed and the area is not returned. If 
an area is designated as not ready or write lockout, it is not returned. 

Only one RES request can be active at any given time. 

The semantics for <reserve options> and <su or switch> are unchanged. 

Rev i s ed Exampl e : 

RES PK 96 SEGMENT 111111 FOR 25 



1281 /JOB 99 RESERVEDISK 
and displays the following messages: 



1281 DATA MOVED IN SYSTEM/MCP 1 1 7 

1281 PK096 BADDISK/FMLYINX1/UNIT96/AD1II111 CREATED 

Note that the files that are being affected by the copying action are displayed. 

RET DK33 SWITCH 4 FOR 1 



3444 JOB 99 RETURNIADISK 
RESTORE (Restore) Message 

RESTORE has been eliminated; see SUPPRESS for new message. 
RET (Return) Message 

RET has been eliminated; see RES (Reserve) for new message. 

RM (Remove) Message 

Revised Syntax: 

— <mix numbcr> — RM — | 

Semant i cs : 

Unchanged 
Exampl e : 

Unchanged 

RO (Reset Option) Message 

RO has been eliminated; see OP (Options) for new message. 
RR (Release Reader) Message 

RR has been eliminated; see SR (Secure Reader) for new message. 
RY (Ready) Message 
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In aculiiirr ii> the pre-III.l syntax, the RY message has been modified to accommodate 

mul I : rrccssot systems. 

Revised Syntax. 

-- R1 <dei i ce> — <uni t number list> 

- CPU -~<processor number> 

~ MOD — <mod number) ; 

- IN <processor number > - 

R e \ i s e ci Semantics: 

Tr 



m 
ge 



b: RV (Readyi message causes the indicated devices to be made ready for use by the syste 

{ ihe> are in remote status and have been made previously inaccessible via the SV messag 
iy, rewind and iock. If the <mod number> is greater than or equal to the first mod of 
GLOHAI tm Memory, the IN phrase is not used; global is used by default 

An off-line processor (CPU) may also be restored by the RY message as part of the restoring 
vsouencc-. as follows: 

-" I a i ■ •„■ the processor in LOCAL . 
b Lv ; l- r R\ CPU<nnn>. The system will display the following typical message: 

IC20CZERO) 30( some hexadecimal starting value); IIHF START 

c . Make sure the processor is in LOCAL. 

d. Set the B-register to hexadecimal 20 Note that everything in the registers must be 

right -justified, 

t Set the A-register to hexadecimal 0. 

f Set AROF and BROF . 

g . Do a WR I TE- 1 C . 

h Do a UNIT CLEAR. 

i. Set the B-register to hexadecimal 30. 

j Set (he A-register to the starting value, 

k Set AROF and BROF. 

1 Do a WRITE- 1C. 

m. Do a UNIT CLEAR. 

n Set IIHF. 

o . Set the processor to REMOTE . 

p. Make certain that SCII , SCC1 and SCC2 are cycling. 

q . Press START . 

The RY CPU message cannot currently be used on B6800 multiprocessor systems, due to the 
architecture and relationship of CPUs to I/Os in the B6800; this restriction may be removed 
on a future software release. 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 

Rev i s ed Examp 1 e : 

RY MT 1 1 3 

MT 113 READY 
RY MOD 1 IN 2 



MOD 1 IN LOCAL 2 WILL BE READY 

S .'Scheduled Mix Entries) Message 
Revised Syntax: 
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— S 



l-/l\- ALL 



-/1\- SWAPPER 



-/1\- MCSNAME <mcsname>- 



-/1\- IN <subsystem id> 

I 

|- ( <processor id list> ) 



I I 
• I 

I 



(processor id list> 

!<■— 1 

i i 

i i<- 

- — GLOBAL 

1 

2 

3 

4 



Revised Semantics: 

The S (Scheduled Mix Entries) message causes a display of those tasks which are u-heduiti 
This display does not include jobs still in one of the job queues 

When SWAPPER is specified, only jobs running in swapspace will be displayed 

When MCSNAME is specified, only jobs that originated from the specified MCS wiil 
d i sp 1 ayed . 

On a B6800 multiprocessor system, each displayed task is preceded by a subsystem indict;. 
processor id for a local memory task, "G" for a global memory task, or blank !'•;>: a . ■ 
whose subsystem location is currently unassigned. 

When IN is specified, only jobs with stacks running in the subsystem identified or ii 
processor identified will be displayed. 

A typical response to an S message is as follows: 

2 SCHEDULED ENTRIES 

6950 JOB 70 SYSTEM/CANDE 
6962/6963 55 SYSTEM/DUMPANALYZER 

Swap jobs are flagged with an "#" between the priority number and the file nasi; 1: 
n umb er in the active entry heading is the total number of active e n < r i e s in cluji 
suppressed entries. 

New Examp 1 e : 

S ALL MCSNAME=SYSTEM/CANDE 



This message will display all scheduled jobs (including suppressed) that originated 
SYSTEM/CANDE. 

New Example: (B6800 Mu 1 t i -Proce s sor System): 

S SW IN(3) 



This message will display all scheduled jobs (excluding suppressed) whose Matt 
running in swapspace in processor 3. 
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SB (Substitute Backup) Message 
Revised Svn t ax : 



SB 



-/1\- DISK 

-/1\- PACK 

-/1\- TAPE 

-/l\- TAPE7 — 
-/1\- TAPE9 — 
-/1\- PETAPE - 



-/1\- DISK 

-/1\- PACK 

-/1\- TAPE 

-/1\- TAPE7 — 

|-/1\- TAPE9 

I 
-/1\- PETAPE — 

-/1\- DLBACKUP 



Seman tics: 

Semantics are unchanged, except for the following: 

The default SB specifications are DISK = DLBACKUP and PACK = PACK. 

Ex amp 1 e : 

Unchanged 

SC (System Configuration) Message 

SC replaces the PC (Print Configuration) message. 

Syntax: 

— SC —| 

Seman tics: 

When the SC (System Configuration) message is entered, the system responds by displaying 
the current system configuration at the supervisory console from which the message is 

e n t e r e d . 

A typical response to an SC message, which yields the total configuration of the system, is 

as foil ows : 

3 PROCESSORS 1-3 

D0=02100 
3 MULTIPLEXORS 1-3 
MPX LIMIT 



1 (MOD III) 15 

2 (MOD III) 15 

3 ( MOD III) 13 
MEMORY STATUS 

24 IN USE 0-23 
PROGRAMMED HALT/LOADS: 
STRINGS PRESENT: 1-3 

SI (System Intrinsics) Message 



TRAFFIC 

2 

2 
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Syn t ax : 

— si I 
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+ 



-< f i 1 e t i t 1 e>- 



Semant i cs : 

The SI (System Intrinsics) message loads or displays the system intrinsics as follows: 

SI Displays the current intrinsics. 

SI <f i le t i t le> 

Loads the intrinsics named in <file title>. 

SI + 

Loads the default intrinsics. The default is a define in the Controller such that an 
installation may change it if so desired. 

Jobs that are currently active use the "old" intrinsics stack; new jobs use the "new" 
intrinsicsstack. 

Ex amp 1 es : 

SI SYSTEM/X 



6029 JOB 99 INITIALIZEINTRINSICSTUFF 
then 

SYSTEM/X (LOADED) 
Sit 

6039 JOB 99 INITIALIZEINTRINSICSTUFF 
then 

SYSTEM/INTRINSICS (LOADED) 
SI 



INTRINSICS: SYSTEM/INTRINSICS 
SM (Send Message) Message 



Rev i sed Syn t ax : 

— <mix number list>- 



SM 



-<control message>— | 



Semant i cs : 

Unchanged 
Ex amp 1 e : 

Unchanged 

SN (Serial Number) Message 

The SN (Serial Number) message now allows the specification of tape density. 
Rev i sed Syn t ax : 

SN MT — <sn option list> 1 

|- SNL -[ |- ( — <density> — ) -| 
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<sn opt i on 1 i s t > 



<unit number list>- 



-/6\ <d i g i t > — 

I 

| -< 1 e t t er>- 

I < 



/6\ <digi t> 



! 



-<1 e 1 1 er>- | 



<dens i t y> 

200 - 

I 

556 - 

800 - 

1600 

6250 



The SN (Serial Number) message is used to purge (with optional locking) and assign a serial 
number a tape unit. The serial number may consist of up to six alphanumeric characters. 
If a number is used, it is right justified with leading zeros added. Any serial number 
containing alphabetic characters or any quoted alphanumeric string is left justified with 
trailing blanks. The density of the tape may be specified; however, it applies to all 
tapes i n the 1 i s t . 

When the SNL form of the message is used, the tape is locked as well as purged so that no 
job can automatically pick up the scratch tape. 

New Ex amp 1 e : 

SN MT 82 MIKE (1600) 



MT8 2 WILL BE SN-ED 
P MT 



82"P [MIKE ] 1600 #1 1 : 00 S C R A T C H 

An attempt to SN a tape that has been locked causes the UNIT LOCKED message to be 

displayed. 

SO (Set Option) Message 

SO has been eliminated; see OP (Options) for new message. 

SR (Secure Reader) Message 

SR incorporates the RR (Release Reader) message. 

Rev i s ed Syntax : 

— SR CR — <unit number list> — I 



Revised Semantics: 
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The SR (Secure Reader) messages causes the system to check the u s e r code 'pa s s wo rd 
combination and reject all card decks entered into the indicated card reader which do not 
contain a USER system control card. If SR- is entered, the security restrictions imposed 
on the indicated card reader by a prior SR message will be removed. 

SR CR10 



CR10 SECURED 

If an attempt is made to enter a deck without a USER system control card. the system 
responds with the typical message: 

09 4 1 CONTROL CARD ERROR 

SR- CR10 



CR10 RELEASED 
ST (Stop) Me s s age 

Re v i s ed Syn tax: 

— <mix number 1 i s t > — ST -- 

Semant i c s : 

Unchanged 
Ex amp 1 e : 

Unchanged 

SUPPRESS (Suppress) Message 

SUPPRESS incorporates the RESTORE message 
Re v i sed Syntax: 

— «nix number list> — SUPPRESS 



Seman tics: 

The SUPPRESS message prevents indicated jobs from appearing in a display of the job mix 

when they are active. If SUPPRESS- is entered, the suppression is lifted. Only a mix 

(e.g., A , C , J ) message containing the ALL qualifier may cause such jobs to appear in the mix 
display. 

If an active suppressed task goes into a waiting state, it is displayed. When it returns 
to an active state, it is again suppressed. 

Examp 1 e . 

180 SUPPRESS 

ACTIVE ENTRIES 

1 80 JOB 70 SYSTEM/CANDE 

193 70 STACK2/CANDE 

179 JOB 80 DCP/0 

r esu I I s in 

ACTIVE ENTRIES 

180x 193 70 STACK2/CANDE 
179 JOB 8 DCP/0 
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In addition to the pre-III.l syntax, the SV message has been modified to accommodate 
multiprocessor systems. 



Rev i s ed Syntax : 

|< . , 

— SV <dev i ce> — <un i t number list> 

|- CPU — <processor number> 

i 

|- MOD — <mod number> 

I 

|- IN (processor number> -j 



Revised Semantics: 

The SV (Save) message is provided to allow a unit to be made inaccessible to the system 
If the <mod number> is greater than or equal to the first mod of * GLOBAL tin Memory, the IN 
phrase is not used; global is used by default. 

This message may be used in response to an RF DEGRADATION message it o take the indicated 
peripheral unit off-line as soon as it is not in use by the current job which is using it 
Such an SV message will inhibit further RSVP messages regarding this unit until an 
appropriate RY message is input. In addition, the unit is automatically placed in a 
saved status so that upon completion of this job the unit cannot be reassigned Once a 
unit has been saved by an SV message, the reliability factor for that unit will remain 
unchanged until an RY message is entered for that unit. 

The SV message may also be used to take a memory module off-line. The restrictions are 
that this message may not reference a module which is already saved or off-line may not 
reference module #0, and may not reference the numerically highest module which was on-line 
at the time of the last Halt/Load. An arbitrarily long period of time may expire between 
the input of the SV message and the time the module becomes completely saved all in-use 
areas must be returned to the system before the process is complete. A system messaee is 
issued when the module is off-line. * 

The SV CPU message cannot currently be used on B6800 multiprocessor systems due to the 
architecture and relationship of CPUs to I/Os in the B6800; this restriction may be removed 
on a future software release. 

Rev i sed Ex amp 1 e : 

SV MT 114 

MT 11 4 SAVED 

MT STATUS 

114*P [000001] SAVED 

SV MOD 1 IN 2 



MOD 1 IN LOCAL 2 WILL BE SAVED 

A processor (CPU) may be taken off-line by the SV CPU<nnn> message once the CONDITIONAL 
Umi . SWItch , f or the desired CPU has been turned on. In order to save one CPU, the other 
CPUs in a multiprocessor system must be on-line. Use the following procedure to save a 



a. Put the CONDITIONAL HALT switch in the up position. If the switch 



displayed on the MDL panel 
responds with 



"P. 



OFF 



the A register. If the switch is not up, the system 



SET CONDITIONAL HALT SWITCH FOR CPU<nnn> 

Enter SV CPU<nnn> 

Put the processor in local mode and CLEAR (CL) the 

Note: The processor must remain in local mode; 
next Halt/Load will pick up the processor 



un l t . 
if it is in remote mode, the 



SW (Swapper) Message 
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The SW (Swapper) message has been revised to accommodate B6800 multiprocessor systems. 
Rev i s ed Syntax: 

— SW > 

> 

;- ( --(processor id 1 i s t > — ) - '-(swapper control parameters>- 



( — <prccessor id 1 i s t > — ) 



( --<processor id 1 i s t > — ) - 



-<start opt ions>- 



(processor id iist> 
; < j 

i i <~ . - ; i 
~-— 1 -— i 

.- 2 -j 
'- 3 -j 
! - 4 - ! 



I 






tpper control parameters) 

- MINTIMESLICE = --<value> — | 

- EXPTIME i 

- MAXSLICENUMBER -- j 

- MAXCORF. 

- RATIO 

- CORES IZE i 

i 

- EXPRESSRESERVE — \ 

- EXPMAXCORE i 

- PRIORITYBIAS i 

- UTILIZATIONBIAS - 

I 

- 10BIAS I 



MEMORYBIAS 



(start op t i on s > 



CORES IZE 



(integer> 



ON — < f ami 1 y>- 



Revised Semantics- 

The SW (Swapper) message is used to interrogate, control, initiate and terminate the 
SWAPPER mechanism, which transfers tasks between central memory and mass storage on a 
demand or time-slice basis. The central memory area is procured automatically according to 
parameters which may be specified in this message; the mass storage area must be present as 
a file with the title *SYSTEM/SWAPDI SK . A visible independent runner named SWAPPER is run 
to perform the swapping In a B68O0 Multiprocessor (Tightly-Coupled) system, SWAPPER may 
be used in each local subsystem. 
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See System Software Operational Guide, Vol. 2 (Form No. 5001688). 
description of <swapper control parameters) and <start options), 
D2906, "Changes in the SWAPPER Mechan i sm" . 
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Ar t i c 1 e 16, for a 
See also GENERAL note 



The SW+ and SW 
forms are used 
t empora ry 
the command "SW" , 



forms 



are used to initiate and terminate swapping, respectively. 
to interrogate or alter parameters while SWAPPER is running. (An 
feature is present to enhance compatibility between III.l and earliei 
when entered while no SWAPPER is active, is equivalent to "SW+' 



If the list is presen 
If the list specifies 



A (processor id list> is significant only on a TC system 
to each of the named local subsystems 

is rejected. If no list is speci 

, -,-- - ■■-- o- ------ SWAPPER to be initiated in each local subsy 

the SW- and SW messages are applied to each SWAPPER that is running. 



„~ i f i can t only 

mes sage app I i es t< 

that is not present on the system, the message 

TC system, the SW+ message causes _....„.. .„ „„ ....... 

SW messages are applied to each SWAPPER that 



The SW 

add i t i ona 1 
s y s t ems : 
•) 

t, the SW 
a subsy s t em 
f i ed on a 
s t em, wh i 1 e 



S£ W TlEEo r contro ! parameters) may be entered to alter the specified parameter values wh i 
SWAPPER is running. 



r no „ °P t ' on f> ma y b *= entered in a SW+ command to specify the CORESIZE parameter (number 

v™«Ido c ? tQ ^ e al ' ocated in central memory) and/or the disk/pack <family> on which 

SYSTEM/SWAPDISK resides. Every row of * SYSTEM/ SWAPD I SK must reside on a family which is 



< S t a r t 
of 



exchanged to 
running, this 
SWAPPER(s) . 

Ex amp 1 es : 



each local processor in which SWAPPER is to be run. II 
clause may not be specified on the SW+ message to 



a SWAPPER 
initiate 



is a 1 ready 
add i t i ona 1 



SW+ 

Initiate SWAPPER (one copy in a monolithic system, one copy in each local subsystem on a 
TC sys t em) . ' 



SW+(1,3) ON SWD CORESIZE=180 

Initiate SWAPPER in the local memory of processors 1 and 3- 
SWD; set its CORESIZE to 180 slots for each SWAPPER. 

SW+(2) CORESIZE 140 

Initiate SWAPPER in the local memory of processor 2; set it 
SWAPPER may or may not be already running in some other subsystem 

SW (1) EXPRESSRESERVE 40 EXPMAXCORE 25 

For the SWAPPER running in processor 1, set the EXPRESS reserve area size to 
with an upper bound of 25 slots on the size of subspace for an express task. 

SW 



find *SYSTEM/SWAPDISK on 



s CORESIZE to 140 slots 



40 slots, 



Cause each SWAPPER running to display its current parameter sei 
displayed in a series of messages which may be seen in response l 

SW (3) 



t ings. 
o a MSG 



The 
i nput 



data are 
message . 



Caus e 
Caus e 



the SWAPPER running in processor 3 to display its parameters, as above. SW - (3) 

AA?m? AifS» runnln 8 in processor 3 to terminate. It will immediately acknowledge 

<mix> GOING AWAY ; it will terminate when there are no longer any swap tasks that 

require that subsystem. Meanwhile, no new tasks except offspring of 

processor-3 swaptasks will be initiated as swaptasks in processor 3. 



existing 



SW- 



t o t ermi na t e , 
requi red , as 



Cause all SWAPPERS 

terminate when not required, as above. 

and then terminate when there are no u.ui c swap i as us running 
nil be started except offspring of existing swaptasks. 



swaptasks 



On 
more 



and then 



On a TC system, each one will acknowledge 

a monolithic system, SWAPPER wi 1 1 acknowledge 
swaptasks running. Meanwhile, no 



TD (Time and Date) Message 

TD incorporates the WD (What Date) and WT (What Time) messages. 
Syntax : 

— TD —| 

Seman tics: 
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When the TD (Time and Date) message is entered, the system responds by displaying the 
current time and date in the following manner: 

DATE IS MONDAY APR 23,1979 (79113) hh:mm:ss 

where hh , mm and ss are digits denoting hours, minutes and seconds respectively; 79113 
indicates the year is 1979 and the date is day 113. 

TD (Tape Directory) Message 

TD (Tape Directory) has been replaced by TDIR (Tape Directory); see TDIR for new message. 

TDIR (Tape Directory) Message 

Syn t ax 

l< • I 



TDIR <unit number> | 

I 
- SPO |-<tape name> j 

I 

I - PUNCH - 



Seman tics: 



TDIR (Tape Directory) message initiates SYSTEM/FILEDATA, which reads the directory of the 
specified tape. The default output is to the printer. As many intermixed tape names or 
unit numbers as desired may be specified, each being separated from the next by commas. 



Ex amp 1 e : 

TDIR SPO X 

B6700 SYSTEM 277 REPORT OF 06/09/75 AT 09:48:01 

VERSION 2.7.380 

TAPE = X/FILE000. ON UNIT 115 

SERIAL#= 123456 CREATED 6/09/75 

9-TRACK (PE) 1600 DPI 

* SYSTEM/DUMP ALL 

TAPED I RECTORY INPUT WAS: 
"TPDIR SPO X" 



TI (Times) Message 

Rev i sed Syntax : 

- — (mix number list> — TI — | 

Seman tics: 

Unchanged 
Exampl e : 

Unchanged 

TL (Transfer Log) Message 

TL replaces the LR (Log Release) Message. 
Syn tax: 

— TL —| 
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Semantics: 

A new system log is generated by entering a TL (Transfer Log) message. 

The previous log is named; 

SUMLOG/<sys t em numbe r >/<mmddyy>/<numbe r > 

as appropriate (where number is a log serial number from 1 to 999999) and may be saved or 
discarded as desired. IAD logs specified at cold start time do not have a new log file 
created; instead, the rows of the system log are rotated. A typical response to a TL 
message is as follows: 

7275 SYSTEM/SUMLOG CHANGED TO SUMLOG/227/053075/000005 ON DISK DK033 
TO (Test Option) Message 

TO has been eliminated; see OP (Options) for new message. 
UA (Unit Available) Message 

UA has been eliminated; see UR (Unit Reserved) for new message. 
UL (UnLabeled) Message 



Re v i sed Syntax: 



-<mix number list> — UL <de v i c e>--<un i t number> — | 

I I 



Seman tics: 

Unchanged 
Ex amp 1 e : 

Unchanged 

UR (Unit Reserved) Message 

UR incorporates the UA (Unit Available) message. 

Syntax : 

-- UR <device specifier list> — | 



<device specifier list> 

!« . , 

I l< . 1 ! 

! I II 
<device> <uni t numbe r> | 

|- DK <unit number> — MPX — <mpx no> — PATH — <path no>-| 

! ! 

I- PK -| 

i 

j- MT -| 

S e m a n t i c s : 

The UR (Unit Reserved) message is used to reserve a unit to allow FE maintenance to be 
performed. The unit is no longer available for assignment. When a path is specified, only 
the path is reserved, not the unit. The unit may be restored to the system by entering 
UR-. 
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Ex amp 1 e : 
UR LP 13 



LP 13 RESERVED 
W (Waiting Mix Entries) Message 

Revi sed Syntax : 

__ w 

-/1\- ALL - 



-/1\- SWAPPER 



-/1\- MCSNAME <mcsname>- 



-/1\- IN <subsystem id> 

|- ( <processor id 1 i s t > ) 



<processor id 1 i s t > 

I < 



- GLOBAL 
_ l 

_ 2 

_ 3 

- 4 



Revised Semantics: 

The W (Waiting Mix Entries) message causes a display of those tasks which require operation 
action in order to continue; i.e., those suspended on an RSVP condition. The reason for 
suspension is included in the display. 

When SWAPPER is specified, only jobs running in swapspace will be displayed. 

When MCSNAME is specified, only jobs that originated from the specified MCS will be 
di sp 1 ayed . 

On a B6800 multiprocessor system, each displayed task is preceded by a subsystem indicator: 
processor id for a local memory task, "G" for a global memory task, or blank for a task 
whose subsystem location is currently unassigned. 

When IN is specified, only jobs with stacks running in the subsystem identified or the 
processor identified will be displayed. 

A typical response to a W message is as follows: 

1 WAITING ENTRIES 

3570/3571 50 LIBRARY MAINTENANCE 
1100 SECT REQ ON MCPMAST PK068' 

Swap jobs are flagged with an "#" between the priority number and the file name. The 
number in the active entry hsading is the total number of active entries including 
suppressed entries. 

New Ex amp I e : 

W ALL MCSNAME=SYSTEM/CANDE 
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This message will display all waiting jobs (including suppressed) that originated from 
SYSTEM/CANDE . 

New Example: (B6800 Mu 1 t i -Processor System): 

W SW IN(3) 

This message will display all waiting jobs (excluding suppressed) whose stacks are 
running in swapspace in processor 3. 

WD (What Date) Message 

WD has been eliminated; see TD (Time and Date) for new message. 
WI (What Intrinsic) Message 

WI has been eliminated; see SI (System Intrinsics) for new message. 
WM (What MCP) Message 

Syn t ax : 

Unchanged 
Seman t i cs : 

Unchanged, except as follows: 

A typical response to the WM message is: 

MCP : SYSTEM/MCP 3 1 . 200 . 900 

H/L UNIT: 64 

COMPILED: 3/22/79 6 16:27:48 (NEWP 31.197) 

COMPILE TIME OPTIONS ARE. 

DIAGNOSTICS DISKCHECK MTBF 

LINE INFO LOCKTRACE 

REVERSEPAPERTAPE SWAPTRACE 
H/L REASON: MANUAL 
GROUPID: ONEBY 
HOSTNAME: BLUE 
SYSTEM SERIAL NO: 277 
CATALOG LEVEL: 
NEXT MCP: NOT SPECIFIED 

WS (What Supervisor) Message 

WS has been eliminated; see CS (Change Supervisor) for new message. 
WT (What Time) Message 

WT has been eliminated; see TD (Time and Date) for new message. 
XS (Exceed Schedule) Message 

XS has been eliminated; see FS (Force From Schedule) for new message. 
PRIMITIVE Messages 

The following "primitive" messages have been added: 
??DUMP 

— ?? DUMP —| 

-<mi x number>- 
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The ??DUMP message will invoke a non-fatal memory dump (through the MCP procedure KEYIN) . 

??FS 

— ?? • FS —| 

|-<mix number>-| 

The ??FS message causes the execution of the indicated scheduled job. If ??FS is used 
without the mix number, all scheduled jobs are executed. 

??HS 

__ 7? _ HS —| 

|-<mix number>-| 

The ??HS message is used to suspend job selection when the CONTROLLER will not accept the 
HS message. An example of the use of the ??HS message is to inhibit job selection 
immediately following a Halt/Load. 

D2604 GENERAL - LIBRARIES 

A library mechanism has been implemented, which provides a set of procedural 'entry points' 
which can be called by other programs. 

See Appendix B, User Interface to Libraries, for details of implementation. 

D2782 GENERAL - "KTND=DISK" VS. " FAM I LYNAME " 

With the implementation of named head-pe r- t rack disk families (especially the ability to name 
them something other than "DISK") and the ability to name a disk-pack family "DISK", the last 
major distinction between the two forms of random access mass storage devices has been 
eliminated. Ultimately the differences in the behavior of the operating system when assigning 
files declared as KIND=DISK and KIND=PACK will also be eliminated. 

Currently (III. 1 > the selection of random access mass storage devices varies depending upon 
whether or not the KIND attribute has a value of DISK or PACK and whether or not the FAMILYNAME 
attribute has been assigned a value. If the KIND value is DISK then the system supplies the 
FAMILYNAME of "DISK" whether or not the FAMILYNAME attribute has been given another value by 
declaration, 1 abe 1 -equa t i on , or direct assignment. If the KIND value is PACK then the system 
supplies the FAMILYNAME of "PACK" unless it has been explicitly set to another value. In other 
words, the FAMILYNAME (even if assigned a value) is ignored if KIND is DISK and has two 
different default values if one has not been explicitly assigned. 

On III. 3 the values of DISK and PACK for the KIND attribute will become synonymous and the 
default value for FAMILYNAME will be "DISK". This has two implications: 

1. The FAMILYNAME attribute will be used when assigning files whose KIND is DISK, eliminating 
the phenomenon of I abe 1 -equa t ed FAMILYNAMEs being ignored. 

2. The assignment of files on the family "PACK" will require the explicit setting of the 
FAMILYNAME attribute (or the intervention of family substitution). 

To aid in the transition to a single default value for FAMILYNAME, on III. 2 a run-time warning 
will be given whenever a file from the family named "PACK" is assigned to a logical file that 
is declared with KIND=PACK and the FAMILYNAME has not been assigned. The warning and the noted 
problem can be eliminated by changing the logical file declaration to include 
FAM I LYNAME= " PACK . " 

D2794 GENERAL - DE I MPLEMENTAT I ON OF "XALGOL" COMPILER 

The XALGOL language will no longer be supported beginning with the III. 2 system release; the 
compiler will not be supplied, the MCP will not allow execution of XALGOL code files, CANDE 
will not MAKE or otherwise handle XALGOL symbolic files, WFL will not recognize XALGOL as a 
legitimate compiler name. 

The III.O PR1 and III.l XALGOL compiler will unconditionally produce a warning message 
describing its unavailability beginning with the III. 2 release. 

The III.O PR1 and III.l MCPs will unconditionally produce a warning in the job summary 
indicating that the code file will no longer run beginning on III. 2. This same message will be 
propagated back to CANDE users attempting to execute XALGOL code files (if their CANDEGETMSG 
flag is set in the USERDATAFILE) (or they have explicitly set messages for their session). 
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D2797 GENERAL - DE IMPLEMENTATION OF OLD INTRINSICS 

Iode i "fiies iC ?an!} at II U 7 PO InH f0 | : T a « ted !' d r f ." ' ' t ' d REA ° a " d WRITE sUteme "' s in pre-II.7 ALGOL 
itlelf comDiled witn »L tmnP&UATiZ" 1 ' ' '* that W£re co,n P iled by an ALGOL compiler that was 
III 2 sysTem release. $OLDFORMATIO compiler generat.on option) will be de imp 1 emen t ed on the 

To e |!JJ'?n P ?Lr d - I ! I:I MCP ^ "'i 1 produce L a warning message in the job summary (when attempting 
to link to these .ntr.ns.cs) .nd.cat.ng that the code files will no longer run beginning nn IE? 

i r CANDI 

session). 



, ,nK l0 lnese , ■"<■-.ns.cs) .nd.cat.ng that the code files will no longer run beginning on he 

g . ^ r.n £ hruSERDAliFI.Tro'r?^ 6 I 1 " bC V Sp, 1 yed l ° CANDE USe ' s lf the " CANDeSeTMSG 
r.ag is set in the USfcKDATAI- ILE (or they have explicitly set messages for their session). 

D2798 GENERAL - DE I MPLEMENTAT I ON OF OLD INTRINSICS 

pr^il'4 1 FORTRAN h code U fnn 1?,?"^^ and , f ree f j <; ' d READ, WRITE, PRINT and PUNCH statements for 
pre ii.4 mjkikan code tiles will be de impl emen t ed on the III. 2 system release. 

Also the intrinsic that supported the OPEN, CHANGE and INQUIRE statements (dealine with file 
attributes) for pre-II.8 PR2 FORTRAN code files will be ue impl emen t ed . l 8 '' e 

The III. PR1 and III 1 MCPs will produce a warning message in the job summary (when attemoting 
jo link to these .ntr.ns.es) indicating that the code files will no longer u beginning on hf 

g .: V : rin 8 „ruSERDAilFILE% m r S : h a8e T" ^ dis P'?> ed '« ^ANDE ««, if the,? CANDE^TMSG 
nag is set in the USERDATAFILE (or they have explicitly set messages for their session). 

D2799 GENERAL - DE I MPLEMENTAT I ON OF OLD INTRINSICS 

The intrinsics that perform I/O operations for pre-II.4 BASIC code files (and BASIC code files 
systeTre.ease" ' "' ' ""' COm P 1,ed wlth WLDBASIC set) will be de i m P 1 emented on the III" 

TS'iMJ'? ¥ Vu • nd . ln : 1 MCP ^ wii ! Produce a warning message in the job summary (when attempt in e 
o 1 ink to these .ntr.ns.es) .nd. eating that the code f.les will no longer run beginning on hi 

ag i " er.n 6 hruSElJA™LE e r^ S :„ ge l'" "' f is P't> ed to CANDE use '* ' ' theif CANDeSeTMSG 
nag is ,,et in the UbfcKDArAFILE (or they have explicitly set messages for their session). 

D2800 GENERAL - DEI MPLEMENTAT I ON OF OLD INTRINSICS 

The intrinsics that handled file and task attributes for pre-II.8 PR1 PL/I code files will be 
dein.pl emented on the III. 2 system release. De 

Til'il'J'? P ?J a ° d . 111 : 1 MCP ? wU1 Produce a warning message in the job summary (when attemotinn 
to link to these intrins.es) indicating that the code files will no longer run blginntng oS he 

ag i ^ ™ nlhruSER^TAF^T^* 86 ?"' be dis P'?y ed <° CANDE usefs if theif CAND^ETMSG 
nag is set in the USERDATAFILE (or they have explicitly set messages for their session). 

D2861 GENERAL - "B6800" MULTIPROCESSOR SYSTEMS 

INTRODUCTION 



single processor systems do not pay for the additional cost of providing for the 
possibility of multiprocessor systems, B 

resources are arranged in such a way that contention on multiprocessor systems is 
reduced as much as possible, v ,sl ™ s ls 

resources may be shared by autonomous systems, which cooperate in such a manner that 
a failure by either system will not cause the other system to fail, 

resources may be re-configured via software, under the users control, in order to 
cope with shifts in load, or failure of portions of a system. 

!nr^, deS !' gn . g0a,S l ( l he B6 5°° s y stems a,e «t through a combination of hardware and 
software features which are described in this and related D-Notes. -arciware ana 
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B6800 HARDWARE OVERVIEW 



The B6800 single processor system consists of a central processor, a maintenance 
processor, a memory cabinet containing up to one-half million words of memory, a 
peripheral control cabinet, and a power supply cabinet. 

The central processor of the B6800 is code compatible with other members of the 
B6000/B7000 series of machines. 

The memory cabinet of the B6800 system is dedicated to a single processor, thus allowing 
simpler, less costly, and faster hardware in the memory control. The maximum memory 
configuration allowed is 524,288 words. This memory may consist of either four stacks of 
131,072 words each or eight stacks of 65,536 words each. The two types of stacks may not 
be intermixed. Memory which is attached to the processor in this manner is termed 'local 
memory', and is not visible to other processors in a multiprocessor configuration. The 
memory control of the processor contains a jumper block that will provide for local memory 
to be either two-way or four-way interlaced, depending on the physical memory 
configuration available. As the interlacing of the memory modules can significantly 
improve the systems performance, it is recommended that the memory be interlaced whenever 
poss ibl e . 

The multiplexor on the B6800 is physically part of the central processor, and operates 
much like an additional operator family. However, the multiplexor is capable of running 
independently of the processor in order to service the peripherals, and interrupts the 
processor operations only when necessary to transfer data to or from memory. The 
multiplexor on a B6800 may have up to twenty I/O channels. These channels are dedicated to 
the processor to which they are attached and are not visible to other processors in a 
multiprocessor configuration. 

In order to configure individual B680O processor systems into multiprocessor systems, 
additional hardware is required. This hardware consists of an adapter in each processor 
which allows access to the * GLOBAL tm Memory cabinet. The GLOBAL Memory cabinet contains 
an independent power supply, logic to control access to the memory in the cabinet, and up 
to one-half million words of memory. This memory may be configured in the same manner as 
described for the local memory. In addition, the cabinet contains one processor adapter 
port for each processor that will be attached to the cabinet, up to a maximum of four. 
This allows a B6800 multiprocessor system to have up to four processors, with a total 
possible memory capacity of two and one-half million words, and up to eighty I/O channels. 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 
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GLOBAL MEMORY De s c r i p t i on 

The * GLOBAL tm Memory Module has a control panel with indicators and switches for 
maintenance and configuration. The following information about system configuration will 
be of interest: 

The GMM provides ports to four requestors, named A, B, C and D, and hubs to four modules 
of memory, named L, M, N and P. Each requestor port is cabled to a specific B6800 
processor. Each memory hub provides 6 5 5 3 o or 131072 words, depending on memory type. A 
set of LOCKOUT switches near the upper center of the panel can be used to lock out each 
port (from every hub) and each hub (from every port). The hub lockout switches may be 
used to put part of the memory off-line. The port lockout switches may be used to prevent 
a particular B6800 processor from accessing the GMM subsystem; that processor can then run 
as a simplex system. 

There is a matrix of REQUESTOR PORT LOCKOUT switches in the upper right portion of the 
panel; these may be used to set any combination of paths from particular requestors to 
particular memory ports. These switches should all be NORMAL for multiprocessor 
operation. While they may be used to divide the GLOBAL memory resources among simplex 
systems in a split system, it is more convenient under most circumstances to use the soft 
configuration capabilities of the system, which are explained in D-Note 2867. 

The MEMORY IN MAINTENANCE MODE switches should be down for normal MCP operation; they must 
be up for certain stand-alone diagnostic and dump programs. 

The HUB INTERLACE switches provide for interlacing memory addresses to improve access time 
to sequential locations. Specific pairs of hubs may be two-way interlaced, providing both 
are accessible to all requestor ports in use. (Which hub can be paired with which depends 
on the address ranges associated with each memory hub, as set by field engineering 
personnel. In the typical configuration where L spans 80000-9FFFF, M spans A0000-BFFFF, 
etc., the pairs are L-M and N-P . ) If all four hubs are accessible to all requestor ports 
in use, they may be four-way interlaced. As interlacing the memory modules can 
significantly improve the system's performance, it is recommended that memory be 
interlaced whenever possible. 

In addition to its function as a memory subsystem, the * GLOBAL tm Memory cabinet contains 
a Global System Control facility. The GSC provides communication and control paths 
between the various B6800 processors compris ; ng the system. 

Peripheral Configuration Cabinet 



The system may include a Peripheral Control Cabinet, with switch panels for various groups 
of exchanged units. When the system is being split, individual units can be made ready on 
paths to only the desired processors. When the system is joined (tightly-coupled), any 
unit ready for one processor must be ready for all processors to which it is exchanged. 
While the use of the Peripheral Control Cabinet will physically disable a processor from 
using a particular unit, the use of a system configuration file is sufficient to logically 
disable one or more units for any processor or group of processors. If a configuration 
file is in use, it is recommended that all exchanged devices be ready to all processors 
via the Peripheral Configuration Cabinet. This will prevent accidental "UNIT NOT READY" 
situations following a reconfiguration. See D-No t e 2867 for an explanation of soft 
configuration of GLOBAL memory systems. 

SOFTWARE OVERVIEW 



B6800 multiprocessor systems can be operated in three basic modes: 

Independent or simplex, where each processor operates as a single processor system. 

Multiprocessor (Tightly-Coupled or TC) , where two or more processors operate as a 
multiprocessor system under the control of one MCP. 

Shared Resources (Loosely-Coupled or LC) , where two or more independent systems may 
cooperate in order to share re sources. 

In an installation with four processors attached to a GLOBAL memory cabinet each of the 
three modes can exist simultaneously. Each mode offers certain capabilities, and can be 
used to advantage, depending on the needs of the user. 

If access to GLOBAL memory is allowed, the memory may be used either as PRIVATE memory, 
dedicated to the processor as an extension of local memory or as SHARED memory, which can 
be used to communicate and cooperate with other systems. Both modes of memory may exist 
simultaneously, or either without the other. Management of memory mode is explained in 
D-Note 2867 on soft configuration of GLOBAL memory systems. 

Access to peripherals may be controlled through either the Peripheral Control Cabinet, or 
via the configuration file. It is more convenient to utilize the capabilities of the 
configuration file. If communication has been established with other systems, then 
peripherals may be logically "moved" between systems to which they are exchanged via the 
"ACQUIRE" and "FREE" commands. These commands are explained in D-Note 2867 on soft 
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A B6800 processor operating in simplex mode is operating as a single processor system. In 
this mode the processor may or may not have access to GLOBAL memory. If physical access to 
GLOBAL memory is prohibited, the processor will be unable to communicate with other 
processors that may be attached to the GMM cabinet. Access to the GMM can be controlled 
physically via the LOCAL/REMOTE switch on the processor maintenance panel, or via the 
REQUESTOR LOCKOUT switch on the GMM cabinet. 

The LOCAL/REMOTE switch also controls access to DATACOM processors and Reader/Sorter 
processors. The switch must be in the REMOTE position in order to allow these devices to 
be accessed. The processor may be Halt/Loaded with the switch in the LOCAL position to 
prohibit access to GLOBAL memory, and then switched to the REMOTE position after the 
system is initialized in order to access either the DCP or Reader/Sorter subsystem. 

If physical access from a processor to the * GLOBAL tm Memory cabinet is allowed, the GSC 
can be used for configuration control, even though hardware switches or software 
configuration permit no Global Memory access by that processor; thus, even simplex systems 
may cooperate via the "ACQUIRE" and "FREE" commands. 

MULTIPROCESSOR SYSTEMS 



Multiprocessor (Tightly-Coupled or TC) mode involves two or more B6800 processors 
operating as' a single multiprocessor system. Each processor has local memory, and GLOBAL 
memory is utilized for any code or data structures that must be visible to all processors. 
Peripheral devices on TC systems may either be exchanged or non-exchanged. All devices may 
be used from any processor, even if the processor does not have a physical path to the 
device; in that case, the actual I/O will be done by a processor that has a physical path. 

Memory Subsystems 



The B6800 Multiprocessor architecture allows program stacks, data and code to reside in 
either Global or local memory. Any item residing in local memory is visible only to one 
processor; items in Global memory are visible to all processors. Since the B6800 hardware 
is optimized for quick access to local memory, and since there is no contention for local 
memory from other processors, it is the policy of the MCP to keep as much information as 
practical in local memory. 

The MCP ("DO") stack, with its code and data, resides in Global memory, along with all 
datacom messages and most independent-runner stacks. In addition, by default, all MCS and 
data base stacks and buffers are allocated in GLOBAL memory. As access times to local 
memory are faster than to GLOBAL memory it is preferable that, whenever possible, the user 
specify via the SUBSYSTEM attribute that MCS stacks and data bases run in local memory. 

User processes ("task" stacks), data, segment dictionaries ("Dl" stacks) and code 
generally reside in local memory. (With rare exceptions, the data allocated by a stack 
reside in the same location as the stack.) Once a task is initiated in the local memory of 
one processor, it normally remains there throughout its life. If the task is a SWAPTASK 
and the task is not restricted by its SUBSYSTEM attribute or parental visibility, and 
SWAPPER has established SWAPSPACES in two or more local memories, then the task can 
migrate from one local memory subsystem to another. See GENERAL note D2906 for a complete 
explanation of SWAPPER on TC systems. 

SUBSYSTEM Definitions 



A multiprocessor B6800 system contains one GLOBAL memory subsystem and a local memory 
subsystem for each processor. The local memory subsystems are identified by their 
processor ID numbers; the Global memory subsystem is identified by the letter G or the 
word GLOBAL. 

Subsystems may also be given names in the form of alphanumeric identifiers. Subsystem 
identifiers are defined by the system operator through the ODT command MS (Make Subsystem; 
see GENERAL note D2535). The reserved identifier SYSTEM always stands for the entire 
system as currently configured. The reserved identifier GLOBAL always stands for just the 
Global memory subsystem. (With software release III. 1 , any B6700 simplex or 
multiprocessor system, or any B6800 simplex system, is considered as comprising a single 
subsystem in wh ich all the main memory i s "GLOBAL. " ) 

Other subsystems may be defined including any one or more memory subsystems in the system. 
The set of defined subsystems can be overlapping. For example, four subsystems could be 
defined by the commands 

MS RED(l) 
MS BLUE(2) 
MS PURPLE ( 1,2) 
MS PINK( 1 ,G) 
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by which processor 1 is named RED. processor 2 is named BLUE. PURPLE defines a subsystem 
containing both processors (but not Global), and PINK refers to processor 1 and Global. 

If a subsystem identifier has not been defined via an MS command, or has been removed vi» 
an MS- command, that identifier is undefined. If an identifier has been defined, but none 
of the subsystems listed exist on the system, that subsystem is said to be "empty." For 
example. MS YELLOW(3) would define an empty subsystem on a system which had no processor 
numbe red 3 . 

Subsystem identifiers may be used as values of the SUBSYSTEM attribute in tasks and 
queues; see the next subsection. 

The system operator will see and will sometimes use the processor ID numbers identifying 

subsystems. but any specifications from the user or programmer must use identifiers 

defined via MS. The'mapping of subsystem identifiers to processor numbers may be changed 
by the system operator without changing user programs or control decks. 

The subsystem identifier definitions are stored in the JOBDESC file, and retained across 
Hail/Loads in the >ame manner as ADM specifications and job queue parameters. 

All communication with the operator and user employs the notations defined above. 
However. users of SYSTEM/DUMPANALYZER and of such MCP interfaces as SYSTEMSTATUS and 
GETSTATUS may encounter the "box" notation used internally by the MCP: memory subsystems 
are an array of "boxes" indexed by "box numbers." Global memory has number 1 (GLOBALBOX) ; 
local memory i s indexed by the processor ID number +1. The index zero indicates that no 
box assignment has been made. 

SUBSYSTEM Attribute 



The user or programmer specifies a subsystem by using the TASK attribute SUBSYSTEM, whose 
value is a simple name. 

Subsystem may be assigned an EBCDIC character string containing up to 17 upper-case 
alphanumeric characters, starting with a letter The value returned is the last value 
assigned, or a null string if no value has been assigned. The assigned value is translated 
into a set of memory subsystems (locals specified by processor, and/or Global) according 
to the MS definitions current lv in force. The SUBSYSTEM attribute is a <simple name> in 
WFL or CANDE, POINTER-va I ued in ALGOL, ALPHA in COBOL and STRJNG-va 1 ued in PL/ I 

The subsystem attribute may be assigned a value only when the TASK is inactive. It is not 

automatically propagated from a parent task to its offspring. 

A SUBSYSTEM attribute may be assigned to a job queue, via the ODT command MQ; e.g., "MQ 
SUBSYSTEM=BLUE" Any job entered in that queue will be assigned the specified subsystem. 
The attribute specification may be removed from the queue with "MQ SUBSYSTEM.", where a 
period follows the word SUBSYSTEM. The primary use of a SUBSYSTEM specification is to 
influence the choice of subsystem in which to locate a task. Such use will be discussed 
further under "Task Initiation." 

Process Fam l I i e s 



Processes on the B6700 or B6800 may be related to each other in various ways. A "job" is 
the manifestation of a set of one or more WFL statements entered via a card reader, typed 
in at an ODT. or initiated via such language constructs as START. STARTJOB or ZIP. (The 
CANDE commands WFL and COPY do not create jobs in this sense.) A job may spawn other 
tasks, and these may spawn more. Such offspring tasks are generally dependent on and 
remain related to their parents; the exceptions are creation of new jobs (via STARTJOB or 
ZIP) and of independent tasks (via ALGOL RUN, etc.). 

Task Initiation 



By default, the MCP on a multiprocessor system will allocate jobs and subroutines of jobs 

to Global memory. but it will allocate all other user tasks (with the exceptions noted 

above) to local memory. Jobs are run by default in Global to permit maximum flexibility 
in the placement of offspring tasks. 

The algorithm for selecting the subsystem for a new task is as follows: 

If the task will be dependent upon an ancestor, and that ancestor is in a 
local-memory subsystem, the new task wiii go into the same subsystem. 

if the task will be dependent upon an ancestor in the Global memory subsystem, and 
there is any possibility that it could store an uplevel pointer reference into any 
ancestor, the new task will go into the same (Global) subsystem. [See MCP note 
D2654 for further discussion of uplevel pointers.] 

If the task is not constrained to the same subsystem as an ancestor, then any 
SUBSYSTEM specification will be considered: If no SUBSYSTEM attribute has been 
specified for this task, or if the the named SUBSYSTEM is undefined, or if the named 
SUBSYSTEM is empty. then all local subsystems in the system are considered. If a 
non-empty SUBSYSTEM has been specified, then if it contains only Global memory the 
task will be placed in Global memory, otherwise, all local subsystems included in 
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the named SUBSYSTEM are considered. 

If the task is to be a swaptask, and there is a swapspace active in a subsystem 
being considered, the task will be assigned to the swapspace. There may be one 
swapspace in each local memory. Only those swapspaces which fall within any 
subsystem restrictions placed upon the task by either the user or the system will be 
cons ide r ed . 

All non-swap tasks pending initiation are entered into a schedule queue, from which 
£v y v a ££ removed in priority order. (If some task in a subsystem has been SUSPENDED 
BY SYSTEM, or if a higher-priority task eligible for that subsystem is scheduled 
other tasks will not be initiated in that subsystem, but tasks may be started in 
another subsystem.) If more than one local subsystem is being considered for a task, 
the task will be tested for fit in each subsystem. If it fits in none, it will 
remain in the schedule and be reconsidered from time to time. If it fits in one, it 
will be initiated in that one. If it fits in more than one, it will be initiated in 
the subsystem of whichever processor has recently been least busy. (The notion of 
"fit" is based on current and projected memory utilization.) 

The SUBSYSTEM attribute is treated as a request, not a binding demand, to guide placement 
of a task. There are three circumstances in which the attribute setting must be 
disregarded: 

1. The named subsystem is undefined. 

2. The named subsystem is empty. 

3. The task was constrained by ancestral relationship to a subsystem outside the named 
set. The firm rule is that a dependent task must not be more global than its parent. 

Whenever a SUBSYSTEM has been specified but had to be disregarded, a warning message is 
displayed (and logged) at the start of the task. 

Peripheral Subsystem 

On a TC system it is possible to have exchanged devices, non-exchanged exchangeable 
devices, and non-exchangeable devices. As each processor has its own multiplexor, I/O will 
be more efficient if, for those devices which are exchangeable, those devices are 
exchanged to each processor. The rationale for this is as follows: the MCP attempts to 
place all user stacks and associated data in local memory structures. This includes file 
buffers, and for direct files, the direct arrays. If the device associated with the file 
is exchanged to the processor in whose local memory the task is executing, that processor 
will do the I/O in the norma) manner. If the processor executing the task does not have a 
physical path to the device, two actions must be taken: first, the buffers for the file 
must be moved such that the processor (multiplexor) that will actually do the I/O can see 
them (i.e., to GLOBAL memory); second, the appropriate processor must be interrupted in 
order to initiate the physical I/O. For large numbers of I/Os this additional overhead can 
have a significant impact on throughput of the system. Performance will therefore be 
improved by either a) exchanging all exchangeable devices to all processors or b) running 
programs requiring non-exchanged devices on a processor that can see the required device 
or c) executing the task from GLOBAL memory. The choices are listed in order of 
pre f erence . 

Multiple Halt /load Units 



Each processor in a TC system may have its own Halt/Load unit, or family. Alternatively, 
two or more processors of a TC system may share the same Halt/Load unit or family The 
only restrictions are a) all MCP code files on all Halt/Load units must be identical, b) 
all members of the Halt/Load family must be exchanged to each of the proce:sors using that 
family. Identical MCPs means that the code files must have the same timestamp. The code 
files do not have to have the same title. 

Memory Dumps 



Due to the configuration of TC systems, memory dumps are slightly different from simplex 
systems. The processor that detects the fault causing the dump, or the processor that 
answered the operator input requesting a dump, becomes the "lead" processor for the dump 
This processor will control the dump routine, and all other processors will act to 
cooperate in the dump at the request of the lead processor. The lead processor is the only 
processor which will display the dump cause on the console. The lead processor must have a 
tape drive and an ODT available in order to take the dump. 

The memory dump will progress as follows: first, the lead processor will dump its local 
memory to tape; second, the lead processor will dump GLOBAL memory to tape; third, the 
lead processor will request each of the other processors, one at a time, to transfer their 
local memory to a buffer in GLOBAL, which the lead processor will write to tape. The lead 
processor will display on the console the memory address and processor number of the 
memory being dumped. GLOBAL memory addresses will not have a processor number displayed 
wi t h them. v ' 

Configuration rules 

B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 GENERAL 



PAGE 59 
MARK 3 . 1 

The following configuration rules apply to Multiprocessor systems: 

1. Each processor must have access to at least one tape drive and an ODT in order to take 
memory dumps. 

2. At least one processor must have a card reader in order to load off-line (stand-alone) 
tests, and to perform the initial cold start. 

3. Operator Display Consoles (ODTs ) must be configured such that the ODTs attached to 
different processors fall into different MINTERM groups; i.e., for a multiprocessor 
system with two processors, if processor one has ODTs with unit numbers of 42 and 43, 
the second processor must not have ODTs with unit numbers in the range 44 - 57. 

4. Peripheral unit numbers must be unique throughout the multiprocessor system: when a 
given unit is exchanged to different multiplexors, it must have the same unit number 
designation in each. When a non-exchanged peripheral unit appears on one multiplexor, 
that number must not be used for any unit on any other multiplexor in the same 
multiprocessor system. 

SHARED RESOURCES SYSTEMS 



B6800 systems may be configured into what are termed Shared Resources (Loosely-Coupled or 
LC) systems. Each LC system may consist of one to four processors with their associated 
local memories, and some quantity of GLOBAL memory. Each system has its own MCP and set of 
peripherals. Peripherals are not shared between LC systems simultaneously but control of 
units may be passed from one system to another through the "FREE" and "ACQUIRE" operator 
input commands. Each LC system is both logically and physically independent of any other 
system attached to the GLOBAL memory cabinet. Each may be independently Halt/Loaded, and 
failure of one system will not cause any of the other systems to fail. 

Using the features provided by the system software, an installation may create a set of 
independent systems which can communicate and cooperate with each other. The workload may 
be separated based on criteria developed by the installation, and resources may be 
allocated dynamically among the systems based upon the load. 

See GENERAL note D2867 for a detailed description of "Soft Configuration of Global Memory 

Sys terns" . 

GLOBAL Memory Cabinet 



In addition to the features mentioned for TC systems, the hardware of the GMM provides 
capabilities to support LC systems. The GMM contains a communications bus which allows one 
processor to send a message to another processor or to one of a set of processors. The GMM 
also contains registers which allow the software to "name" processors or sets of 
processors. Each set of processors with the same "name" is considered to be a member of 
the same system. Each processor adapter port in the GMM contains a set of "access 
registers". These registers allow the software to specify which processor families (i.e., 
processors with the same name) are allowed to access which areas of GLOBAL memory. Access 
is controlled on 4k word chunks, with any processor family having either NO access, READ 
ONLY access, or READ WRITE access to each chunk. Initial allocation of GLOBAL memory is 
controlled via the system configuration file. See D-Note 2867 on soft configuration for 
details. Each system which expects to operate as an LC system must have access to at least 
one 4K chunk of GLOBAL memory. This area will belong to the system, which will have READ 
WRITE access to the area. The area will be SHARED with other systems as a communication 
area. The other systems will be granted READ access to the area, but not write access. 

The granularity of GLOBAL memory allocation for the III.l system release is restricted to 
16K chunks, i.e. the system will allocate a minimum of four of the 4K chunks as a 
communications area. This restriction will be lifted on a future release. 

GLOBAL Memory Networks 

Each system operating in a loosely-coupled mode is considered to be a HOST in a network. A 
GLOBAL memory network may consist of up to four hosts. All communication between systems 
operating in a GLOBAL memory network occur either through the GMM communications bus or 
via shared areas in GLOBAL memory. The III.l system release does not support loosely 
coupling via data communications networks. 

HOSTNAME 



Each HOST in the network is identified by a HOSTNAME. HOSTNAMEs must be unique; i.e., no 
two systems in the network may have the same HOSTNAME at the same time. This name is used 
by programs and users to identify the location of resources to which access is desired. A 
hostname consists of 1 to 17 alphanumeric characters, beginning with a letter. A system's 
hostname may be set or modified at any time that the system is not in actual contact with 
another host. Each host must have a hostname assigned before attempting to establish 
communication with another host. Hosts which are in communication are sajd to be "attached 
to the network". Hosts which are not in communication are said to be "disconnected from 
the network". Hostnames are set via the ODT HN (HostName) command. HN <name> will 
establish a hostname. HN- will remove the hostname. HN will display the current hostname. 
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Each host in the network must have a "host" usercode. This user code is used for system 
as opposed to user, communications. For instance, an inquiry from the ODT which is 
directed to another host will have the host usercode passed along with the inquiry The 
host usercode is established for a given host through the HU ODT command. This command 
specifies the usercode to be sent with all "system" requests to another host HU 
<usercode> will set the host usercode. HU- wi 1 1 delete the current host usercode HU wi 1 1 
display the current host usercode. 



If an attempt is made to perform an inter-host system communication, and 
has not been established via the HU command, or the other host does 
usercode supplied as a "SYSTEMUSER" then an error will be generated and 
be aborted. 



a host usercode 
not recogn i ze the 
the reques t will 



A new locator for the userdata interface exists in order to support the concent of host 

usercodes. The locator is "SYSTEMUSER". This is the mnemonic to establish any usercode as 

^t^'p. !! ser . S " D - Nole 253S M SYSTEM/MAKEUSER for further details concerning the 
SiSIEMUSER function. ° 

Network Initialization 



Once a hostname 
ex i s t i ng ne twor 
at t ach a hos t t 
di sconnec t the 
The display wi 1 
the network. In 
command will ca 
network commun 
will be di scu 
SYSTEM/HOSTSERV 
the NET command 



and host usercode have been established, the system can attempt to join an 
k or initiate an network activity. The NET (NETwork) ODT command is used to 

the network. NET+ will initiate contact with other hosts NET- will 
host from the network. NET wi 1 1 display the current status of the network 

1 present the names, states, and addresses of each of the known hosts in 
addition to establishing contact with other hosts in the network the NFT+ 

use the SYSTEM/HOSTSERVICES library to be fired up. This library' provides 
ications functions to users and programs. The SYSTEM/HOSTSERVICES librarv 
ssed in more detail below. The NET- command will cause the 
ICES library to go to EOJ . See GENERAL note D2535 for details concerning 



HOSTNAME Attribute 



The HOSTNAME attribute exists as both a task and a file attribute. When the HOSTNAME 
attribute has been set to a hostname that is not the local hostname, an attempt will be 
made to initiate the task, or open the file at the specified host. The attributf may be 

read^t^L \\Z *" UMtLIuI*^ 'k' 1 '.^ ? ° T fMe 0pe " time - The HOSTNAME attribute may be 
read at anytime. HOSTNAME nay be label equated as a f i 1 e . a t t r i bu t e . The HOSTNAME 
attribute is the mechanism used to indicate to the system where a resource is to be found 
or where an action is to take place. ' 

SYSTEM/HOSTSERVICES Library 

™ e SYSTEM/HOSTSERVICES librarv .Prides functions to users and programs that are 
III is stem r eUa?e n ar COmmUn ' Cat,0n acroSS the netw ° rk - The functions implemented for the 

'' ?Sr™? t0 i in ? uirv « nd control. This allows either the system operator or users at 
terminals to check the status of and control tasks running at another host or to 
inquire about the status of the host itself omer nost, or to 



it is possible to transfer a file from one host 



hos t 



File transfer. Using the COPY syntax, 
to another . 

Logical I/O. Files may be created, read, written, or updated at another 

Job transfer. WFL decks may be transferred from one host to another and 
the second hos t . 

Tasking. Using normal IPC syntax, WFL or a user program, it is possible 
and control a task or tasks at another host. 

Inter-program communication: Using PORTS and SIGNALS or PORT files user programs may 
establish direct program to program communication across the network The same 
techniques may be used to communicate between programs running at the same host. 

Operator Inquiry and Control 



executed at 
to initiate 



In order 
ac t i ons 
messages 
through 
me s sage 



entering the 



for either a system operator or user to make inquiries or 
taking place at another host in the network, there must be „ 
Xlt^l* destln « d for a remote host. This is done through the 
CANDfc by recognizing messages that start with the keyword "AT 
may be directed to another host, e.g., one with the hostname 



f o 1 1 owi ng 

B7700/B6700 MARK 



attempt to control 

a method of detecting 

system console and 

From the console, 

of "SOMEWHERE", by 
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AT SOMEWHERE <ANY TEXT STRING> ETX 



The Controller recognizes the AT as indicating that the message is destined for a remote 
host. The Controller will not syntax check the message <ANY TEXT STRING>, but will simply 
pass the message to the Host Services library. The library will establish a dialog with 
the host SOMEWHERE if a) the host is known, and b) a dialog does not already exist. The 
library will transmit the message, receive the reply, and pass the reply to the Controller 
to be displayed on the console. CANDE users may direct commands to remote hosts by 
entering the following: 

'AT <hostname> <command> 

CANDE will pass the command to the Controller. The message will follow the same path 
outlined above, but the reply will be routed back to the users terminal 

A us ere ode is contained in each message. If no user code is available (i.e.. terminal 
usercode not set or command not from CANDE), the host usercode is used. 

When receiving a message, the usercode in the message is tested for its privilege (i.e., 
whether it is a "systemuser" or not). 

File Transfer 

Using the COPY syntax of Library Maintenance, files may be copied from one host to 
another. Files may be copied either from the local host to a remote host, or from a remote 
host to the local host. 

Ex amp 1 e s : 

COPY SYSTEM/MCP TO PACK ( HOSTNAME=A ) 

COPY X FROM YOURS (KIND=PACK, HOSTNAME=B) TO OURS (PACK) 

COPY MY/FILE AS YOUR/FILE FROM PACK TO PACK(HOSTNAME=C) 
The following restrictions exist for the III.l release: 

1. The file transfer capability is available only in new WFL. 

2. A minimal subset of the COPY syntax is supported for the III.l release. Not supported 
are ADD, COMPARE, BACKUP, CATALOG, lists of multiple files, multiple sources or 
destinations, AREACLASS, FAMILYINDEX, SINGLEPACK, INTERCHANGE volume specifications, 
copies involving tape as source or destination, copies ONTO, copies involving 
directories, copies with the local host as both the source and the destination. When 
a command to copy files is entered on the ODT, any files which have any usercode 
(<usercode> or *) omitted will assume the host usercode (not *). 

i. The following file types cannot be transferred with the COPY available on III.l: 
FILETYPE not equal zero, files with BLOCKSIZE larger than 1600 words, BCL files, files 
with unallocated areas in the logical middle of the file, non disk files, duplicated 
files, installation allocated disk files, interchange pack files. 

4 The restrictions listed under Logical I/O regarding file names and mnemon i c -va 1 ued 
attributes also apply to files being transferred across systems 

Family substitution will not occur on the cooperating host (the host at which the transfer 

was not initiated). The file transfer must be performed by a job that has a usercode 

associated with it and that usercode will be assumed to all filenames without an explicit 
use rcode (as usual). 

These restrictions may be removed on future releases. 

Log i ca 1 I/O 



The Host Services library will support logical I/O across the network in order to allow 
the user to read, write, and create files at another host. The file attribute HOSTNAME can 
be set either in the users program, or via label equation. This protocol requires the 
task to be running under a usercode. No checks are made for "systemuser" usercode. 

Examp 1 e s 

1) '.'BEGIN JOB FOREIGN/COMPILE; 

COMPILE PROG COBOL; 

COBOL FILE CARD(KIND=DISK,TITLE=S/PROG,HOSTNAME=D) ; 
?END JOB 

2) BEGIN 

FILE F(KIND=DISK,FILETYPE=8,TITLE="THE/FILE. " , 

HOSTNAME= " E . " ) ; 
ARRAY A [ : 1 2 ] ; 
LABEL EOF, 
WHILE TRUE DO 
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BEGIN 

READ(F. 12, A) [EOF] 



END; 
EOF: 

CLOSE(F) ; 
END 

3) BEGIN 

FILE F( K I ND=PACK.MAXRECS I ZE= 1 4. TITLE= "OVER/THERE " . 
NEWFI LE=TRUE, AREAS =10. AREAS I ZE= 100. 
HOSTNAME= "E. " ) ; 
ARRAY AfO: 1.2] ; 
BOOLEAN DONE; 
DO 

BEGIN 

WRITE(F, 12. A) ; 

END - 

UNTIL DONE; 
LOCK(F) ; 
END 

In the III I system software release, the following restrictions are in effect on 1^,.: 
I/O operations performed across systems via HOSTSERVICES : 

1. Only FILETYPEs of 0. 3 and 8 are allowed. 

2. The attribute KIND must be set. The only values allowed for KIND are TAPE TAPE" 
TAFE9. TAPEPE. TAPEGCR, PACK, DISK. READER. PRINTER and PUNCH. 

3. No UPDATE files are allowed. L'PDATEFILE must be FALSE. 

4. MAXRECSIZE must be less than 10,000 characters. 

5. USE routines are not supported. 

6. In order to create a file, the attribute NEWFILE must be TRUE. If the attribute i- 
not set, or is set to FALSE, HOSTSERVICES will search for an existine file Note •>,.,: 
NEWFILE cannot be changed by the FA command if the program hangs "on a "no t'i - 
condition. 

If NEWFI LE=TRUE. UNITS=CHARACTERS and I NTMODE= S I NGLE . the file actuallv created w; 
have UNITS=WORDS. ' 

7. No relative I/O; no keyed I/O. 

8 . No direct I /O . 

RSVPs wiil nor propagate back to the user's host 

There must be a USERCODE associated with the task performing logical I/O operations 

11. Use of the following attributes is not supported bv HOSTSERVICES. If the attribn - 
can be set. any value assigned before the file is opened will be ignored at f . ; • 
assignment; any attempt to read or write the attribute after the file has been ope^ej 
will generate an attribute error. 

AREACLASS 

ASSIGNTiME 

ATTVALUE 

ATTYPE 

BLOCK 

CYL I NDERMODE 

ENABLE INPUT 

EOF 

ERRORTYPE 

EXCLUSIVE 

IAD 

I NTERCHANGE 

IOC LOCKS 

I O IN ERROR 

MYUSE 

POPULATION 

PRESENT 

RECEPTIONS 

RECORD 

RECORD I NERROR 

RESIDENT 

ROWADDRESS 
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ROWSINUSE 

SIZEMODE 

SIZE2 

SPEED 

STATE 

TANKING 

TRANSMISSIONS 

UNITNO 



12. 



^llTBi^^^'^^^'-^^^^Xt^ 



tile is opened will generate an attribute error 



AREAS I ZE 
FILETYPE 
UNITS 
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For each of the following mnemonic-valued attributes the v.i,,,, t;*,„,4 k i 

not supported bv HOSTSFRVirm: a ,-„„„...' values listed below it ar 

HOSTSERv'cES if one oTTi^I^r i^l^llV ^nTJ Vo .°S.| ..' \llSl . 'nol .^f.S 



re 

y 



A. SECURITY TYPE 

CONTROLLED 

B. FILEKIND 

APLDATA 

APLWORKSOURCE 

ARCHTVELOG 

BACKUPPRINIER 

BDDATA 

CATALOG 

FIRMWARE 

INFOFILE 

LCOBOLSL3CODE 

LCOBOLSL5CODE 

LCOBOLSYMBOL 

MDLCODE 

MDLSYMBOL 

NULLFILE 

RECOVERYFILE 

REMOTEAUDIT 

REMOTEBACKUP 

RSNETFILE 

RSPCODE 

RSSORTTABLE 

SCHEDULEFILE 

UCRFILE 

C. EXTMODE or INTMODE 
BCL 
HEX 



14 

15. 
16. 



The attributes FILEKIND and PROTECTION are applicable only to disk files If « fil 
an at:r!Su?e t er?or° n - diSk d " lce - "' -""P? '• ••«» <Vs° e . \ tf, b'u! " wi ! f ge^er'ale 

m«:t f be%:Iform:a e0PENmay " 0t bC SCt tOFALSE t0 close » fi "; «» explicit Cose 

The file attributes FILEKIND, SECURITYTYPE, SECURITYUSE and SECURITYfiHARn »,„ ; 

if a permanent disk file is assigned (NEWFILE=FALSeV If hTT^I ,2 ^°, ■ '8 nored 

rv'.;!-::.::':}':::-,!!.-::.^,:- ?;,-[* H 2» /?:• s fe 'iti.''!!"'- 1 

assignment time. However, if the attribute is set aftfr ,i° fT? P hvs '£ al flle a * f >'e 
physical file will be changed accordingly the f ' le haS been °P ened - 'he 

' 7 - F^LTRA^^vC^ VBl " i°' the fMe •»'•*-»• ™ANSLATE is 

be changed to FULLTrInI^^^^ " "^ su PP° rted ; »"* "que, l for DEFAULTTRANS will 

,8 ' TOSTSERvJceI" 168 Thi: h re^rict?in d u " der /' new " <P°st-II.9) WFL are acceptable to 
va?u! ER y n cfuding T TiTLE e :nd'sEC^ITYgu^D. t0 " y attr ' bute » hich *•• • "le »« as its 

19 ^n^f^fr^r^rtgnor^ 1 bef ° fea '^ iS ° Pen « d ' »"» »«*«• '», other 
The TITLE of a disk file cannot be changed while the file is open. 

it a ..« fi ! e h" SECURITYTYPE GUARDED . 'he associated guard file must grant access onlv 
by^usercode; i.e., the access specification in t he'guardf i 1 e mu.l oe of the following 

USERCODE X; 
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Jf the access specification is in either of the two following forms, access to the 
file will not be granted to the specified program: 

PROGRAM Y ■ 

USERCODE X USING PROGRAM Y; 

22. For files accessed via HOSTSERVICES the default values for {NTOODE »nd EXTMODE are 
different from the defaults used for normal logical I/O. INTMODfc and fcAlMUUE, snouia 
be explicitly set if tne defaults used by HOSTSERVICES do not g.ve the des.red 
results. 

Some of these restrictions may be removed on future releases. 

Job Transfer 



wfi h»< heen modified to interface to the Host Services library. This allows users to 
Transfer "'entTre job decks to a remote host for interpretation and execution. This feature 
is invoked by prefacing the job deck with a card as follows: 

<1> AT <hostname> BEGIN JOB 

and ending the job deck with a card as follows: 
<I> END JOB 

I„arac,er nd :r„ot al?owe7^^^ 

dck topped io Reader need only start with a^BEG.NJOB^^order to avo.d^ <I> AT 

remo Hobs oe astumed'for WFL* remot e j obs . A usercode/password must appear exp.ic.tly 
within the job deck. No check will be made for "systemuser usercode. 

For the III.l release, the transfer of BINARY formatted decks is not supported. 
Task i ng 

Tasks may be initiated at another host by setting the task a t tribut e HOSTNAME to a 
hostname that is not the local host. The task attribute >sav liable in WFL and in the 
user languages. It may be set at any time prior to task initiation. 

This protocol requires the job to be running under a usercode. No checks are made for 
" sy„s t emuser " usercodes. 

Examples 

1) ? BEGIN JOB FOREIGN/TASK; 

RUN T; 

OPT I ON=FAULT , ARRAYS ; 

PRIORITY=40; 

HOSTNAME=F; 
PROCESS RUN Z; 

HOSTNAME=G ; 
?END JOB 

2) BEGIN 

TASK T; 

PROCEDURE EXT; EXTERNAL; 

REPLACE T.NAME BY "FOREIGN/PROG."; 

REPLACE T. HOSTNAME BY "H."; 

PROCESS EXT[T] ; 

WHILE T. STATUS > DO 

WAITANDRESET(MYSELF . EXCEPT I ONEVENT) ; 

END. 
The following limitations exist on III.l: 

1. Compile and go is not supported across the network. 

2. The CONTINUE statement is not supported across the network. 

3 The following attributes are not allowed to be used across the network: EXCEPTIONTASK, 
EXCEPT I ONEVENT, PARTNER, TASKFILE. 

4 Tasks initiated at a remote host may have one parameter which is an array of less 
than 512 words in length. The array will be passed by value. 

5. If the task attribute FILECARDS is used, the following restrictions apply to the label 
equa t ion s t r i ng : 

All file names must conform to new (post-II.9) WFL syntax. File names must be 
composed of only alphanumeric characters. 
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£?2L sp ? c ' f icat ion of file KIND must conform to new (post-11.9) WFL syntax. No 
KIND lists are allowed. 

These restrictions may be removed on a later release. 

INTER-PROGRAM COMMUNICATION 

An entirely new mechan i sm for supporting inter-program communication has been introduced 
on III. . This mechanism, called PORTS and SIGNALS, is a very general, very flexible 
program to program communication tool. Any two programs located anywhere in the network 
will be able to establish a communication path and exchange data. A new file kind, PORT 
has been introduced to allow easy access to this mechanism for the user languages See 
this'^t.,?' Im P lementatlo » of Inter-Process Communication", for de t a i 1 s on f he ' use of 

N! i ,s i cd l lire . 

D2 8 67 GENERAL - SOFT CONFIGURATION OF GLOBAL MEMORY SYSTEMS 

Release III.l of the B6700/B6800 system software offers users the abilitv to 
reconfigure a B6800 multiprocessor system as a shared resources or oosely-coup edVo 
system Use of this feature allows a site to create a set of coop a ing and/or 
independent subsystems each consisting of a group of shared or Sedica ed g hard"wa?e 
resource* A companion feature is the Multiprocessor System, which is described in 
D-note D2861. The reader should be familiar with D-note D2861 before continuing 

Soft configurations of * GLOBAL tm Memory systems are system configurations controlled 
by the operat.ng system. A though a processor on a Global Memory System may physica lv 
be capable of using part.cu ar hardware resources such as a packormemory module t 
may be restricted logically from doing so. A processor may also have software 
restr.ct.ons as to other processors with which i, may cooperate and/or communicate 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 

A global memory module (GMM) has 4 requestor ports to which B6800 processors mav he 
attached. Consider the following diagram of a single GMM: processors may be 



I I I I requestor ports 
2: >tT^V hp r t l S ,lZ nan,ed A ' B ' C and ° f ° r " ur P°- ° f addressing any B6800 which 



A B6800 installation may consist of one to four B6800 processors. In order to counle 
more than one processor, a global memory module (GMM) i s requi ed The processors are 
simply connected to the requestor ports of the GMM (see D-no? D2861) >Sr example a 
rrr^Cinf diagram? 801 "" 8 SyStCm "' * ttaCh B68 °° Pressors to ports T^^B .. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 GENERAL 



PAGE 66 



MARK 3 . 1 






Ports C and D remain unused at this installation. 



work 
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Assume that an installation consists of three B6800 processor 
of peripheral devices. The three processors are attached t 
in the following diagram: 



rs, a GMM, and a complement 
o GMM ports A, B, and C as 



I A 



GMM 
BCD 



B6800 





Por t D is unused . 

The installation has five choices of how the three processors may be distributed among 

work i ng g roups : 

A. Three one-processor groups. 

(A, B, and C loosely-coupled) 

B. One three-processor group. 

(A, B, and C tightly-coupled) 

C. One two-processor group and a one-processor group. 

(A and B tightly-coupled, loosely-coupled to C) 
(A and C tightly-coupled, loosely-coupled to B) 
(B and C tightly-coupled, loosely-coupled to A) 

Note that any of the processors may be omitted (i.e not used). 
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Characteristics of a Group 

A group is a set of hardware resources working together as one system. Each group has 
its own operating system and is designed to keep running no matter what happens to any 
other group. A group may consist of only one processor or as many as four processors 
tightly-coupled. A group can Halt/Load, CM, dump, power off, etc. with no effect on 
other groups. Each group looks somewhat like a separate computer system. HALT and 
CLEAR of any processor will propagate to any other processor in the same group but will 
not propagate to processors in other groups. 

To some extent, the Global System Control (GSC) manages the requestor ports. All ports 
which are attached to processors in the same group will be given the same system ID 
within the GSC controls. The system ID enables the GSC to control the extent to which 
a processor can utilize other processors and global memory modules. No other group may 
acquire a processor port which has a valid ID. The HALT and CLEAR function buttons of 
the processor will clear the port IDs within the GSC. HALT and CLEAR are also 
propagated to all processors at ports with processors of the same ID. The global 
system ID is displayed via the "SC" ODT command whenever a processor is on-line to the 
Global System Control (GSC). 

Ex amp 1 e 2 

Assume that the installation is the same as in example 1. 







C 
A I 


iMM 
3 C 


D 

1 






1 






1 


B6800 
BLUE 




B6800 
BLUE 


1 


B6800 1 
RED 



Ports A and B are tightly-coupled as the two-processor BLUE group. Port C is the 
one-processor RED group. No matter what happens to one of the two groups, the other 
should not be affected. The RED group need not even run on the same MCP as the BLUE 
group. RED and BLUE are autonomous. 

If either processor in the BLUE group is HALTed or CLEARed, the other processor in the 
group will also HALT or CLEAR. However, HALT or CLEAR of the BLUE group will not 
affect RED. 
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Global Memory Assignment 

It is obvious from the diagrams of global memory systems that the GMM is common to all 
processors and therefore must be common to all groups. Whenever a group is 
initialized, it may be assigned some amount of the global memory which it can control. 

Whenever a tightly-coupled group is created, it must have access to some amount of 
global memory since it must necessarily have a common memory area. Furthermore, no 
other group will be allowed access to that area. This global memory area is termed 
PRIVATE global memory. Without it, processors cannot be tightly-coupled. 

During initialization, the MCP wi 1 1 attempt to acquire its private memory allocation 
from the set of installation resources. The acquisition will be successful if (a) the 
memory physically exists, and (b) no other group has previously acquired the memory. 

The GMM contains access switches which can be set by the processors. Once set, a 
processor may access the memory controlled by the switch, and all other processors will 
be denied access. There is, however, provision to share the memory with other 
processors on a read-only or read/write basis. 

Two or more groups which are loosely-coupled may communicate via Host Services provided 
each group allows each of the other groups read access to some of the global memory it 
controls. This memory is termed SHAREREAD memory and is necessary for Host Services 
communication between groups. The group to which the SHAREREAD memory is assigned will 
have read/write access. That group will grant read-only access to any group to which 
it wishes to send a message. No other group is allowed to write into its memory space. 
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Example 3 

Assume an installation as in example 2: 




Each B6800 has local memory (see D-note D2861). In this example, ass 
local memory has 32 1 6K memory modules. Therefore, mods 0-31 ar 
processor. Also assume that there are 32 1 6K modules of global memory 
any processor to reference mods 32-63 will be a global memory request 

The BLUE group must have some PRIVATE global memory in order for the two 
lc g PBTVA^ Up C - In '"is example, the modules 32-59 will be allocated to 
as PRIVATE memory. Modules 60-61 will also be assigned to the BLUE grou 
»f m QH^p£fn '° send / Iness ag" to RED). Modules 62-63 will be assigned t 
as SHAREREAD memory (used to send messages to BLUE). The RED group requ 
global memory as it is a one-processor group. However, PRIVATE memory 
J" e „^" n assigned to the RED group and it would have simply been used a 
kT % memory. Since both groups have allocated SHAREREAD m 
capable of communicating via the Host Services mechanism. 



ume that each 

e local to each 

An a t t emp t by 



proces sor s to 
the BLUE group 
p as SHAREREAD 
o the RED group 
ires no PRIVATE 
could very we 1 I 
s an ex t ens i on 
emory , they are 
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PiTipK'ra! Unit Assignment 

The GSC does not manage peripheral units. Each group must poll every other group to 
determine if a peripheral unit may be acquired. A group being polled will reject the 
request if the unit is in use. Units which are physically exchanged among groups must 
he disallowed to all but one group. No i e that two processors which Ha i t /Load from the 
same unit may not belong to separate groups. 

E ,\ a mple ■* 

Assume the installation of ex amp 1 e 3 : 



GMM 
A B C D 



B68O0 B6800 B6S00 

BLUE BLUE RED 



PK6fc (Ha It /Load unit) 

PK64 (exchanged Halt /Load unit) 

The two processors of the BLUE group share the same Halt/Load unit via a peripheral 
exchange. Since they are managed by the same operating system, it is OK. However, RED 
must have its own Halt/Load unit because no tables are shared between the two 
autonomous systems. There is no reason to disallow a physical exchange of PK64 or PK66 
among all three processors; however, simultaneous use of the same peripheral units by 
ihe (wo groups niusi be logically disallowed. 

If. b> chance. PK66 were already assigned to the BLUE group and the RED group were 
subsequently loaded, the RED group would poll the BLUE group and BLUE would reply that 
access to PK66 is denied. RED would then inform the operator: 

GROUP DOES NOT OWN HALT/LOAD UNIT-OK TO USE PK66 

The system operator then must resolve the problem by forcing BLUE to relinquish control 
of PK66. He may respond OK to RED in order to allow system initialization to continue. 

The same scheme is true of non-Ha I t /Load units. However, since those units are not 
critical to initialization, the RED group will simply initialize without them. The 
operator may later have the RED group acquire the peripherals. 
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Con figuration File 

The installation manager must decide how the set of installation resources is to be 
divided into groups. That task is accomplished by building a CONFIGURATION FILE which 
contains an initial description of all groups. There is a symbolic form of the file 
(created by the user) and an object form (created by giving the symbolic form as input 
to a Burroughs supplied utility program). The utility program is called 
SYSTEM/CONFIGURATION which is a new III.l release item. 

The symbolic form of the CONFIGURATION FILE is very easy to generate It may be a card 

deck, a CANDE sequenced data file, etc. It allows groups and entire installation 

configurations to be defined. The symbolic file is a series of initial group 

definitions and optional installation definitions. The syntax of the statements is as 
foil ows : 



B770.0/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 GENERAL 



MARK 3 . 1 

GROUP Statement 

— BEGIN — GROUP — <group id> — <processor section>- 



-<global memory section>-| j -<opera t i ons section>- 



> END GROUP — 



i 



-<pe r i phe ra 1 section>- 
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(group id> 
— < 1 e t t e r >- 



/16\ <letter>- 

|-<digi t> — 



<processor section> 

— PROCESSORS: 

!<-/3\ 



I 

> PROC — <node id>- 



I 



j- LOCALIZE <mem list> -j 



<node id> 

A — 

B - 
C - 
D - 



coperations sect ion> 

— OPERATIONS: — <ODT commands> 



cglobal memory section) 

| < 1 

I I 

— MEMORY: PRIVATE <mem !ist>— ; — 

- SHAREREAD - 



cperipheral sect ion> 

— PERIPHERALS: — <unit list> — 



cmem 1 i s t > 



MODS — <mod range>-| 
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<raod range> 



|< , | 

! I 

— <modul e number > 

I I 

I- - <module number> -| 



<uni t 1 i s t > 

j< , I 

<uni I number > | 

I I 

|- - — <unit number>-| 

Seman tics: 

The GROUP statement is used to define autonomous subsystems. It allows a site to 
define hardware resources which will be dedicated to that particular group. Those 
resources include processors, global memory modules, and peripheral units. It also 
assigns to the group a name (group id) which is displayed in response to "WM" and "GC" 
ODT commands . 

The <processor section> consists of a list of not more than four processor nodes that 
run under control of the same operating system. If there is only one node in the list, 
the group is monolithic (see D-note D2861). During initialization, acquisition of all 
specified nodes is attempted. If the node is unused or has already been assigned a 
family name via the Global System Control (GSC) , the acquisition will fail and the 
group will initialize without the node. Any nodes which cannot be incorporated at 
group initialization time may later be brought into the group by making the node 
available and Halt/Loading the group. 

The LOCALIZE command following a processor node designates that the memory is to be 
treated as local to that processor. That memory must have lower addresses than any 
other global memory designated to the group. 

ODT commands may be entered under the <operations section>. Currently, only the ODT DL 
command is allowed. See GENERAL note D2S3S for DL syntax and semantics. Commands 
specified in this section will be performed during the initialization process of the 
group. 

The <peripheral sect ion> consists of a list of peripherals to which communications 
paths may be established. During system initialization, each group will poll all other 
active groups as to whether it is appropriate to use the peripherals assigned to it. 
Any peripheral which is assigned to another group will be deleted from the polling 
group's description. The processors of a group will not attempt to use any peripheral 
unit that is not included in the list even though physical paths may exist to those 
units. If the section is not specified, the group will establish I/O paths only to 
non-exchangeable units and units designated as Halt/Load units. Such Halt/Load units 
will not be written upon until the system operator has notified the MCP that it is OK 
to do so. 

The <global memory section) consists of a list of global memory which the group will 
manage. That memory may be specified as PRIVATE or SHAREREAD . 

The PRIVATE modifier specifies exclusive use of the global memory. If two or more 
processors are in the group, the PRIVATE memory will be used for t i gh 1 1 y coupl i ng the 
processors. If the group is monolithic, any private global memory which is specified 
will simply be dedicated to the monolithic processor as an extension to local memory. 

The SHAREREAD modifier specifies memory which the group may share with other groups for 
the purpose of loosely-coupled global memory communications. The shared memory must be 
visible to any groups that attempt such communications with the group. 

If the <global memory section> is not specified, the group will not attempt access to 

any global memory. Lack of shared memory prohibits the group from establishing 

loosely-coupled global memory communications with other groups. Lack of private memory 
prohibits tightly-coupled processor configurations. 

INSTALLATION Statement 

-- BEGIN — INSTALLATION — < i ns t a 1 1 a t i on id>— GROUPS — : > 

>-<group list >-- END — INSTALLATION — ; 1 
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< ins t a 1 I at ion i d> 
— < 1 e 1 1 er* 



/16\ <letter>- 

|-<digi t> — 



<group list> 
<group id>- 



Semant i cs : 

INSTALLATION statements may also be included in a configuration file. The purpose is 
merely to allow total installations to be defined within the configuration file. Any 
number of installations may be defined. INSTALLATION statements are optional and, as 
will be shown later, are merely a convenience mechanism. 
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Exampl e 5 

Assume the installation resources of example 1 





A 


GMM 
BCD 




III! 
1 ! 1 


i 
1 1 1 


[ 

B6800 

1 


1 
B6800 

! 




1 
B6800 | 

1 



This installation has been running in the default mode (i.e it has been running as a 
3-processor tightly-coupled installation) because no groups have ever been specified. 
Now, the installation manager wishes to assume the configuration of example 3: 



GMM 
A B C D 

Tim 

I ! I 



I 



I 1 II 

B6800 | | B6800 | j B6800 
BLUE j j BLUE | | RED 



Assume also that processors A and B Halt/Load from PK64 and processor C Halt/Loads from 
PK66. There are three other packs PK68-70 which are exchanged to all three processors. 
The installation has 5 tape drives, MT81-85 which are exchanged to all three 
processors. There are three ODTs , SC44, SC60 and SC6 1 . SC44 is attached to processor 
A, SC60 is attached to processor B, and SC61 is attached to processor C. There are two 
line printers. LP13 is attached to processor A, LP14 is attached to processor C, and 
there is no line printer attached to processor B. 

In addition, the installation manager would like to define a 3-processor 
tightly-coupled group which controls all the resources. He would like to run on the 
BLUE-RED configuration during the day, then reconfigure to the 3-processor 
tightly-coupled configuration at night. The symbolic configuration file may look like 
the f o 1 1 owi ng : 

BEGIN GROUP BLUE 
PROCESSORS: 
PROC A; 
PROC B; 
MEMORY : 

PRIVATE MODS 32-59; 
SHAREREAD MODS 60-61; 
PERIPHERALS: 

UNITS 13,44,60,64,68,69; 
END GROUP; % BLUE 
BEGIN GROUP RED 
PROCESSORS : 

PROC C; 
MEMORY : 

SHAREREAD MODS 62-63; 
PERIPHERALS: 

UNITS 14,61,66,70,81-85; 
END GROUP; % RED 
BEGIN GROUP THREEBY 
PROCESSORS : 
PROC A; 
PROC B; 
PROC C; 
MEMORY : 

PRIVATE MODS 32-63; 
PERIPHERALS: 
UNITS 1-255; 
END GROUP; % THREEBY 
BEGIN INSTALLATION DAYTIME 

GROUPS: BLUE, RED; 
END INSTALLATION; 
BEGIN INSTALLATION NIGHTTIME 
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GROUPS: THREEBY; 
END INSTALLATION; 

The installation now has specified all the groups it will need. 
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Creation of the Configuration File Object 

After having created the symbolic CONFIGURATION FILE, the SYSTEM/CONFIGURATION program 
is run to create the object file which the system will actually use (this is similar to 
compiling a symbolic file to create an object code file which is executed). The input 
file to SYSTEM/CONFIGURATION has an internal name of "SOURCE", the output file has an 
internal name of "OBJECT". The file titles of these files are defaulted to 
"SYMBOL/CONFIGURATION" and "SYSTEM/CONFIGURATION". 

Example 6 

Assume the symbolic file created in example 5 is called "SYMCONFIGURATION" . The object 
file is to be called " SYSCONFIGURATION" . A job to create the object file may look as 

f o 1 1 ows : 

?RUN SYSTEM/CONFIGURATION; 

FILE SOURCE (TITLE = SYMCONFIGURATION); 

FILE OBJECT(TITLE = SYSCONFIGURATION); 
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The MCP must now be informed of the name of the configuration file, 
command is provided for that purpose. 

CONFIGURATION FILE (CF) Command 

— CF | 



The 



CF" ODT 



+ 



-< f i 1 e name>- 



Seman t i cs : 

The CF command is used to designate or display the title of the current configuration 
file. 

CF with no options displays the title of the current configuration file. 

CF+ selects SYSTEM/CONFIGURATION, the default, as the configuration file. 

CF- undesignates the configuration file. 

CF <file name> selects the named file as the configuration file. 

Examle 7 

After having compiled the object configuration file of example 6, the following could 
be entered via ODT to designate "SYSCONFIGURATION" as the configuration file: 

CF SYSCONFIGURATION 

The CF command does nothing to the configuration file. It merely stores the file name 
into the system tables so that any reconfiguration will know where to find a 
description of the groups. It need only be done if a reconfiguration is initiated from 
a group. If the configuration file were never specified or the file did not exist, 
CONFIGURATOR, the MCP procedure which does the reconfiguration, would generate a "no 
f i 1 e " cond i t i on . 
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Use of the Configuration File 

The CONFIGURATION file is only used when a RECONFIGURATION is initiated. It must 
contain a description of each group which is to be in the new configuration. During 
the RECONFIGURATION, the new group descriptions are extracted from the file and stored 
in the system information tables of each new group. A group is not required to have a 
configuration file unless it is chosen to initiate a RECONFIGURATION. The file is not 
used until another RECONFIGURATION is initiated. 

In order to maintain a group's integrity, no group has access to any other group's 
current system information tables. Via the CONFIGURATION file, only the initial 
configuration of any other group is available at RECONFIGURATION time. Subsequent 
FREEs or ACQUIRES may have altered the group's current tables, but the group's 
description in the configuration file is not disturbed. Thus any FREEs and ACQUIRES 
done previous to a RECONFIGURATION are lost. 

RECONFIGURE Statement 



— RECONFIGURE 



- INSTALLATION AS <group list> 

- GROUP 1 |- DEFAULT 

- INSTALLATION — AS — < i ns t a 1 1 a t i on id>- 



Seman t i c s : 

The RECONFIGURE command regroups the hardware resources according to the groups 
specified in the group list. If INSTALLATION is specified as the current 
configuration, all installation resources are reconfigured to the new configuration. 
If GROUP is specified as the current configuration, all resources assigned to the group 
will be reconfigured into the new configuration. A reconfiguration may cause a 
Halt/Load of existing groups which are being reconfigured into new groups. 

Any subset of the <group id>s defined in the configuration file may be specified in the 
new configuration. Not all defined <group id>s need be specified and a <group id> 
cannot be specified more than once. 
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Ex amp 1 e 8 

After having specified the configuration file via the "CF" ODT command, the 
installation may be reconfigured. In order to go to the BLUE-RED configuration, the 
operator could enter: 

RECONFIGURE INSTALLATION AS BLUE, RED 

or 
RECONFIGURE INSTALLATION AS DAYTIME 

The second form is convenient as it allows the creator of the configuration file to 
designate an entire configuration by one name. 

At night, when the installation is ready to reconfigure to the three-processor 
tightly-coupled configuration, the operator can enter: 

RECONFIGURE INSTALLATION AS THREEBY 

or 
RECONFIGURE INSTALLATION AS NIGHTTIME 
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Default System Configurations 

The configuration file should be used by any site that wants sophisticated system 
configurations. However, some sites want only to Halt/Load their machines and have the 
system automatically configured. The default GROUP will consist of: 

1. All processors directly attached to the GMM to which the lead Halt/Loading 
processor is attached. 

2. All peripherals (1-255). 

3. All memory within the GMM to which the Halt/Loading processor is attached. 

At any time, the operator may enter: 

RECONFIGURE INSTALLATION AS DEFAULT 

or 
RECONFIGURE GROUP AS DEFAULT 

DEFAULT is system-defined and requires no configuration file. 
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Modification of Existing Oroups 

FREE and ACQUIRE Statements 

— — FREE SHAREMODS — 



ACQUIRE -| 



I 



-<mod range>- 



- PRIVATEMODS -| 

- PROC — <node id> 

-<unit type> — <unit nuraber>- 



Semant i cs : 

Existing groups can be altered by the FREE and ACQUIRE commands. 

The FREE command is used to detach resources from an active group. 

The ACQUIRE command allows an active group to acquire additional resources. 

)[ f the resouces requested are assigned to another active group, a dialog will be 
established between the two groups such that the other group will be asked to 
relinquish control of the resource. 

Any change permanently alters a group; i.e., the results of alterations are maintained 
across Halt/Loads but not RECONFIGURATIONS. The original group definition, whether 
obtained from the CONFIGURATION FILE or through default configuration, specifies the 
initial definition of a group. Though a modification alters the current definition of 
a group, it does not alter the group definition in a CONFIGURATION FILE. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 GENERAL 



PAGE 84 
MARK 3. 1 

Group Configuration (GC) Command 

— GC —| 

Sealant i cs : 

The GC command displays the current configuration. 

D2905 GENERAL - "LH" COMMAND 

The new disk pack subsystems should be loaded from the host via the LH ODT command, rather than 
from cassettes. 

As a reminder, the LH syntax is as follows: 

LH 

— LH — PK — <unit number> — MPX — <mpxno> — PATH — <pathno> > 

> | 

| -<f i let i t I e >— I 

LH (Load Host) loads the pack firmware file to the disk pack controller. The default firmware 
file is SYSTEM/FIRMWARE on DISK OTHERWISE PACK. Blanks are required between MPX and <mpxno> 
and between PATH and <pathno>. 

D2906 GENERAL - CHANGES IN THE "SWAPPER" MECHANISM 

The following system note references various other documentation, as follows: 

GENERAL ODT III. I note D2535 - "ODT Note" 
MCP II. 9 Note D2146 - "MCP Express Note" 
MCF III.l Note D2654 - "MCP Pointers Note" 

NEW FEATURES 

New parameter - "EXPTIME" 



The size of a time-slice for an express swapjob is now a SWAPPER parameter that can be set 
through the SW ODT message (see "ODT Note" for syntax information). Previously, this parameter 
existed but was not settable by the installation. The default value of this parameter is .75 
seconds which is the value used on the III.O and II. 9 MCP releases (see "MCP Express Note" for 
more information on the EXPRESS facility of SWAPPER). 

Timelimit vs Datacom input 

The TIMELIMIT option of the READ statement (in ALGOL) now functions properly for swaptasks. 
Inter-Program Communication (IPC) for Swaptasks 



The SWAPPER mechanism has been redesigned to handle most forms of IPC. This includes 
co-routines and asynchronous processes. In general any tasking structure can be handled. The 
principal rule governing swappable IPC families is: 

If the critical block for a process is in a swappable stack, then that process must also be 
swapped . 

Any son of a swaptask must be a swaptask. For example, if a batch process "A" spawns a 
swappable process "B" and that process subsequently spawns another process "C" , then if the 
critical block for "C" is in "B" , "C" is required to be swapped (any user specification to the 
contrary is overridden). However, if the critical block was in "A", then "C" is not required 
to be swapped, nor is it excluded from being so. 

Restrictions on IPC Families 



1. Bad Pointers See "MCP Pointers Note" 

2. LIBRARYs Library stacks are not permitted in swapspace. Any program running in 

swapspace that attempts to FREEZE will be DSed; however, programs which 
use libraries are permitted in swapspace (only the library stacks 
themselves are excluded). 

3. DATABASES No major changes have been made in this area. DATABASE stacks are still 
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not permitted in swapspace but the programs which use DATABASE stacks 
are. Some problems that previously existed in this area have been 
cor rec ted . 

4 J0Bs -fob stacks are not permitted in swapspace. However internal processes of 

jobs can be swapped. 

Getting IPC-capable Programs to Run in Swapspace 

On III.O and previous releases of the MCP, code files which were marked IPC-capable were not 
permitted in swapspace even if the SUBPSACES task attribute requested swapping. On III 1 
this rule has been changed. Any codefile compiled by a III .0 or III.l compiler will run in 
swapspace if the SUBSPACES attribute is non-zero. Any codefile compiled by a II. 9 or older 
compiler that is IPC-capable will not run in swapspace unless the task OPTION word has the 
1PCOVERRIDE bit set ( OPT I ONS = I PCOVERR I DE in WFL or CANDE) . IPC-capable codefiles compiled 
11.9 or older without the IPCOVERRIDE bit being set will continue to behave exactly as in 
III.O (with regard to swapping). 

New SWAPPER Priority Parameters 



There are two new SWAPPER priority algorithm parameters. These parameters are set using the SW 
OD1 message (see "ODT Note" for more information on syntax). The new formula for calculating 
the SWAPPER queue priority is: 

MSN(255,MAX(0,<old formula>- 
( (IOBIAS*<num I/Os>) + 

(MEMORYBIAS*(<memory size> / MAXCORE) ) 

) )) 

Wh e r e : 

<old forinula> The value of the SWAPPER priority algorithm on the III.O MCP release. 

(OBIAS The larger the value of this parameter, the lower the priority of multiprocess 
IPC f ami lies. 

<num I/Os> The number of I/O operations required to bring in all of the swappable parents of 
the task whose priority is being calculated. 

MEMORYBIAS The larger the value of this parameter, the lower the priority of processes with 
large memory requirements. 

<memory size> The amount of memory required (in slots) by all of the swappable parents of the 
task whose priority is being calculated. 

MAXCORE The value of the SWAPPER MAXCORE parameter. 

Usage o : s " the Express area in an IPC family 

Any time that SWAPPER brings in a process that was not "sliced", it will try and bring it into 

the express area, provided that the process meets the express criteria ( size < EXPMAXCORE and 

not sliced). This facility has been modified to handle IPC families by using the following 

rule: " 

Only the leaf of an IPC family may be placed in the express area. 

Any process with no swappable sons is eligible to run in express space. This includes all old 
programs that were swappable. 

SWAPPER on a B6800 Multiprocessor System 

The SWAPPER mechanism has been extended for B6800 multiprocessor systems. Now a SWAPPER 
independent runner and an associated swapspace may be initiated in each memory subsystem 
(except Global). Each of these swappers is independent in the sense that they each have their 
own set of parameters and can start and stop independently of each other. For example, it 
would be easy to run express swaptasks in one processor and most of the non-express swaptasks 
in the another processor (by setting the EXPRESERVE parameter to CORES I ZE-MAXCORE for the 
SWAPPER in the first processor and setting EXPRESERVE to zero on the other). For details on the 
syntax of the SW ODT message, see "ODT Note". 

•SYSTEM/SWAPDISK for a Multiprocessor System 

The 'SYSTEM/SWAPDISK file used by the III.l SWAPPER is compatible with the file used on the 
III.O and previous releases, and vice versa; however, for B6800 multiprocessor systems, an 
extra restriction is added: 

Each row of *SYSTEM/SWAPDISK must reside on a unit that is exchanged to each processor 
in which SWAPPER is to be run. 
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The SUBSYSTEM Task Attribute 



The SUBSYSTEM task attribute is used to specify a subset of the memory subsystems where it is 
desirable to run this task. For batch tasks, one of the subsystems is choosen from the 
specified set and then permanently placed in that subsystem (no capability for moving batch 
tasks between different subsystems exists). For swaptasks, the meaning of this attribute is not 
changed but the capability of moving the task is readily available. (The task i s swapped out 
of one subsystem and into another. It is this capability that requires *SYSTEM/SWAPDISK to be 
exchanged to all processors running SWAPPER.) If a task requests to be run in swapspace 
( task. SUBS PACES neq 0), this task will be run in any of the swapspaces 
of memory subsystems specified by the SUBSYSTEM attribute. 



run 
that are 



l n 
i n 



the subset 



Ex amp 1 e 
Task "A" 



is started with SUBSPACES=3 and SUBSYSTEM=BOTH, where BOTH is setup to be 
processors 1 and 3. At task initiation time there is a SWAPPER only in processor 3. This 
task would be run as a swaptask constrained to processor 3. (Even if there were a SWAPPER in 
processor 2, "A" would never run there.) If a SWAPPER were subsequently started in processor 
1, task "A" could now be either processor 1 or 3. It is even possible to then shut down the 
SWAPPER in processor 3, then "A" would only run in processor 1. 

SUBSYSTEM vs. S UBS PACES : Conflicting Specifications 



When a conflict arises between the specifications of the SUBSYSTEM and SUBSPACES task 

attributes, the SUBSYSTEM specification is considered more binding than SUBSPACES. In case 

of conflict, the SUBSPACES attribute will be modified in order to make it consistent. Some 
examples of conflicts and their resolution are: 



1. SUBSPACES NEQ but no SWAPPER running within the 
remedial action is to assume SUBSPACES=0 . 



specified subsystem. In this case 



this 



2. SUBSYSTEM specifies more than 1 processor and SUBSPACES=1. The inconsistency in 

situation is that the user has requested that the segment dictionary be placed in main 
memory but has said that the data can run in more than one processor. In this case 
SUBSPACES=3 is assumed and a warning message is logged for the task. This situation can 
also occur if SUBSPACES=2 is in effect. 

Process Family Migration on a B6800 Multiprocessor System 

In the same fashion that a single swaptask may migrate between different swapspaces (on 
different processors), an IPC family of swaptasks may also migrate. As with a single task, 
migration is controlled by the SUBSYSTEM task attribute. However the full generality of the 
subsystem specification mechanism is not supported. The following restriction is made: 

Any task spawned by a swappable task will run in the same set of subsystems in which the 
parent will run . 

A son of a swappable task inherits the subsystem specification of the parent regardless of any 
user specification which might be present. 

Swaptasks and Non-exchanged Units 

On a B6800 multiprocessor system, whenever a task attempts to use a peripheral which is not 
exchanged to the processor running the task, then the buffer for that I/O operation is moved 
into global memory and the I/O operation is performed by one of the processors to which the 
unit is exchanged. For swappable tasks the buffer is moved into global memory if the peripheral 
is not exchanged to every processor in which this task might run (processors in which SWAPPER 
is not currently running are also included in this test because SWAPPER might be started in 
that processor at some point in the future). In order to reduce the amount of global memory 
used, any swaptasks which use non-exchanged units should have a subsystem specified which 
includes only those processors to which the peripherals are exchanged. 

CHANGED FEATURES 



Changes to the CONTROLLER "Y" Display 

The text of the "SWAP STATUS" line of the Controller "WY/Y" display has been changed to reflect 
the new implementation of SWAPPER. The text of the new displays and their meaning is described 
be 1 ow. 



TEXT 



NEW 



MEANING 
This task is new, it has just been initiated. 



IN CORE This task is currently in core and there is no outstanding request to swap 

it ou t . 



QUIESCING This task is currently in core and there is an outstanding request to swap 
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WRITE REQUEST 

WRITING OUT 
ON DISK 

READ REQUEST 



it out; however, the task is not currently in a state that would permit it 
to be swapped. There are 3 principal reasons that would prevent the task 
from being swapped: 

1. The task has an I/O operation in progress. 

2. A son of this task is still in core. 

3. The task is executing certain sections of MCP code. 

This task has requested that it be swapped out and it is currently possible 
to honor that request; however, SWAPPER has not yet started to process the 
swap-out reques t . 

This task is currently in the process of being written to *SYSTEM/SWAPDISK . 

This task is resident on *SYSTEM/SWAPDISK, no outstanding request to swap 
it in exists. 

A request to swap this task into main memory has been made but SWAPPER has 
not yet processed this request. 



WAITING FOR CORE A request to swap this task in has been processed, but insufficient memory 
in a swapspace is available to honor this request. Tasks forced out for 
exceeding their timeslice will also appear in this state. 



READING IN 
TERMINATING 
OUT OF DISK 

NEEDS PARENT 

LINGERING 



This task is currently in the process of being read from 'SYSTEM/SWAPDISK . 

SWAPPER is currently in the process of terminating this task. 

A request to swap this task out has been made; however, currently there is 
insufficient room on *SYSTEM/SWAPDISK to honor that request. 



This task is in core but is unable to 
ancestors is not yet present. 



run because one or more of its 



Certain statements (primarily those associated with IPC) leave a task in an 
inactive state that may last for only a short period of time. In these 
cases the task is left in a state such that if the expected event does not 
occur within 2 seconds the task is swapped out. Tasks in that state are 
said to be lingering. 

CONSIDERING FOR SWAP IN 

A task in this state is currently under consideration for swap in. If the 
resources are available, then this task will be swapped in; if not, then it 
goes back to the WAITING FOR CORE state. 

ZIPS from Swap tasks 

Formerly when a swaptask executed a ZIP statement, the WFL compiler was started in batch as a 
co-routine of the swaptask but the swaptask remained locked in core until WFL terminated (which 
could be a long time if WFL were suspended). Now when a swaptask executes a ZIP statement, the 
WFL compiler is run in swapspace as the son of the ZIPing task. This allows WFL and the ZIPing 
task to be timesliced or swapped out for any other reason. The differences in this mechanism 
represent no net change in the semantics of the ZIP construct. 

ABORTS from Swap tasks 

The Data Management abort routine is run by the user of a data base to exit transaction state 
after a user already in transaction state terminates abnormally. Previously if the task that 
initiated abort was swappable, then abort was run as a batch task and the initiating task was 
locked into core until abort terminated. Now when a swappable task initiates abort, abort will 
run as a swappable task. 

S t acks t r e t ch i ng for Swappable Tasks 



Previously when a swaptask needed to have its stack stretched, 
"slot" was added to the subspace. One effect of this was that 
only 990 words at 
s t ack could not 
swap tasks is done 
g r ow if necessary 



it was swapped out and an extra 
swaptasks were s t ack s t r e t ched by 

a time; another was that if the subspace were already of maximum size, the 
be stretched (even if there were plenty of room). Now s t acks t re t ch i ng for 

by the same mechanism as s t ack s t r e t ch i ng for batch tasks; the subspace may 



Changes in the Internal Structure of a Subspace 



Many changes have been made in the internal structure of some types of data areas in a 
subspace. This was done because the old methods had some built-in restrictions that could cause 
certain pathological programs to be erroneously DSed for "MEMORY EXCEEDED". A brief survey of 
these changes: 

1. The processing stack in a subspace is no longer constrained to be the first data area of a 
subspace, this is a side effect of the changes in the area of stackstretching. 

2. FIBs and SIBs are no longer required to be in the first 65K words of a subspace. 
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Changes in the Swapping Mechanism 



There are two principal mechanisms for getting a swappable task swapped out. These are called 
"delayswap" and " immed i a t e swap" . 

Immedi ateswap is used whenever a task is to swapped out as soon as possible. This mechanism is 

used when a task is to be swapped out for exceeding its time slice, waiting for datacom input 

{or output), waiting for a reply or other situations where the MCP has determined that it could 
be a long time before this task resumes. 

Delayswap is used when the amount of time before this task resumes is likely to be small (i.e., 
a CONTINUE statement in ALGOL). If the delayswap mechanism is specified for a task, then that 
task is allowed to "linger" in core for 2 seconds. If at that time it has not resumed, then a 
normal swapout using the immed i at eswap mechanism is used. Some examples where delayswap is 

used are: 

WAIT statements (from user code). 
ALGOL- type CALL statements. 
ALGOL-type CONTINUE statements. 

In conjunction with allowing IPC-capable programs to run in swapspace, many new points at which 
a task may be swapped have been added. A list of these points and the type of swapping 
mechanism to be used follows: 

1 Any point in user code Immed i a t eswap (time-sliced 

only) 

2. Waiting for a reply Immed i at eswap 

3. ALGOL-type CALL statement Delayswap 

4. ALGOL-type CONTINUE statement Delayswap 

5. WAIT statement Delayswap 

6. WHEN( < < ime> ) Not swapped if <time> is less 

than 2 seconds, otherwise 
Immedi ateswap 

7. At points where extra storage may Immed i a t eswap 
be needed. 

This list is not meant to be complete; it only provides the user with some understanding of the 
mechanisms involved. 

DE IMPLEMENTED FEATURES 



SWAPPER AX Faci 1 i ty 

SWAPPER parameters are no longer set using the AX input message. Refer to "ODT Note" for 
syntax information for the SW ODT message which replaces this facility. 

Auto-Restart Enhancements 



After a Halt/Load, if SWAPPER is to be restarted, the system will not complete initialization 
and restart user jobs until SWAPPER is completely initialized. If SWAPPER initialization is 
delayed, the operator can force initialization to continue by responding to the RSVP that will 
be ou t s t and i ng . 

If the schedule is held (via EI or HS) and there are one or more swappers in the schedule, when 
the operator releases the schedule (via EI, HS-, etc.), the schedule will continue to be held 
until the swappers are initialized. (Again, if initialization is delayed, the operator can 
discontinue waiting for SWAPPER.) 

D2913 GENERAL - "GLOBAL MEMORY" TRADEMARK 

"GLOBAL Memory" is a trademark of Burroughs Corporation. 

D29 34 GENERAL - "SPO" REPLACED BY "ODT" 

For documentation purposes, all occurrences of SPO (Supervisory Printer Output) have been 
replaced by ODT (Operator Display Terminal). The two terms were synonymous and 
interchangeable. 

D295 3 GENERAL - NEW "COMPILER INFO" FORMAT 

The format of the COMPILERINFO version data has been changed to permit the CYCLE number to 
exceed 255. 

COMPILERINFO is a word of data placed in a code file (segment 0, word 8) by the compiler, kept 
by the MCP, and used in various places to identify the compilation. The bottom 24 bits of the 
word contain VERSION data for the compiler that created the code file. 
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The old and new formats are shown here, with example values for a compiler version 31.234 
(cycle 234 of III . 1) : 

Old New 

Bits Contents Example Bits Contents Example 



23 
15 

7 



8 MARK 3 23:8 MARKLEVEL 3 1 

8 LEVEL i 15:6 unused 

8 CYCLE 234 9:10 CYCLE 234 



In the initial release of III. I, the NEWP compiler uses the new format and all others continue 
to use the old one. On a subsequent update of the III.l system, the other compilers will be 
changed . 

The III.l MCP translates the old format to the new whenever storing COMPILERINFO for a task 

cCcxcScif^I 0I \i£rc4-»™ neW format - This change appears when COMPILERINFO is returned by 
alb IbMslAlUS or GETSTATUS . 

The following software items have been modified to accept COMPILERINFO in the new format- 
CONTROLLER DUMPANALYZER and JOBFORMATTER. (LOGANALYZER and LOGGER are updated by inclusion 
from JOBFORMATTER. Logs from systems prior to III.l do not include COMPILERINFO in either 
forma t . ) 

D2 9 79 GENERAL - PORTS AND SIGNALS 

Tasks may now communicate with each other by means of the Inter-Process Communication 
facilities provided by Host Services. 

See Appendix D, Inter-Process Communication, for details of implementation. 

D29 8 1 GENERAL - MARK LEVEL DOCUMENTATION 

Beginning with the 3.2 system release, for documentation purposes, mark levels will appear in 
Arabic rather than Roman numerals; e.g., Mark 3.2 rather than Mark III. 2, or Mark 2 7 rather 
than Mark I I . 7 . 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
GENERAL 



PI 4 14 GENERAL - COPYRIGHTS, VERSION LEVELS UPDATED 

The copyright notices have been updated for 1978, 1979. 

Version levels for all software products have been set to the current level. 

P2219 GENERAL - "KIND=DISK" VS. "FAMILYNAME" 

The use of default values for the FAMILYNAME attribute in system software has been eliminated 
by explicitly declaring KIND=PACK, FAMILYNAME="DISK. " or KIND=PACK, FAMILYNAME="PACK. " where 
only KIND=DISK or KIND-PACK respectively were declared previously. The symbolics have also 
been changed to use file attribute mnemonics instead of integers, and to take advantage of the 
attributes BACKUPKIND and UPDATEFILE. 

P2578 GENERAL - FOUR DIGIT PATCH NUMBERS 

The system now recognizes 4-digit patch numbers. 
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DOCUMENT CHANGES NOTES (D NOTES) 

ALGOL 

D2623 ALGOL - EQUATION DISALLOWED IN GLOBAL DECLARATIONS 
The following additions should be made to the ALGOL Manual, Form No. 5001639: 
Page 4-5 Under "RESTRICTIONS", add the following 

"<array row equivalence> is not permitted in <global part>." 
Page 4-7 Add "RESTRICTIONS" 

"<equation 1 t s t > is not permitted in <global part>." 
Page 4-11 Add "RESTRICTIONS" 

"<direct array equivalence) is not permitted in (global pairt>." 
Page 4-43 Add "RESTRICTIONS" 

"(equation list> is not permitted in (global part>." 
Page 4-59 Add "RESTRICTION" 

"(equation list> is not permitted in (global part>." 

D2649 ALGOL - NEW INFORMATION IN THE LISTING TRAILER 

The trailer printed at the end of a listing will now also contain "SOURCE TAPE:<source tape 
name>" if dollar option MERGE is set for the compile, and "NEW SYMBOLIC: (new symbolic name>" if 
dollar option NEW is set for the compile. 

D2661 ALGOL - HEADER IMPROVEMENT 

The header that the compiler places on listings has been modified to include the patch 
identification with the version. An example of the new format is as follows: 

31 .002.005 

The 31 indicates the release level, the 002 indicates the cycle (of the entire system), and the 
005 indicates the number of patches above 31.000.000 to the ALGOL compiler. 

D2662 ALGOL - MANY INSTALLATION INTRINSICS 

ALGOL can now handle more than 256 installation intrinsics. 

D2664 ALGOL - "STACK" AND "CODE" LISTING IMPROVEMENTS 

The STACK and CODE listing produced by the compiler has been improved to only print four 
characters of displacement in address couples, and to print the names of all intrinsics and MCP 
procedures which are referenced in a program in the stack listing rather than the words 
"SEPARATE INTRINSIC". 

D2677 ALGOL - "FIRST" FUNCTION FOR STRINGS 

(FIRST function> 

— FIRST — ( — (String expression) — ) — | 

The FIRST function is a real-valued function which returns as its value the ordinal position in 
the EBCDIC, hex, or ASCII collating sequence of the first character in the (String expression). 
The function will return an ordinal position in the EBCDIC collating sequence if the (string 
expression) is EBCDIC, an ordinal position in the hex collating sequence if the (string 
expression) is hex, and an ordinal position in the ASCII collating sequence if the (String 
expression) is ASCII. A fault will occur if the (String expression) is empty. 

Ex amp 1 e s : 

FIRST("ABC") returns 193 (=4"C1") 
FIRST(7"NNXX") returns 78 (=4"4E") 
FIRST(4"F1F2") returns 15 (=4"0F") 
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D2684 ALGOL - "COMPLEX" IMPLEMENTATION 
INTRODUCTION 



Complex variables allow for the storage and manipulation of complex values in a program. The 
interpretation of complex values is the usual mathematical one. The real and imaginary parts of 
complex values are always single precision reals. 

The set of real values is a subset of the set of complex values. Arithmetic values may be 
assigned to complex variables. Complex values may not be assigned to arithmetic variables. 

The syntactic items used in this description match those in the ALGOL Manual. 

COMPLEX DECLARATION 



All complex variables must be explicitly declared in a <complex dec 1 ara t i on> . 

(complex declaration) 

— <local or own> — COMPLEX — <identifier list> — I 



Ex amp 1 es : 

COMPLEX CI, C2 

COMPLEX CURRENT, VOLTAGE, IMP 

Seman t ics: 

A <complex declarations is used to declare <simple variable>'s of type comple; 

COMPLEX ARRAY DECLARATION 



The syntax for an array declaration is extended to allow complex arrays. Direct complex arrays 
are not all owed . 

(complex array declarations 

— (long/own specifications — COMPLEX — ARRAY — <array list> — | 

<complex array reference declarations 

— COMPLEX — ARRAY — REFERENCE — <array reference list>— | 

(complex value array declarations 

— COMPLEX — VALUE — ARRAY —(value array lists— | 



Ex amp 1 e s : 

COMPLEX ARRAY A,B[-1 : 2] , CURR[1:15] 

COMPLEX ARRAY C [0:2, 0:60] 

COMPLEX ARRAY REFERENCE CREF1 [0] , CREF2[0, 10, 101 

COMPLEX VALUE ARRAY CVAL( COMPLEX(8 , 1 . 5) , 1 . 7*COMPLEX( 3 , (3/7) ) ) 

COMPLEX PROCEDURE DECLARATION 



The syntax for a procedure declaration is extended to allow for complex-valued procedures, 

(complex procedure declarations 

— COMPLEX — PROCEDURE — (procedure headings — ; — (procedure body> — | 
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COMPLEX PROCEDURE IMP(R) REAL R 
COMPLEX PROCEDURE P; ' 

COMPLEX ASSIGNMENT 

- -»P'« triable is assigned a v aIue via the <collpI „ assignment sUtMent , 
^complex assignment statement> 

— <compIex variable) — : 



■-- <compiex express ion> 

I I 

|-<complex update expre s s i on>- | 



<eomplex variable) 
- - < v a r i a b 1 e > - - j 

COMPLEX EXPRESSIONS 



The synlax of a <complex expression) is 

< complex expression) 

<ar i thmet ic express ion> 

:-<simple complex expression) 

:-<condi t ional complex expression>- 



<simple complex expression) 

; i< i 

(complex term>-- — I 



<complex term> 

< t e rm> 

_ <-<complex multiplying ope rat or >- 
<comp lex f'ac tor) 



■ccomp 1 ex f ac t or> 

< factor) 

-< complex primary)- 



I I 



I 
-<pr unary) 
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<comp lex pr iraary> 

<compl ex variable) i 

|-<complex assignment statement>- 
j-<complex function designator)— 
j- ( --(complex expression) — ) - 



<complex function designator) 

-(complex function i den t i f i e r >— <ac t ua 1 parameter part)- 



<comp 



lex function identifier) 



<procedure identifier>- 



1 



' 



-<comp 



lex intrinsic name)- | 



<complex case expression) 

|< 



(case 



e head)— ( <complex expression>- 



) —I 



(conditional complex expression) 

__<if clause)-<complex expression)- ELSE -<complex expression)- 

<complex multiplying operator) 

* 1 

I ! 

I- / -i 



the usual mathematical one. An arithmetic 



The interpretation of complex «P«»'« n » >;„ "* considered o be the real part of a complex 
^p?;Sr5o e :!.h e . P ,:" , ?«.S..rJ W ;:" Ve ihrr C ."".; ) .S?Si..ic type conversion from comp.ex :o 



exp 

ar i thme tic. 



i ; , . »a in the Uu naraaraoh of this document. 
Valid complex intrinsic names are listed in the last paragrap. 

COMPLEX UPDATE EXPRESSIONS 



The syntax of a <complex update expression) is: 

<complex update expression) 

* --(complex update tail) — I 



(compl ex updat e tail) 

(complex update term>- 

! + ._ — (complex term> — 



! 



I |< 

+ 

i- - 



-(complex term> | 
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<complex update term> 

— <complex update factor>- 

- * (complex factor> — 

/ - 



<complex update factor> 

I < | 

** — <primary> | 



* <complex factor>- 

/ - 



The interpretation of a <complex update expression) is the same as that of a <complex 
expression) after substitution of the * following the assignment operator by the complex 
variable that precedes the assignment operator. 

COMPLEX PARAMETERS TO PROCEDURES 



If a formal parameter of a procedure is a simple variable of type complex, any complex 
expression may be passed as an actual parameter. If the type of a formal parameter is not 
complex, the actual parameter may not be of type complex. 

If the formal parameter is a complex name parameter and the actual parameter is not of type 
complex, an assignment within the procedure body to the formal parameter will cause the program 
to abort with an invalid operator. 

If the formal (actual) parameter of an unspecified formal procedure is of type complex, the 
actual (formal) parameter must also be of type complex. 

Complex arrays are allowed as parameters to procedures; in the parameter specification the 
lower bounds of these arrays must be specified with either an integer constant or an asterisk. 
If the formal (actual) parameter is a complex array, the actual (formal) parameter must also be 
a complex array. 

Complex procedures are allowed as parameters to procedures; in the parameter specifications the 
parameters of these procedures may either be fully specified (with FORMAL) or be unspecified. 
If the formal (actual) parameter is a complex procedure, the actual (formal) parameter must 
also be a complex procedure. 

COMPARISON OF COMPLEX VALUES 



In a relation, a complex operand may be compared with another complex operand or an arithmetic 
operand. If one of the operands of a relation is of type complex, the only allowed relational 
operators are EQL (=) and NEQ ( =) . 

INPUT AND OUTPUT OF COMPLEX VALUES 



A complex variable or value occurring in the list part of all types of READ and WRITE 
statements is considered to be a pair of real variables or values; the first real of the pair 
being the real part, the second being the imaginary part. A complex array row occurring in the 
list part of a READ or WRITE statement is considered to be a real array row containing the real 
and imaginary parts of the elements of the complex array row in the following order: real part 
of first element, imaginary part of first element, real part of second element, etc. 

BINDER INTERFACE 



Procedures with complex parameters and complex procedures may be declared external and bound 
in. Complex variables and arrays may be specified in a <global part>. 

The complex implementation in ALGOL is compatible with the complex implementation in FORTRAN so 
that in t er 1 anguage binding with complex types involved is allowed; the normal by-name, by-value 
and array-lower-bound rules are applicable. 

COMPLEX 1NTRINSICS AND INTRINSICS WITH COMPLEX ARGUMENTS 
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Func t i on 


Pa rame t e r s 


CABS 


(<ce>) 


CCOS 


(<ce>) 


CEXP 


(<ce>) 


CLN 


(<ce>) 


COMPLEX 


(<ael>, <a 


CONJUGATE 


(<ce>) 


CSIN 


(<ce>) 


CSQRT 


(<ce>) 


I MAG 


(<ce>) 


REAL 


( <ce>) 



Resul t 

Real. Absolute value of <ce>. 
Complex. Cosine of <ce>. 
Complex, e ** <ce>. 

Complex. Natural logarithm of <ce>. 
) Complex. <ael> + i • <ae2>. 
Complex. Conjugate of <ce>. 
Complex. Sine of <ce>. 
Complex. Square root of <ce>. 
Real. Imaginary part of <ce>. 
Real. Real part of <ce>. 

D2711 ALGOL - DE IMPLEMENTATION OF BACKSLASH 

The compiler will no longer accept the backslash (\) character in an <identifier> or (n «r 
option>. The backslash character will now be flagged with an error message 

Note: III -0 ALGOL note D2563 gave advance warning of this change. 
D2712 ALGOL - FLAG VECTORMODE 

Because vectormode is not portable to non-vec tormode machines, the compiler will flaa with a 
warning message the first occurrence of an explicit vectormode statement in a program batch 
the 11 st?nT?r a 1le"r 0mP, ' ed P roCedure " If the warni °8 is given, a message will al^o "appear ir! 

D2713 ALGOL - TOGGLE, OVERFLOW, " REAL (< POINTER EXP>)" 
The functions TOGGLE and OVERFLOW have been de impl emen t ed . 

nBBeSi f hE f unction REAL(<pointer expression)) will now be flagged with a warnine message The 
OFFSET function can be used to find the offset of a pointer within an array 8 lhe 

Ex amp 1 e : 

If P is an 8-bit pointer into a non-segmented array, 
REAL(P). [35: 1 6] *6+REAL(P) . [39:4] 
returns the same value as does 
OFFSET(P) 
Note: The OFFSET function is documented in 3.0 ALGOL note D2289. 
D2 72I ALGOL - STRING ARRAYS, PROCEDURES AS PARAMETERS 

har^L S Jmp?Len[:d S ^ Stri " g Pr ° CedUreS (UnSpCCified SS We!1 " specified) as parameters 

asterisks e (*) fiCati ° n ° f Stri " 8 arra * P arame <"*. the lower bounds must be integer constants or 

In the specification of formal string procedures, the parameter list must be unspecified or 
fully specified by the <formal parameter specifier). unspet.iti.ea or 

sjecified ri " 8 tyPC ° f thC f ° rmal array ° r P rocedure is not EBCDIC, this type must also be 

D2761 ALGOL - "MAKEHOST" ENVIRONMENTS 

The B7000/B6000 ALGOL Reference Manual (Form No. 5001639) should be corrected On oase D-22 
under the compiler opt i on MAKEHOST, remove the sentence: page UZZ ' 

II»?if^H e ?Li mP i e r ntati u n ' f ° r reas0nS0f simplicity, requires environments to be fully 
qualified through level three procedure identifiers." ' 

Replace it with the following sentence: 

"Environments must be fully qualified through the outermost level of procedure declaration 
no! appear""" " th3t f °' " P ro « ram whi <= h *« a procedure, the name'of that procedure musi 

D2762 ALGOL - "VECTORMODE" LOOPS WITH LENGTH <=0 
ISSu^jTndfr^VEclSRMODrs'atLen^ on Pa^e fZ??°( B6 ™> ALGOL *•'««« Manual (Form No. 

-7.T "a^mpt To'Vsl J^gr:orrm^de , wn:ne:;r S poflTbTr d Th^re-il'a noTi'eable'd i °f f^ ' " 
between the two when the ifngth specified by the TOR <ar i t hmet c xpres on P ar ' hiT" 
value less than or equal to zero; the single word mode will not execute the loop'" all? the 
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multi word mode will execute the loop one time." 
D2 7 63 AL(X)L - CLARIFICATION OF "REPLACE" STATEMENT 

ih h : REp^ 6 ^ t ^^ ) R : s fe^ f :?^ w r anua, {Form No - 50oi639 > shouid be ci - if - d -'*h 

On Page 5-81, in the second paragraph following the list, change the following: 
"equal to or less than 48 bits" should be "equal to or less than 96 bits". 
"longer than 48 bits" should be "longer than 96 bits". 

brac^ f °" OWi,lg discussion, "«" i s . left brace as defined on Page 5 _ g , and „ >> „ . & ^ f . ^ 

Replace the third through sixth paragraphs of Page 5-81 with the following: 

^r chafer 'slze'are a?. .!a.Y ' '^run ' "me ' J f ^V.^AnV I ? t e?a! ' i * '" ' / " ""» ° f 

-^"Id ^rundlsiJed b^ t hTprogrlmmlr > "" "^ ^ '— ' the '«»'»•«• "kely to be 
Each <<long string>> is stored at compile time in a portion of an arrav „h,h i 

::;k; .u:::.Vu..'S.,':syr. .':[-:::.:!.;■:. ir- .? ::■ :, ; ; »#»?■.■.-•# 

equal to the maximum character size of the spring literal. ' character s,ze 



max imum 



4|'CT' is 2 characters long, 
8"AB" is 2 characters long, 
48 "01" is 1 character long, 

4"01""A" is 2 characters long (if the default character 

size is EBCDIC) 

<ar i thine t i c expression> 



<<sh 01 rt string>> The stack-source-operand is initialized by the value of the „«„„,, 

stack-sourc^eraTto'wnere JL s lllcVd^t in^ton^ I„^ ^iSL^i eS . ' * '^ ^ thi 
the° n fir^ in char a( -y h r s ' ? ck - sour «- P o i nt er is initialized with the pointer that points to 

stack-destination-potnter indicates " **' <<l0 " g strtn «» to where the 

S.-.f e t.;"fi,i? sent^ce a8 ,o P sa y ; artingWith " <<,fc ° rt •*'»»■»«* arithmetic expres s ion> . " , 



string>>, 



"The stack-source-operand is initialized by the value of the <<short 
left-justif.ed and repeated, if necessary, to fill the operand " <<short 

WORD^^ 5 ^„ge%n^%?^ ra n a S h encr!o n fayi th " <<Sh ° rt Stri " g » F ° R <»»«■«"« expression> 

"The stack-source-operand is initialized by the value of th*. , /( i,„ rt „ , „ ■ 
left-ju.tif.ed and repeated, if necessary, to fill the operand " «*h<>rt str,ng>>, 

D2764 ALGOL - "OWN" ARRAYS IN A PROCESSED PROCEDURE 
ISSl^iJ^iafr'SJi^s'S?:!^^^-; ^ g t>»|. 6 f000/B60 M ALGOL Referer.ee Manual (Form No. 

iT^ fun-Um:^^ r or e " Ure mUSt " 0t decUre a " y 0WN arra ^ S - An a t t empt t o do so will resu.t 
D2765 ALGOL - LARGE NUMERIC LITERALS 

ISoi6 f 39!°o„ n p a ^ rag r^ h ? h ° Uld be added to 5 he B7000/B6000 ALGOL Reference Manual (Form No 
5001639) on Page 2-6 as the second paragraph under "COMPILER NUMBER CONVERSION"" 

Z!!hi» 0,npUe - ■'" accept as an <unsigned number) any value that can be renresented in 
double precision (that is, one with not more than 24 significant decimal dl ik 

J"::r^:r':r:.ft•^s^:f::•';4^^::tsr::':p>Jl! J n.Jr:if^'v:^ ! ^^:::! } H 
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unsigned numbeo contains more than 12 significant digits, some precision will be lost 
converting it to single precision.' 

D2776 ALGOL - "MOD" OPERATOR WHEN SECOND PARAMETER <1 
The B7000/B6000 ALGOL Reference Manual (Form No. 5001639), Page 6-4, should be changed as 
fol lows: 

"The MOD operator denotes remainder and has the following meaning:" 

should be changed to read 

"The MOD operator denotes remainder and has the fol lowing meaning (for Z< 1 the results of 
the MOD operator are undefined by the current implementation): 

D2777 ALGOL - MISSING ACTUAL PARAMETER IN DEFINE INVOCATION 

The B7000/B6000 ALGOL Reference Manual (Form No. 5001639) should be changed as follows: 

On Page 4-9 before the subheading "Pragmatics", add the following paragraph: 

"It is possible for the <closed text> to be empty in a <define invocation;. In this case, 
all occurrences of the corresponding <formal symbol> in the <text> are replaced by no text. 
For example, if define F is declared by 

DEFINE F(M,N)=M+N#; 

then the invocation of F in the statement 

R:=F(,1); 
expands to 

R:=+i; 

which is syntactically correct; however, the statement 

R:=F(2,); 
expands to 

R:=2+; 
which is syntactically incorrect." 

D2778 ALGOL - FILES "LINE" AND "ERRORFILE" 
The B7000/B6000 ALGOL Reference Manual (Form No. 5001639) should be corrected as follows. 
The table on Page E-7/E-8 for file LINE, under KIND, should read: 

"LINE PRINTER" 
For file ERRORFILE, under KIND, the table should read: 
"LINE PRINTER or REMOTE". 
D2786 ALGOL - "SLOADINFO, JDUMPINFO" YIELD SYNTAX ERRORS 

The following paragraph should be added to the description of SLOADINFO and SDUMPINFO in the 
B7000/B6000 ALGOL Reference Manual (Form No. 5001639) on Page D-20 and D-2 1 : 

"Care must be taken that the release level of the compiler which performed the SDUMPINFO of 
a file and the release level of the compiler which performs the SLOADINFO of that file are 
the same. If they are not the same, a syntax error will be given and the compilation will 
be aborted . " 

D2787 ALGOL - "READ" ON THE "B5500" VS. THE "B6700" 

The B7000/B6000 ALGOL Reference Manual (Form No. 5001639) should be corrected, as follows: 

On Page 5-69, replace the last line of the second paragraph: 

"the record pointer is not adjusted after the READ operation." 
with the following: 

"the record pointer is adjusted after the READ operation to point to the next record." 
Also on Page 5-69, replace the line in the third paragraph: 

"the buffer is not released after it has been read or written;" 
wi th the fol lowing : 

"the record pointer of the file is not modified;". 
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D2788 ALGOL - CLARIFICATION OF "INTEGER" FUNCTION 

The B7000/B6000 ALGOL Reference Manual (Form No. 5001639) Page 6-24, under the description of 
INTEGER (<update pointer> <pointer expr es s i on> , <ae> ) , should be corrected by deleting the 
sentence : 

"With 4-bit characters, a leading 1101 results in a negative value." 

and adding the following paragraph: 

"If the <pointer expression) results in a 4-bit (hex) pointer, then if the first character 
pointed at is numerically greater than 4"9", the numeric value of the function is determined 
by the <ae> characters beginning at <pointer expression) +1; otherwise, the numeric value of 
the function is determined by the <ae> characters beginning at <pointer expression). If the 
first character pointed at is 4"D", then the result of the function will be negative." 

D28 14 ALGOL - COMPILER LABEL EQUATION TO "XREF" 

The 1 abe 1 -equa t i on statements passed to the ALGOL compiler will now be passed to 
SYSTEM/XREFANALYZER when SXREF is set. 

D2836 ALGOL - ARITHMETIC FUNCTION "VALUE" 

The B7000/B6000 ALGOL Language Reference Manual (Form No. 5001639) needs clarification. On 
page 6-28, change the "parame t e r ( s ) " to VALUE to read "Attribute Mnemonic". Change the 
explanation under "result" to read as follows: 

"The parameter to VALUE is any of the mnemonic names valid for the value of the file or task 
attribute or fields of an attribute; the value returned is the integer value of that 
mnemonic as known by the system. 

The mnemonics valid for the value of the file attribute ATTYPE are the names of the file 
attributes themselves. The mnemonics valid for the value of task attribute ERROR are the 
names of the task attributes themselves. The value returned for these "mnemonics" is the 
attribute number corresponding to the file or task attribute named. 

If the parameter to VALUE is a mnemonic of the task attribute OPTION, the value returned is 
the number of the bit in the OPTION word associated with that mnemonic (refer to the 
B7000/B6000 Series I/O Subsystem Reference Manual, Form No. 5001779, and to the B7000/B6000 
Series Work Flow Language Reference Manual, Form No. 5001555)." 

D2914 ALGOL - UNDEFINED RESULTS IN "REPLACE" STATEMENTS 

The following paragraphs should be added to the ALGOL Language Reference Manual (Form No. 
5001639) at the bottom of page 5-87: 

"During a replace operation involving a <source>, if the stack-source-pointer ever 
references the first character position of the <des t i na t i on> , the results of the operation 
are undefined. For example, the following REPLACE statement has an undefined result: 

REPLACE POINTER(A)+6 BY POINTER(A) FOR 12; 

On the other hand, the following REPLACE statement has a well defined result: 

REPLACE POINTER(A) BY POINTER(A)+6 FOR 12;" 

D2919 ALGOL - INTRINSICS WITH COMPLEX AND STRINGS 

The possiblity of calling installation intrinsics of type complex and type string has been 
implemented. Also, complex and string parameters to installation intrinsics are now allowed. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
ALGOL 



PI 279 ALGOL - CHANGE "INFO LEVEL" 

The ALGOL compiler on the III.l release now has INFO LEVEL set to 31. 

PI 373 ALGOL - STORING SINGLES INTO DOUBLES 

Code will now be emitted to always extend a real or integer quantity whenever it is stored into 
a double precision item. The previous code was incorrect under certain circumstances. 

PI 44 9 ALGOL - SMALL POOLS FOR FORMATS 

Due to an error in the calculation used to determine whether a format would fit into the 
current format pool, formats were sometimes mapped into very small pools. The calculation has 
been corrected. 

PI 759 ALGOL - BIND INFO FOR STRING PROCEDURES 

Incorrect bindinfo was being generated for string valued procedures. This problem has been 
corrected . 

P1760 ALGOL - NO ERROR ON "REAL (P:P EQL "AB" ) " 

The compiler no longer gives a syntax error for the use of the function REAL (<boolean 
express i on>) , where <boolean expression is of the following form: 

<pointer updatexrelation.il op> . . . 
Ex amp 1 e : 

REAL (P:P= "AB") 

This expression will now compile correctly. 

PI 791 ALGOL - NO ERROR AFTER DIRECT "I/O" STATEMENT 

The compiler will no longer generate a spurious syntax error on a fault statement immediately 
following a direct I/O statement. 

Examp 1 e : 



EBCDIC ARRAY E[0:791; 

DIRECT FILE D; 

DIRECT ARRAY DA; 

READ (D.l.DA); 

ON ANYFAULT [E[0]], BEGIN END; 



No syntax error will be given on the "ON ANYFAULT" statement. 

PI 792 ALGOL - NO ERROR ON "TITLE=<PTR>" 

Providing that the pointer has been previously declared, a syntax error will no longer occur on 
a file declaration with the following attribute assignment: 

TITLE=<poi n t e r expression> 

Examp 1 e : 



POINTER P; 

FILE REM(TITLE=P) ; 



This will now compile properly. 
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P1817 ALCIOL - ARRAY REFERENCE ASSIGNMENT PROBLEMS 

!L e ve^[or:^r"lL"r a a L was assi8ned to a singie reference arra ^° r v - ce *»»>. »° <»»• 

Examp 1 e : 

PROCEDURE P(D); DOUBLE ARRAY D[*l- 

BEGIN ARRAY REFERENCE A[0] ; REAL X; A : =D[01; X:=Af01- 

END; i j > 

P1819 ALGOL - UPDATE POINTER IN "REPLACE BY" STRING 

Jotn^r'^rla^e^riV 3 : T 1 t r", ng^fab, I : ' " •'■'««"• such » *h. ^Mowing, where P is a 

REPLACE P:P BY STR; 
This problem has been corrected. 
PI 878 ALGOL - "IF FALSE" IN PROCEDURES TO BE BOUND 
In P ?f' FAME 'THEN'M^iJn? t f ° rmatS ' "burred in a procedure to be bound, it was possible for 

occurVthi^r coae a ^Tr: e «° :: e cu u ^d ,he T h p [r;rob?; m zfiin ii?„z:L mn inva£id op would 

PI 879 ALGOL - SYNTAX ERRORS NOT BEING REPORTED TO "WFL" 

Ivntax ePa rrors y nuT'ln? 8 J' T f ,al P r °"«ures , . j f one of the procedures contained one or more 
would no^'repo" Jed'to WFL^ ^1^1^^^^ stV C V a \ 'Jroc^ureT 6 ?, T^WT.l 
e r'or the el^lllt T^ S™ ° T "","■'» ° rrors but ">* U^t procedure comp?!^ w thou, 
have beln corrected ^ '""^ W ° Uld " 0t be re P° rted «° W L. Both of these prooTems 

PI 880 ALGOL - "AUTOBIND" AND ONE LEVEL CODEFILE TITLE 

the° r coaefile tr consf, rd J mag f S *",' be j "8 Pas sed t o the binder for an AUTOBIND when the title of 
prob.^has been corrected ° n ' y °" e ' Cve ^ ' • e " • ^en the t i 1 1 e cont a i ned no s . ashes . This 

PI 883 ALGOL - REUSE STRING TEMPORARIES 
lor ^ng C expreL r io"nr. reUSeS ' Whe " pOSsible ' the E 80010 s * ri «8 temporaries which are required 

""".K^^.KS^^ expression 

P1933 ALGOL - "SERIALNO" FILE ATTRIBUTE 

aliened the'value'o ^ = °"" ted which could "<=<=« "hen the SERIALNO file attribute 
ass.gned the value in a f.le declarat.on or in a multiple attribute assignment statement 

PI 953 ALGOL - MORE DESCRIPTIVE ERROR MESSAGE 



was 



MONITOR^Is'lTEM 6 '"^ meSSage is now generated when items cannot be monitored: CANNOT 
P1954 ALGOL - STRING TOO LONG ERROR MESSAGE 

co?rec!ed e COmpiler faU,t when e-itting the error message that a string was too long nas been 
PI 956 ALGOL - CORRECTLY HANDLE "$MCP" 

The token after the dollar option MCP is no longer ignored. 
PI 95 7 ALGOL - ERRONEOUS SYNTAX ERROR IN VECTORMODE 

erronLur'sXx'Lr^r" eHminated jn WhiCh 8 °° T ° fT ° m vectormode code cou ld cause an 
PI 95 8 ALGOL - LIST DECLARATIONS 
declamion 0,nPi ' er *'" "° l0nger gCt a " INVALID IN °E* when many lists are part of the same 
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PI 959 ALGOL - BAD "GO TO" FROM A SEPARATE PROCEDURE 
A problem has been corrected where a bad GO TO from a procedure that had been bound into a host 
could cause unpredictable results. 

PI 960 ALGOL - ERRONEOUS SYNTAX ERRORS ON FORMATS 
A problem of erroneous syntax errors being given on formats because of characters left over 
from a previous format has been corrected. 

PI 961 ALGOL - EXTERNAL PROCEDURES IN "PROCESS" STATEMENTS 

Procedures declared external and then bound into a host can now be passed as parameters in a 
PROCESS statement. 

PI 962 ALGOL - NUMBERED "CASE" STATEMENTS 

Numbered CASE statements occasionally could cause an incorrect branch. This problem has been 

corrected. 

PI 964 ALGOL - STACK BUILDING CODE 

A rare problem in which incorrect stack building code was created has been corrected. 
PI 966 ALGOL - OPTIMIZED "IF" STATEMENT 

A problem in which erroneous syntax errors occurred has been corrected, /his problem ««»"«} 
onlv if OPTIMIZE were set and an I/O statement with an in-line format occurred as a Boolean 
primary in an IF WHILE or THRU statement. An example of a program which got erroneous syntax 
errors is the following: 

$SET OPT 

BEGIN 

FILE X; 

IF WRITE(X,</>) THEN; 

END. 

P1967 ALGOL - BINDING "ALPHA6" OR "ALPHA7" TRUTHTABLES 

A problem with binding the ALPHA6 or ALPHA7 truthtables has been corrected. 

P1968 ALGOL - "SXREFFILES" INTERACTION WITH "JXREF" 

A rare problem in which using SET and RESET of SXREFFILES and SXREF could cause improper 
results has been corrected. 

PI 969 ALGOL - FLAG EXTRANEOUS CROSSHATCH 

Extraneous crossmatches are now flagged properly. Previously, they were only flagged if the 
compiler were compiled with CTPROC set. 

P1970 ALGOL - SYNTAX ERROR ON "IF" STATEMENT 

A problem in which an optimized IF statement could get an erroneous syntax error has been 
corrected. An example of such a statement is the following: 

THRU 3 DO 

IF WRITE(X,<H12>) THEN; 

P1971 ALGOL - "FIRSTWORD" AND "SECONDWORD" OF CONSTANT 

A problem in which FIRSTWORD or SECONDWORD of a constant could return a double P'"^**" 
constant with a secondword of zero has been corrected. This problem only occurred under 
extremely rare conditions and in most cases, program results were unattectea. 

P1972 ALGOL - ERROR LIMIT OF ZERO 

Setting the dollar option LIMIT to zero no longer limits the number of syntax errors. 
Previously, if SLIMITwere zero, a warning or an error message caused an immediate message ol 
"ERROR LIMIT EXCEEDED" and termination of the compile. 

PI 974 ALGOL - ELIMINATE COMPILER ERROR 

A possible compiler error has been eliminated. This error would occur if a user dollar option 
were used between the word PROCEDURE and the procedure identifier; e.g., 

PROCEDURE 

$SET OMIT=X 
$POP OMIT 

K; 
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PI 9 7 J ALGOL - "FOR" STATEMENT SYNTAX 

A FOR statement with an embedded ":=*" assignment to the control variable will now be compiled 
correctly Previously, if the dollar options OPTIMIZE and B7700 were set, an incorrect syntax 
error would occur. 

P1076 ALGOL - " COMP I LET I ME " SYNTAX ERRORS 

The use of the intrinsic COMPILETIME wi 1 1 no longer cause erroneous syntax errors. An example 
of a program which would previously syntax is the following: 

BEGIN 

REAL X; 

IF FALSE THEN X : =COMPILETIME( 2 1 ) ; 

END. 

Pin-- ALGOL - "MAKEHOST" AND INNER BLOCKS 

Compiling with SMAKEHOST set and with extra environments specified will no longer lead to a 
rare end-of-file on the code file or to an erroneous error message. 

PI o 7 8 ALGOL - "BREAKPOINT/SEPCOMP" CORRECTION 

4 nroblem in which the compiler emitted bad code has been corrected. This problem occurred 
whir a series of separate procedures were compiled where one of the procedures ended wi th the 
dollar option BREAKPOINT set. The following procedure would have incorrect code alter each 
statement until a BREAKPOINT dollar card or statement was encountered. 

PI 7Q ALGOL - "IF" EXPRESSION COMPATIBILITY 

An IF expression incompatibility between the B6700 and B7700 has been eliminated. 

P1QS1 ALGOL - "STATISTICS" CORRECTION 

A problem in which an ALGOL program compiled with dollar opt ion STATISTICS set coul d ge t an 
INVALID OP in stack building code has been corrected. An example of a program which previously 
failed is the f o I 1 owi ng : 

$ SET STATISTICS 

BEGIN 

IF FALSE THEN 

BEGIN 

REAL X; 

END; 
END . 

PI 98 2 ALGOL - LARGE FORMATS 

The use of extremely large formats will no longer cause system dumps. 
PI 98? ALGOL - HANDLE "TASKFILE" CORRECTLY 

The ALGOL compiler will now emit correct code for interrogating the value of the following: 

<t ask> TASKFILE. <f i le attribute) 

PI 984 ALGOL - BINDER INFORMATION FOR A LARGE PROGRAM 

A problem in which the ALGOL compiler output incorrect binder information for an extremely 
iarce program has been corrected. 

PI 988 ALGOL - CORRECT XREF OF FILE MONITOR DECLARATIONS 

FHe monitor declarations will be XREFed correctly. Previously, the compiler could fault with 
an INVALID INDEX. 

P19«Q ALGOL - DIRECT FILES AND ATTRIBUTES 

The order of assigning file attributes within a DIRECT file declaration has been modified 
that the file attribute DIRECT will be assigned before any user specified attribu 
Previously, a file declaration such as the following: 

DIRECT FILE F(KIND=DISK, NORESOURCEWA I T ) 

would cause a file attribute error because the NORESOURCEWA I T attribute (which is invalid for 



so 
t e s . 



Mi-direct files) was assigned before the DIRECT attribute. 
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PI 990 ALGOL - PREVENT COMPILER FAULT 

^a« ob !nciudV e :L cor fono:fn: hic sLiNEiNFo th : r mpile \ t to faul ; under a set ° f — - 

records or comments bet'weeT ^oce^^d V UnW e r roT ?.' o.c'o? VhV p^ocelu r eT ' ' <* ' b "" k 
Pi 991 ALGOL - RECOVERING FROM SYNTAX ERROR 

i.K::i!;s. , "!ft , f.!?Sf. i , ;;i..s-:j.,!-:::..-!:;.;::!iu:- "- ■'■••• — - -■ ->»- 

BEGIN PROCEDURE P(I) BEGIN END; END. 
PI 992 ALGOL - CORRECT "IF" STATEMENT BRANCHES 

s,a P t^enTs Wh h:: ' ll^Tor r ec^ed' ' T f.ro™"'? '""f"' ^^^ •"» ""piling nested ,F 
following: corrected. A program for wh.ch incorrect code was generated is the 

BEGIN 
REAL GR 1 ; 

IF GR1=1 THEN GR1 :=2 
ELSE IF GR1 NEQ 3 THEN 
IF FALSE THEN 

GR1 :=4: 

END. 
PI 99 3 ALGOL - EXTERNAL PROCEDURE PARAMETER MISMATCH 

A possible parameter mismatch error on external procedures has been corrected. 
PI 994 ALGOL - TRUTHSETS IN "IF" CONDITIONS 

ALPH A r%:cur Tn'lhrJonirtionr^^riF ^ 1 ^ I 8 S r -d 'ruthsets ALPHA6 , ALPHA7 , or 
syntaxed is the following statement. An example of a program which previously 

SSET OPTIMIZE 
BEGIN 

POINTER P ; 

IF P IN ALPHA6 THEN P:=P+5 
END. T ' 

P1995 ALGOL - "SINCLUDE" USING STRINGS 

PI 99 6 ALGOL - "FOR" STATEMENT WITH VARIABLE STEP 

PI 997 ALGOL - "CTPROC" COMPILER HANG 

o^L, c -ii;i B c^Uj o ::i 1 t s. c jns c rory^^' D :? D1 'Spc.' d fr ™ ctcopyfile — - - 

P202 8 ALGOL - UPLEVEL POINTER DETECTION 

Srlhrt^.^f^L^trsricJrn"""""'^- T !: e »"> ■<•• ^ baS e d 

pointer was declared. PO.nter actually exists rather than upon the level at wh,ch the 

P2029 ALGOL - WRITING STRINGS IN ERROR MESSAGES 

Iv^uation^rf^th: firing 8 was* ;r[jtfn li !r a !h and a " """ " "countered. the interna! 
unpredictable r«»„ „" tlrm naU To r emedv^h i ."'J 'H * ' ■ Th j £ S,ri " 8 COU,d P roduce 

:^.r t ? B r.:io7 ,, :s.i i : "»-« is -- ?! -. --"^0^^-,;^^,?^, si „;:;;.■:. 

P203 ALGOL - ERRONEOUS REPEAT COUNT IN VALUE ARRAYS 
If in the following value array declaration: 

VALUE ARRAY VA (<repeat count) (constant list>)) 

lhe e < <rSp:at C coC„J> h ; 8 . t !; e d^ b ,: n;eci: <C ° nS ! ant 'i S,> r WaS PUt tWi " in ^ »»•>■ A. so. ,f 
repeat cSunt. The s e^rob 1 emfha ve" be en ' co r III t ed . ' '"" ^ ° f '^ ^'^ W3S ,ake " aS lht ' 
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P2110 ALGOL - "INVALID OP" IN FREEFIELD "WRITE" STATEMENT 

If a freefield WRITE statement (with the option */) , in which one or more of the list elements 
are arrays or array elements, were followed by an inner block, execution of the WRITE statement 
caused an INVALID OP. This problem has been corrected. 

The following example previously failed and now works correctly: 

BEGIN FILE F (KIND=PRINTER) ; 

ARRAY A[0: 10] ; 

WRITE (F,*/,A); 

BEGIN INTEGER I ; 
I :=0; 

END; 
END. 

P2111 ALGOL - WARNING COUNT RESET 

The iisting trailer for a batch job will now contain a warning count. The warning count is now 
reset to zero between separately-compiled procedures and between batch jobs so that the warning 
count printed in the trailer of a separately-compiled procedure or batch job reflects only the 
warnings which occurred in that procedure or batch job. 

P2112 ALGOL - "BCL" WARNING MESSAGE OCCURS CORRECTLY 

The BCL warning message which appears in the listing trailer has been corrected so that the 

trailer of a separately-compiled procedure containing no BCL constructs following a procedure 

containing BCL constructs and the trailer of a batch job containing no BCL constructs following 
a batch job containing BCL constructs will not contain the BCL trailer message. 

P2I13 ALGOL - "INVALID OP" IN FREEFIELD "WRITE" 

The following WRITE statement, which previously caused an INVALID OP under certain 
circumstances, now works correctly: 

WRITE (F./,*A[I]) 

P2114 ALGOL - "INVALID OP" IN "READ, WRITE" STATEMENT 

If a FORMAT or LIST declaration was followed by a PROCEDURE declaration whose body was not a 
block, the use of the format or list in a READ or WRITE statement would, in some cases, cause 
an INVALID OP. This problem has been corrected. 

P220O ALGOL - "<FILE ID>.<FILE ATTRIBUTE> :=•" 

Incorrect code is no longer produced for an assignment statement of the following form: 

<file id> . < f i 1 e at tribute > := * . . . 

P2218 ALGOL - WARNING MESSAGE GIVEN FOR FORMAT "A4030" 

The text of the warning message given for a format specification with a field width that is too 
large has been improved. The previous message: 

"NUMBER TOO LARGE. 2*39-2 WAS USED." 

was inaccurate. The new message is the following: 

"NUMBER TOO LARGE FOR THIS FORMAT SPECIFICATION" 

P2236 ALGOL - "IF FALSE" AND "SLINEINFO" 

A problem has been corrected which caused a SEG ARRAY fault to occur in the ALGOL compiler for 
certain IF FALSE THEN <statement> constructs when SLINEINFO was set. For example, the 
following program, which previously would cause the compiler to abort, now compiles correctly: 

$SET LINE INFO 

BEGIN 

IF FALSE THEN 

BEGIN 

REAL I ; 

IF 1=0 THEN 
BEGIN 
END; 

END; 
END . 
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P2237 ALGOL - SYNTAXING OF FORMAT SPECIFICATION DELIMITERS 

The ALGOL compiler will now correctly give a syntax error on an in-line format specification 
which ends in a right parenthesis instead of a right angle bracket (>), on a format or switch 
format declaration in which the <editing spec i f i cat i ons> are delimited by one parenthesis and 
one angle bracket, and on <editing spec i f i cat i ons> within <editing spec i fi cat i ons> which are 
delimited by a left parenthesis and a right angle bracket. For example, the following will now 
get syntax errors : 

WRITE(F,<I5),R); 

FORMAT FMT(A6> ; 

SWITCH FORMAT SFMT: =<F13 . 3) ; 

FORMAT HX(5(H12,X2>); 

P22 3 8 ALGOL - "SPAGE" AND THE COMPILER LINECOUNT 

Improvements have been made to the updating of the compiler's internal linecount, the number of 
lines printed per page, which is used for SFORMAT. In particular, the linecount will now 
initialized to zero whenever a JPAGE is encountered. 

P2239 ALGOL - COMPILER LOOP ON "DATABASE" DECLARATION 

A problem has been corrected in which the ALGOL compiler looped giving syntax errors for 
declarations beginning with the words DATABASE, TRANSACTION (for III. 1 only) or NUMBER. 

P2 240 ALGOL - REMOVE "?" FROM ALPHA6 

The character "?" has been removed from the truthset ALPHA6 . ALPHA6 now correctly consists 
only of the BCL letters and digits. 

P2 248 ALGOL - EXCLAMATION MARK AND UNDERSCORE 

A problem has been corrected in which incorrect bit patterns were being given by the compiler 
for ASCII or BCL string literals containing the exclamation mark or underscore. 

P2289 ALGOL - NO "COMPILER ERROR IN BUILDITEMDESC" 

The ALGOL compiler will no longer generate the "COMPILER ERROR - IN BUILDITEMDESC" message 
after the "FORMAL PARAMETER NOT SPECIFIED" message. 

P2290 ALGOL - NO SPURIOUS "UNKNOWN DOLLAR CARD" ERROR 

The ALGOL compiler will now generate the correct error when the dollar options XREF and 
XREFFILES occur after the first source image. 

P2439 ALGOL - "CASE" STATEMENTS WITH ALL CASES "GO TO" 

CASE statements of the form described below will no longer "fall through" (no case executed) 
when the arithmetic expression has its highest possible value. 

All the following conditions had to have been met for the failure to occur: 

1. The case selection expression ended with an isolate of 5 or fewer bits. 

2. The case statement had an "ELSE:" clause. 

3. All cases, including the ELSE, were unconditional GO TO statements. 

4. The highest value for the expression (after the isolate) was not an explicit case label. 
The problem has been corrected. 

P2579 ALGOL - STRING IN "DEFINE" TOO LONG 

A SEG ARRAY fault termination has been corrected which occurred when a quoted string which was 
too long was included in a DEFINE. 

P2587 ALGOL - SYNTAX ERROR WITH "SINTRINSICS" SET 

An INVALID INDEX in the ALGOL compiler following a syntax error in global declarations with 
SINTRINSICS set has been corrected. 

P2593 ALGOL - SEPCOMP OF PROCEDURES WITH STRINGS 

If a procedure which contained strings was sepcomped into, it was possible for the resultant 
code file to fault with STRING POOL EXCEEDED. This problem has been corrected. 
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P2 5 94 ALGOL - NO STRING PARAMETERS BY VALUE 



Strings are no longer allowed as by-value parameters for CALL or PROCESS statements and are not 
allowed either by-name or by-value for RUN statements. This prohibition prevents the untimely 
disappearance of the contents of string variables and the occurrence of a variety of system 
fatal dump situations. 
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DOCUMENT CHANGES NOTES (D NOTES) 
ALGOL INTRINSICS 



D2565 ALGOLINTRN - INTRINSICS 

Some of the intrinsics previously coded in ESPOL or DCALGOL have been recoded in ALGOL, and 
placed in separate symbol files. Those which were previously in the file SYMBOL/PLINTRINS ICS 
have been placed in the file SYMBOL/ALGOLPLINTRINSICS . Those which were previously in the 
files SYMBOL/ESPOLINTRINSICS and SYMBOL/DCALGOL INTRINSICS have been placed in the file 
SYMBOL/ ALGOL INTRINSICS . 

When creating an intrinsic file from scratch, SYMBOL/ ALGOL INTRINSICS and 
SYMBOL/ALGOLPLINTRINSICS should be compiled and the resulting object files bound with the other 
intrinsics. There are no special dollar options to set when compiling these two symbolic 
files, with the possible exception of the "LIBRARY" option. 

D2626 ALGOLINTRN - "DISPLAYTOSTANDARD" DESTINATION POINTER 

Previously, the DISPLAYTOSTANDARD intrinsic did a word replace into the destination pointer, 

the second parameter, so if that pointer were not at a word boundary, the standard form name 

would begin at the next word boundary. Now, the standard form name will begin exactly where 

the destination pointer specifies, regardless of whether it is at a word boundary. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
ALGOL 1NTRINSICS 

P2 140 ALGOLINTRN - "CSQRT" WITH ZERO IMAGINARY PART 

CSQRT wi 1 I no longer return different results depending upon the imaginary part being positive 
cr nega t i ve zero . 
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DOCUMENT CHANGES NOTES (D NOTES) 
ATTABLEGEN 



D2588 ATTABLEGEN - " I PCOVERR I DE " RECOGNIZED AS TASK OPTION 
The mnemonic IPCOVERRIDE is now recognied as a value for the task attribute OPTION. 
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DOCUMENT CHANGES NOTES (D NOTES) 



BACKUP 



D2583 BACKUP 



BACKUPBYJOBNR" 



The discussion of BACKKUPBYJOBNR SYSTEM OPTION in "System Software Operational Guide", Volume 
I, page 1-5-2 has been revised. The second paragraph has been corrected and now reads as 
f o 1 1 ows : 

When this option is set, jobs are printed by order of the job number. When reset, jobs are 
printed in reverse order of print quantity. 

D2 5 85 BACKUP - "END" AS RANGE STOP INDICATOR 

The System Software Operational Guide, Volume 1, No. 5001563, should be corrected as follows: 

Page 1-7-3 

The syntax diagram for <range part> should be corrected to read as follows: 

< range pa r t > 



l<- 



RANGE <numbe r > <number>- 



I 



-<striug>-| j- 



EQUAL <number>- 



-<s t nng>- 
- "END" — 



I 

| -<s t r ing>- 



Page 1-7-7 

The semantic description of END should be corrected to read as follows: 

"END" Is a range stop indicator for an EBCDIC string (besides either <number> or <string>) 
which is equivalent to setting the stop integer to 99999999. 

D2789 BACKUP - "NEWP" KEY SPECIFIED 

A NEWP key specifier has been added to SYSTEM/BACKUP. 

The B7000/B6000 System Software Operational Guide, Volume 1 (Form No. 5001563) should be 

corrected, as follows: 

On Page 1-7-3, the <key part> syntax diagram now reads as follows: 
<key part> 

<key start> — <key length> | 

- ALGOL 



- COBOL — 

- FORTRAN 

j- NEWP — 

i 

! - REPORT - 



On Page 1-7-6, add the following semantic description of NEWP after the semantic description of 
FORTRAN : 

"NEWP Is a key specifier indicating the appropriate columns for the NEWP sequence numbers 
on compilation listings generated by this compiler." 

D2 8 70 BACKUP - "BACKUP" SYNTAX 

The System Software Operational Guide, Volume 1 (Form No. 5001563), Page 1-7-1, shows incorrect 
syntax for <disk file>. The syntax diagram should be the following: 
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|<-/io\ 

! 

— / <number> 



<number> — <pr inter/punch filename> 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

BACKUP 

PI 761 BACKUP - FILENAMES WITH SPECIAL CHARACTERS 

BACKUP can now handle filenames with special characters; e.g., backup files with hyphenated 
names generated by COBOL programs may now be selectively PBed . 

PI 762 BACKUP - ALL COPIES NOT PRINTED 

The following command would print the first copy, but not print further copies: 
PB <filename> ON <packname> COPIES=<n> 

where <n> was greater than 1. This problem has been corrected; now, all copies are printed. 

PI 885 BACKUP - LP# LOST AFTER FORMS FILE 

If one file of a list of files has a forms request, the designated printer is lost after the 
forms file is printed; e.g., 

?PB "XYZ" LP# 

Now if one of the "XYZ" files has a forms request, the remaining files are printed on the 
designated printer after the forms file is printed. 

P2003 BACKUP - BACKWARD SKIP 

BACKUP would occasionally get a SEG ARRAY error after a backward skip, because the number of 
lines to space backward were incorrectly counted. This has been corrected. 

P2004 BACKUP - "BFILE" LABEL EQUATON 

If the following were entered: 

PB ND; FILE BFILE(KIND=DISK) 

BACKUP would not lock the file if DISK were physically a disk pack. This has been corrected. 

P2 5 67 BACKUP - BUFFER REDUCTION FOR "LIN" FILE 

BACKUP will now use one BUFFER for the LIN file, reducing the save memory requirements by 
approximately 300 words. 

P2 568 BACKUP - LOOPS WHEN "<SKIP COUNT>" OMITTED 

BACKUP would loop when the operator changed printers without skipping lines. This problem has 

been corrected. 

P2 5 69 BACKUP - "REEL" ATTRIBUTE NOT SET BEFORE "OPEN" 
BACKUP will now set the REEL specification in the PB command before it tries to OPEN the file. 
Exampl e : 

?PB Mr "<filename>" REEL=8 (KIND-PRINTER) 
This input will cause the following message if the tape is not mounted: 

"NO FILE BACKUP/<filename> (MT)»8" 

Note: The use of the following will cause the tape on the requested unit to be opened, 
regardless of the setting of the REEL value: 

?PB MT113 REEL=8 (KIND=PRINTER) 

P2 5 70 BACKUP - FILENAMES LIMITED TO "60" CHARACTERS 

BACKUP will now allow filenames of length greater than 60 characters. 

P2571 BACKUP - INVALID OPTION COMBINATION 

The use of BACKUP within a JOB to print BD files before the JOB has terminated is restricted to 
direct output only. The use of "ND" and either "*" or any other method of supplying the JOB's 
JOBNUMBER to BACKUP will result in the following error: 

"INV OPTION COMBINATION" 

The following example will produce the above error: 
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7BEGIN JOB X 

STRING S; 

RUN Y; 

S:="D" & STRING (MYJOB(STACKNO) , 4) & "ND" ; 

RUN *SYSTEM/BACKUP(S) 
?END JOB 

P2575 BACKUP - "ODT" DISPLAY FORMAT 

The ODT display made by BACKUP has been reformatted to remove blank lines and "floating" 
periods at the end of each message. 

P2576 BACKUP - FIRST LEVEL FILENAME VS. USERCODE 

In some cases, BACKUP would interpret the first level of a file name returned by GETSTATUS as a 
USERCODE, when, in fact, it was a SYSTEM file. This problem has been corrected. 

P2580 BACKUP - "BACKUP" VS. SYSTEM WITHOUT "DISK" 

BACKUP will no longer hang on a "<filename> REQUIRES DK DISK" message on systems that do not 
have a disk or pack labeled "DISK". BACKUP now makes a FILEIN. AVAILABLE check instead of a 
FI LEI N. PRESENT which allows it to continue on a "NO FAMILY PRESENT" error. 
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DOCUMENT CHANGES NOTES (D NOTES) 



BARS 



D29 7 8 BARS 



•SYSTEM/BARS" UTILITY 



This note describes the new performance reporting utility SYSTEM/BARS. This utility monitors 
the system's performance and displays it in the form of numeric values and bar graphs. Various 
system performance parameters are sampled and may be displayed in a user-controllable format on 

screen-type terminals. 

Performance elements are represented by a bar on the screen. The format of each bar is 
###XXX. . . where the #'s extend to the minimum value seen, the X' s extend to the current 
value, and the . *s extend to the maximum value seen. The display is updated every 'cycle' 
seconds, where cycle is a parameter which is dynamically variable from the terminal, and a 
running average is maintained over a user-set tabl e period. 

The following verbs are used to control the display: 

HELP (al ias TEACH) 

Displays this information. 



CYCLE 
PERIOD 



NEWDISPLAY 



DISPLAY 



Controls the sampling and terminal update interval. 

Several values are computed as running averages using the formula: 

NEW AVERAGE : = 

(OLDAVERAGE * (PERIOD-CYCLE) + NEWVALUE • CYCLE) / PERIOD 

PERIOD changes the value of period. If PERIOD < CYCLE, no averaging is done (i.e. 
the exact value is displayed). 

Modifies the format and content of the screen. Each item on the screen is 
specified by giving a key word followed by N's for the value field and B' s for the 
bar graph (both N's and B' s are optional); for example: 

Idle NN BBBBBBB 

will produce a display of the form: Idle 45 ###X. Text may be placed on the screen 
by placing it within single quotes: 'xyz'. The valid key words and their meanings 
can be displayed with the WORDS verb. A default display is supplied by the 
program. The NEWDISPLAY input that creates it can be displayed with the DISPLAY 
verb . 

Displays the input that would create a specified display screen. Three options 
exist: 

DISPLAY Shows the NEWDISPLAY input for the current screen. 

DISPLAY DEFAULT 

Shows the NEWDISPLAY input for the default screen. 



DISPLAY <file name> 

Shows the NEWDISPLAY input for a screen SAVEd in 
e.g. DISPLAY X/Y ON P. 



the speci f i ed file; 



SAVE <f i 1 e name> 

Saves the current display in the specified file; e.g. SAVE X/Y ON P. 



LOAD 



Loads a previously generated screen as the new screen. The options for DISPLAY are 
also valid for LOAD: 



LOAD 



Loads the current display. The screen does not change. 



WORDS 



LOAD DEFAULT 

Loads the default screen for monolithic systems. 

LOAD TCDEFAULT 

Loads the default screen for a B6800 multiprocessor system. 

LOAD TCMEMORY 

Loads a screen giving overlay information for each memory structure of a 
B6800 multiprocessor system. 

LOAD < f i 1 e name> 

Loads a previously SAVEd display. 

Displays the allowed key words for the NEWDISPLAY input plus a short description 
of their mean i ng . 



PACK (alias PK, alias PERPK) 

Displays the names, channel numbers, and family indicies of the packs currently 
on-1 i ne . 
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BYE 



Ends the program. 



The program begins by executing a LOAD DEFAULT command. The program is initialized to a 
different display if the file DISPLAY is label-equated to a SAVEd file; for example, FILE 
UI SPLAY = MY/SCREEN. 



If the file MONITOR is label-equated, the program will write the raw performance data 
file as it is received from the MCP; for example, FILE MONITOR = XXX. 



to that 
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DOCUMENT CHANGES NOTES (D NOTES) 
BINDER 

D2589 BINDER - BINDING "NEWP" 

The BINDER will now handle binding to MCP codefiles compiled in NEWP. The following 
restrictions apply to a subprogram being bound in: 

1. The subprogram cannot have been compiled in NEWP. 

2. The subprogram must have been declared external in the host. 

3. The subprogram cannot add any globals to the host or contain any OWN variable declarations. 

4. The only global variables that can be referenced by the subprogram are ones that were 
declared in the outerblock of the MCP. 

The BINDER will not handle binding to non-MCP hosts compiled in NEWP. 

D2714 BINDER - TRANSACTION RECORD PARAMETERS 

Separately-compiled program units may not be bound if they declare transaction records as 
parame t e r s . 

D2722 BINDER - BINDING OF PORTS AND SIGNALS 

The BINDER is now able to bind DCALGOL PORT and SIGNAL variables and arrays. 

Ports and signals that are parameters or globals are handled. Ports and signals that are 
globals that are added to a host will not have their attribute information copied into the host 
(as is traditionally the case with files added to hosts). 

02766 BINDER - INTERNAL HANDLING OF WARNINGS 

The BINDER'S handling of warning messages has been improved. 

Also, one "BINDER ERROR" error message has been changed from a warning into an error The 
handling of the "SOME PROCEDURES NOT BOUND" message has been improved. 

D2770 BINDER - PLACEMENT OF THE "MCP DO" STACK AND SAVE CODE 

When binding into an MCP, the BINDER will no longer place the DO stack and the save-code at the 
beginning of a disk row. Now, if the two pieces will fit in the current row, they will be put 
there . 

D2771 BINDER - REBINDING EXTERNAL PROCEDURES 

It is now possible to rebind the various DCALGOL procedures into a NEWP MCP host. Replacement 
binding is not allowed for procedures in the NEWP host, except for externals which were bound 
in and need to be rebound. 

Because of the interaction with the NEWP and SEPCOMP facility, the old code of the procedures 
being rebound is retained in the code file (although it is not pointed at and cannot be 
executed); thus, a substantial number of rebindings can cause the MCP code file to grow 
undes i rabl y 1 arge . 

D2815 BINDER - MULTIPLE "BIND=" CARDS 

If more than one BIND= statement is given to the BINDER, all but the last one will be ignored. 
An appropriate warning message will be given. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
BINDER 



P1513 BINDER - ALLOW MANY INSTALLATION INTRINSICS 

The BINDER now handles many installation intrinsics by giving the message "CODE. AREAS I ZE TOO 
SMALL- INCREASE IT BY LABEL EQUATION OF FILE CODE". When the AREASIZE is increased, the large 
number of installation intrinsics will no longer cause a problem. 

PI 5 14 BINDER - DETECT LARGE " INTRINSICINFO" 

The BINDER will now detect when INTRINSICINFO does not fit on a disk row. 

F1515 BINDER - BACK OUT CORRECTLY 

If the BINDER discontinues a BIND of one subprogram, incorrect placement of global variables 
will not occur when binding another subprogram. 

P1516 BINDER - BINDING ENTRY POINTS 

The binding of subprograms found in multi-procedure code files (produced when the compiler 
option SLIBRARY is SET) has been corrected. 

Some problems with binding FORTRAN entry points, whether these entry points were in 
mu 1 t i -procedure code files or in separate code files, have also been corrected. 

Symptoms of the erroneous binding were unbound procedures and entry points, binding procedures 
more than once, parameter mismatches, and improper internal generation of USE statements. 

The search for FORTRAN entry points has been isolated to FORTRAN and bound code files only and 
has been optimized to use much less processor and I/O time. 

P1517 BINDER - PRESERVE CONTROL STATE 

Installation intrinsics declared to be control state procedures will still be control state 
after binding. Previously, the BINDER was turning off the control state bit. 

PI 5 19 BINDER - CORRECT IDENTIFIER RECOGNITION 

The BINDER now correctly recognizes identifiers containing the following character: 

' (apostrophe) 

P2031 BINDER - PREVENT "INVALID OP" IN BOUND PROGRAM 

The BINDER would previously generate bad parameter checking code under the following condition: 
Binding a procedure that invoked a formal parameter procedure that had a double precision 
parameter. This has been corrected. 

P2032 BINDER - CLEAR INTERNAL ARRAY 

The BINDER occasionally failed to clear an internal array. This would cause either an INVALID 
INDEX termination of the BINDER later during the bind, or it would cause a global to be 
incorrectly added to the bound program at address (0,1). This has been corrected. 

P2178 BINDER - PROPER REBINDING OF STRING PROCEDURES 

The BINDER now properly preserves the procedure descriptions for ALGOL type STRING procedures 
in the code file that it creates. The major effect is that programs containing these STRING 
procedures may be correctly rebound. 

P2179 BINDER - UPDATE ERROR MESSAGES 

The BINDER is now able to give proper "TYPE MISMATCH" error messages for data bases and ALGOL 
string variables, arrays and procedures. 

P2434 BINDER - INSTALLATION INTRINSICS USING "MCP" PROCEDURES 

The BINDER will now correctly bind installation intrinsics that reference MCP procedures and 
tables that were not referenced by any system-supplied intrinsics. 

Previously, the BINDER would correctly add the first installation intrinsic that added an MCP 
"intrinsic" reference; subsequent installation intrinsics that referenced this MCP intrinsic 
would get a bad address couple generated. 
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P2465 BINDER - ENTRY BINDING CORRECTIONS 



Instances where the BINDER would look in the wrong code file when trying to find FORTRAN entry 
points have been corrected. The symptom of this problem was the following erroneous error 
me s sage : 

"IDENTIFIER OF SEPARATE PROCEDURE AND HOST DIFFER" 

The BINDER now looks in the proper code files. 

P249 2 BINDER - REBINDING WITH "FORTRAN" "DATA" STATEMENTS 

When rebinding a FORTRAN procedure that contained a DATA statement that initialized an array, 
the BINDER was throwing away too many segment dictionary items from the host. The effect of 
this was an INV OP termination when attempting to run the re-bound program. This problem has 
been corrected. 
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CANDE 



D2 590 CANDE - " 1 1 1 . 1 " CONTROLLER KEY INS 

CANDE will now recognize III.l controller keyins as synonyms for existing controller keyins, as 
fo 1 1 ows : 

"?ID" is recognized as a synonym for "?DC" 



"?SC" 

"?TD" 

"?SI" 

"?MXA" 

"7DUMP" 



D2634 CANDE - "SUBSYSTEM" TASK ATTRIBUTE 



'?PC" 
"?WD" 
"?WI" 
"7MIXA" 

"?DP" 



The SUBSYSTEM task attribute is now recognized as a modifier for CANDE task commands- e g 
RUN, COMPILE, LFILES. Compile-time specification of an object-file SUBSYSTEM is not Dossibi. 
i n CANDE . r 

Syn t ax : 

— SUBSYSTEM <name>— | 

I I 
I- = -I 



<name> 

l< 

! 

/17\ <1 et ter>- 

I 

| -<digi t >-- 



Examp 1 e : 

RUN PROG; SUBSYSTEM=ABC 
D2 63 6 CANDE - "Q-DS" MESSAGE FOR START JOB 

CANDE will now give a descriptive message when a job started via a START command is Q-DSed. 
D2665 CANDE - "LSN" RANGES 

The following control commands will now accept an LSN range; i.e., execute the respective 
command for each LSN in the range specified: 

ATTACH READY 

AUTOANS RELEASE 

NOAUTO SAVE 

CLEAR SS 

DISABLE STATUS 
ENABLE 

The syntax for an LSN range is as follows: 

— < 1 sn> I 



-< 1 sn>- 



The syntax for each command changed is follows: 



•I 



? — ATTACH <lsn range> 

|-<dls> 

j -<s t a t i on narae>- 
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? AUTOANSWER — 

|- NOAUTOANSWER 



-<lsn range> | 

-<dl s> 

-<s t a t i on name> 
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CLEAR <lsn range> 

-<dls> 

-<s t a t i on name>- 



DISABLE <lsn range>- 

-<dl s> 



-<s t a t ion name>- 



— ? — ENABLE 



-< 1 sn range> 

-<dl s> 

-<s t a t i on name>- 



READY <lsn range> 

-<dl s> 

-<s t a t i on name>- 



l< . — 

I 
RELEASE - — <lsn range>- 

-<dl s> 



TO — <f i le tit le> — | 



-<s t a t i on name>- 



< . I 

I 
— SAVE <lsn range> | 

-<dl s> 

-<s t a t i on name>- 



l< • 

I 
STATUS <lsn range> 

-<dl s> 

-<s t at i on name>- 
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ALL 

| < , 

-<lsn range> 

-<dls> 

-<station name>- 
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Ex amp I es : 

?STA 10-20, TI8 

7 ATTACH 3-4,35-49 

7RELEASE 6-10 TO SYSTEM/DIAGNOSTICMCS 

7ENABTTY1, 4:14, 50-53, ADM10 

D2666 CANDE - "OPTIONS COMMANDS" 

The RO and SO commands have been changed to allow the specification of more than one option 
with a single command. 

The syntax for these verbs is now as follows: 

| < 1 

RO 1 



SO - 



- MESSAGE 

- MSG 

- QWAIT — 



Ex amp 1 e : 

RO QWAIT MSG 

D2667 CANDE - "CONTROL" COMMAND EXTENSIONS 

The control command CONTROL has been extended to include a few new functions. The syntax for 
the command is as follows: 



— 7 — CONTROL 



-<lsn> 

-<dls> 

-<station name>- 
- ALL 



1 e are 

oma t i c 



The semantics of the command are exactly as they are previously, with the following extensions: 

1. If no LSN is specified (7CONTROL), all control stations are displayed in a list. 

2. If a minus (-) LSN follows CONTROL (7CONTROL-< 1 sn>) , that station is removed from the 
control station list and its control station status removed. 

D2668 CANDE - "WHAT" NEXT EXTENSIONS 

The WHAT next has been extended to check that families and files referenced by the workfi 
available, and displays the title if they are not. It also extends recovery to do an aut 
check on these families and files after they have been recovered. 

D2670 CANDE - MULTIPLE LOG STATIONS 

A CANDE LOGSTATION is a station which receives CANDE log messages and, if LGSPO is enabled 
receives ?SS messages directed to "ODT" . Previously, only one such station could be identified 
at a time. It is now possible to designate up to thirty (30) stations as CANDE LOGSTATIONs 
Sc^ctT 5 i^^'u S """I 1 sub ? et , of the possible logging functions set. Three new verbs (LGSTA, 
DSLGSTA, and LGOP) have been implemented to initiate, terminate, interrogate and/or change the 
logging functions of a designated station. The syntax, semantics and examples of each of the 
new commands follows. 

For all the syntax, the following definitions apply: 
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<s tat ion 1 i s t> 

l< • 

I 
_ <s tat ion name> 

<lsn> 

<dls> 



<opt ion 1 i s t > 

I < , 

LGATTACH — 

— LOGON 

-- LOGOFF 

— LGCHARGE - 

— LGERROR — 

— LGBOT 

— LGEOT 

— LGSECURE - 

— LGFAULT — 

— LGUNABLE - 

— LGSABORT - 

— AUTOINFO - 

— LGSPO 



LGSTA COMMAND 

This command causes the designated station(s) to be initiated as a CANDE LOGSTATION. 
— ? LGSTA — <s tat ion list> 1 



- ALL 

<opt ion 1 i st> 



? LGSTA 



This form of the command is only valid from a control station; it is 
not valid from the main console. It will cause the station from which 
the message originates to be initiated as a CANDE LOGSTATION. If the 
station is already a LOGSTATION, the error message "#<lsn> ALREADY A 
LOGSTATION" will be displayed. All logging functions for the station 
wi 11 be set to FALSE. 



Ex amp 1 es : 



?LG 

#T17 LG OPTIONS: -=AUTOINFO -=LGFAULT -=LGSABORT —LGUNABLE 

-=LGSPO -=LGSECURE -=LGEOT -=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON -=LGATTACH 

?LG 

# 13 IS ALREADY A LOGSTATION 

7LGSTA : <option list> This form of the command is only valid from a control station; it is 

not valid from the main console. It will make the station from which 
the command is initiated a LOGSTATION. If the station is already a 
LOGSTATION, an error message will be displayed. The logging bits for 
the specified option(s) will be set. The absence of an option will 
cause it to be set FALSE. 



Ex amp 1 e 
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?L0 : LOON , LOOFF , LGCHARGE 

#T17 LG OPTIONS: — AUTOINFO —LGFAULT -=LGSABORT -=LGUNABLE 

— LGSPO — LOSECURE — LOEOT -=LGBOT -=LGERROR +=LGCHARGE 

+-LGOFF +=LGON -=LGATTACH 

7LOSTA <station list> This form of the command is valid from the main console and a control 

station. It will make the designated station(s) a LOGSTATION and set 
a 1 logging bits FALSE. If no such station exists or the station is 
already a LOGSTATION, an error message will be displayed. Slatl0n ls 

Exampl es : 

7LGSTA T17.8 

#T17 LG OPTIONS: -=AUTOINFO -=LGFAULT -=LGSABORT -=LGUNABLE 

-=LGSPO -=LGSECURE -=LGEOT -=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON -=LGATTACH 
#T12 LG OPTIONS: -=AUTOINFO -=LGFAULT -=LGSABORT —LGUNABLE 

-=LGSPO -=LGSECURE -=LGEOT -=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON -=LGATTACH 

7LGSTA <s tat ion list> : <option list> 

This form of the command is valid both from a control station and from 

LOGSTAT ON C ?? S n ^ *£ "'".""".fe station(s) specified to be made a 

IO^aTI™' SUCh statlon exists, or the station is already a 

LOGSTATION, an error message will be returned. The logging functions 

specified in the <opt.on list> will be set. The absence of an oo ?on 

will cause it to be set FALSE. opuon 

Exampl es : 

?LG T 1 7 : LGERROR , LGFAULT 

#T17 LG OPTIONS: -=AUTOINFO +=LGFAULT -=LGSABORT -=LGUNABLE 

— FSSE2 -= LGSECURE -=LGEOT -=LGBOT +=LGERROR -=LGCHARGE 

-=LGOFF -=LGON -=LGATTACH 

It should be noted that only a control station may create a CANDE innsTATinM »,„ 

r:: t , rciNDE a LOGSTA??ON A IaZr: d " 0t bC a -°t-'"'a?ion AN i? sn^d^mph ™ eTtha "a 
uon control LANUt LUtrilAtlON cannot terminate itself as a LOGSTATION. 

DSLGSTA COMMAND 

This command causes the designated station(s) to be terminated as CANDE LOGSTATIONs . 
— ? DSLGSTA 



- (station list> - 

— ALL 



?DSLG 



nn !»mh° f =? mmand ls valid f >-om a control station only; it is 

not valid from the main console. It terminates the station from which 

not a e LOGlTATio£ ,nateS " * LOGSTAT10 ^ : If the or i g i na t i ng s "? on i , 

not a LOGSTATION, an error message will be displayed. 



Exampl e 



?DSLG 

#T17(13) DISCONTINUED AS LOGSTATION 

7DSLGSTA <s t a t i on 1 i s t > 

is valid from a control station or the main console I? °l rmi na t "e 
designated station(s) as a CANDE LOGSTATION. terminates the 

Exampl es : 

7DSLG 8,13 

#T12(8) DISCONTINUED AS LOGSTATION 

#T17(13) DISCONTINUED AS LOGSTATION 

?DSLG ALL This command is valid from both a control station and and the main 

console. It terminates all CANDE LOGSTATIONs . 
Exampl e : 

?DSLG ALL 

#ALL LOGSTATIONS DISCONTINUED 
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LGOP COMMAND 



The purpose of this command is to furnish the capability of interrogating, setting or resetti 
any or all of the logging functions for the specified LOGSTATION( s ) . 



*>■ 



LGOP 



<s t a t i on list> 

- ALL 



I | 

| - : — <opt ion 1 i s t > - | 



?LGOP 
? LGOP : 
7LGOP- 
7 LGOP + 



< option 1 i s t > 



The above forms of the LGOP command are for interrogation of the logging functions of the 
station from which the message originates. These forms may be used from both a control and 
non-control station. None are valid from the main console. In each case, if 
from which the message originates is not a CANDE LOGSTATION 

displayed. "?LGOP" displays the complete list of logging functions with their 

RESET. "?LGOP : <option list>" displays the current setting 
list>. "7LGOP-" and "7LGOP+" display the list of RESET 



case, if the 
an error mes sage 



value; i.e., SET or 
options specified by <option 
options, respectively. 



station 
will be 
current 
for the 
and SET 



Ex amp 1 e s : 

7 LG : ALL 

#T17 LG OPTIONS: +=AUTOINFO +=LGFAULT +=LGSABORT +=LGUNABLE 

+=LGSPO +=LGSECURE +=LGEOT +=LGBOT +=LGERROR +=LGCHARGE 

+=LGOFF +=LGON +=LGATTACH 
7 LGOP 
#T17 LG OPTIONS: +=AUTOINFO +=LGFAULT +=LGSABORT +=LGUNABLE 

+=LGSPO +=LGSECURE +=LGEOT +=LGBOT +=LGERROR +=LGCHARGE 

+=LGOFF +=LGON +=LGATTACH 
?LGOP:LGFAULT 

#T17 LG OPTIONS: +=LGFAULT 
7 LGOP - 

#T17 LG OPTIONS RESET: [NONE] 
7 LGOP + 
#TI7 LG OPTIONS SET. AUTOINFO LGFAULT LGSABORT LGUNABLE 

LGSPO LGSECURE LGEOT LGBOT LGERROR LGCHARGE LGOFF 

LGON LGATTACH 



?LGOP - 
7 LGOP + 



<op t i on 1 i s t > 
<op t i on 1 i s t > 



valid from 

used, the 

be set. If 



Each of the above LGOP commands is 
the main console. If a minus (-) i: 
plus (+) is used, the options will 
message will be displayed. 

Examp 1 es : 

7LGOP-: LGBOT 

#T17 LG OPTIONS RESET: LGBOT 

7 LGOP 

#T17 LG OPTIONS: +=AUTOINFO +=LGFAULT +=LGSABORT +=LGUNABLE 

+=LGSPO +=LGSECURE +=LGEOT -=LGBOT +=LGERROR +=LGCHARGE 

+=LGOFF +=LGON +=LGATTACH 
7LGOP+: LGBOT 
#T17 LG OPTIONS SET : LGBOT 



a control station only; neither is valid from 
list of options specified will be reset. If a 
the station is not a LOGSTATION, an error 



?LGOP<s t at ion 1 i s t > 
7 LGOP (Station list>:<option 
7LGOP- <s tat ion 1 i st> 
7LGOP+ <station I i s t > 



1 i s t> 



The above forms of the LGOP command are for interrogation of the logging functions of 
station(s) specified by <station list>. These forms are valid from a control stat 
the main console. In each case, if any station specified is not a LOGSTATION 
message will be displayed. "7 
functions with their current va 



the 

on and 

error 



list: <op t i on 
I i s t > for the 



list>" displays the 
station(s) spec i f i ed 



ii any station specitiea is not a LOGSTATION, an error 

LGOP<station list>" displays the complete list of logging 

lue for the designated station(s). "7 LGOP (station 

he current setting of the option(s) specified hv /nntinn 



current setting of the option(s) specified by <option 
i-i • « t di-c^t , ,T~T ' ? LGOP - <station list>" and "7 LGOP+ (station list>' 
display the list oi RESET and SET options respectively for the station(s) specified. 



Examp 1 e s 
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7LGOP T12 

#T12 LG OPTIONS: +=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

+=LGSPO -=LGSECURE +=LGEOT +=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON +=LGATTACH 
7 LGOP T17:LGON 
#T17 LG OPTIONS: -=LGON 
7LGOP-T12 
#T12 LG OPTIONS RESET: LGFAULT LGUNABLE LGSECURE LGERROR 

LGCHARGE LGOFF LGON 
7LGOP+T12 
#T12 LG OPTIONS SET: AUTOINFO LGSABORT LGSPO LGEOT LGBOT 

LGATTACH 

7LGOP - <station 1 i s t > : <opt i on 1 i s t > 
7LGOP + <station I i s t > : <opt i on 1 ■ s t > 

The above forms of the LGOP command are valid from a control station or a main console. If 
a minus (-) is used, the list of options specified will be reset for the designated 
station(s). If a plus (+) is used, the options will be set. In all cases, if a station is 
not a LOGSTATION, an error message is displayed. 

Examp 1 es : 

7LGOP T17 

#T17 LG OPTIONS: +=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

+=LGSPO -=LGSECURE +=LGEOT +=LGBOT -=LGERROR -=LGCHARGE 

-= LGOFF -=LGON += LGATTACH 
7LGOP-T17:LGSPO 
#T17 LG OPTIONS RESET: LGSPO 
7LGOP T17 
#T17 LG OPTIONS: +=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

-=LGSPO -=LGSECURE +=LGEOT +=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON +=LGATTACH 
7LGOP+T17: LGSPO 
#T17 LG OPTIONS SET: LGSPO 
7LGOP T17 
#T17 LG OPTIONS: +=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

+=LGSPO -=LGSECURE +=LGEOT +=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON +=LGATTACH 

7LGOP ALL 

? LGOP ALL: <option list> 

7LGOP- ALL 

7LGOP+ ALL 

Each of the above LGOP commands is valid from a control station or the main console, and is 
for the interrogation of all CANDE LOGSTATIONS . The presence of an option list will cause 
only the specified options to be displayed. The presence of a plus (+) or minus (-) will 
cause only the set or reset options to be displayed for all LOGSTATIONS. 

Examp 1 es : 

7 LGOP ALL 

#T17 LG OPTIONS: +=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

+=LGSPO -=LGSECURE +=LGEOT +=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON +=LGATTACH 
#T12 LG OPTIONS: +=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

+=LGSPO -=LGSECURE +=LGEOT +=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON +=LGATTACH 
7 LGOP- ALL 
#T17 LG OPTIONS RESET: LGFAULT LGUNABLE LGSECURE LGERROR 

LGCHARGE LGOFF LGON 
#T12 LG OPTIONS RESET: LGFAULT LGUNABLE LGSECURE LGERROR 

LGCHARGE LGOFF LGON 

7LGOP- ALL: <option list> 
7LGOP+ ALL: <option list> 

These commands are valid from a control station or the main console. They will cause the 
specified options to be set (+) or reset (-) for all CANDE LOGSATIONS. If there are no 
LOGSTATIONS, an error message will be displayed. 

Examp 1 e s : 

7 LGOP- ALL : AUTO I NFO , LGS PO 

#T17 LG OPTIONS RESET: AUTO I NFO LGSPO 

#T12 LG OPTIONS RESET: AUTOINFO LGSPO 

7 LGOP ALL 

#T17 LG OPTIONS: -=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

-=LGSPO -=LGSECURE -=LGEOT -=LGBOT -=LGERROR -=LGCHARGE 

-=LGOFF -=LGON +=LGATTACH 
#T12 LG OPTIONS: -=AUTOINFO -=LGFAULT +=LGSABORT -=LGUNABLE 

-=LGSPO -=LGSECURE -=LGEOT -=LGBOT -=LGERROR -=LGCHARGE 
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=LGOFF -=LGON +=LGATTACH 



OP COMMAND 



The ?RO and ?SO commands have been replaced by the ?OP command, 
interrogation, setting or resetting of any or all CANDE options. 



?OP will allow the 



? — OP 



+ - 



— SWAPALL 

— ALLLOGIN 

— DIALLOGIN 

— KEEPSTA 

— ALLMSG 

— CATDEFAULT — 

— CATALOGOK 

— DUMPOK 



?OP 

?OP- 

?OP+ 

These commands are valid from a control station and the main console. "?OP" will cause a 
complete list of the CANDE options with their current settings to be displayed. "?OP-" and 
"?OP+" will cause the list of reset and set options respectively to be displayed. 

Ex amp 1 es : 

?OP- 

#OPTIONS RESET: KEEPSTA DIALLOGIN ALLLOGIN CATDEFAULT 

CATALOGOK SWAPALL 
?OP+ 
♦OPTIONS SET: DUMPOK DOSWAPTO DOWAITOO ALLMSG 

?OP- <opt ion 1 ist> 
?OP+ <opt ion 1 i st> 

These forms of the command are valid from the main console and from a control station. They 
will cause the designated option(s) to be set (+) or reset (-). 



Examples : 
?OP+ 

#OPTIONS SET 
?OP+SWAPALL 
#OPTIONS SET 
?OP+ 
fOPTIONS SET 



DUMPOK DOSWAPTO DOWAITGO 

SWAPALL 

DUMPOK DOSWAPTO DOWAITGO SWAPALL 



The logging options LGFAULT, LGUNABLE, LGSABORT and LGSPO have been added to 
available logging functions. 



the list of 



LGFAULT cause CANDE faults to be noted at any LOGSTATION with the option set. 

LGUNABLE note CANDE service unavailable at any station with the option set. 

LGSABORT cause any abnormal termination of a CANDE SCHEDULE session to be reported at anv 
LOGSTATION with the option set. 

LGSPO cause any "?SS" messages addressed to the ODT to go to all LOGSTATIONs with the 
opt i on set. 

The 7WHER1S (without a usercode) command will report both the control station and LOGSTATION 
characters (i.e., "C" and "L") for any station that is a control or LOGSTATION. 
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D2672 CANDE - "SCHD" MESSAGE 



When a CANDE task is scheduled by the system, the SCHD message will now include the mix number 
of the scheduled task. 

D2673 CANDE - "PUBLIC" ABBREVIATION 

PUB will now be recognized as an abbreviation for PUBLIC in a SECURITY command. 

D2674 CANDE - DATA FILES UPDATE 

The implementation of CANDE is such that if a sufficient number of changes, none requiring an 
update, is made to the workfile, more than one update may be required to accomplish a complete 
update of the file; i.e., to produce a file that represents all outstanding workfile changes. 
In the case where the workfile is either type DATA or CDATA, this sometimes results in an 
incorrect update. Now, CANDE will discard any outstanding workfile changes that cannot be made 
with one update of the file and will display the following error message: 

"DATA LOST, LIMITED CHANGES ALLOWED TO DATA FILES" 

To prevent this from occurring, it is suggested that a periodic update of a DATA or CDATA file 
be performed using the UPDATE verb. 

D267 5 CANDE - RESEQUENCE OF "CANDE" 

The CANDE symbolic has been resequenced. 

D2679 CANDE - "WHO" CONTROL COMMAND 

The ?WHO control command allows an operator to easily determine the user of a particular 
station. If someone is using the station being queried, the information returned is in the 
same format returned for a blanket 7WHERE control command. If no one is logged on at that 
station, a message to that effect is returned. The ?WHO command is only valid from a control 
s tat ion . 

Syntax : 



? - WHO - - — <lsn range>- 
-<dl s> 



-<station name>- 



Examp 1 e : 

?WHO 15, 100 

#15 NOT ON 

1998 LIST JONES ON TTY23(100) 

D2740 CANDE - ACCESSCODE 

Two new commands have been added to CANDE: ACCESS and APASSWORD. 

— ACCESS 1 



-<accesscode>- 



-<pas sword>- 



- / - 



"ACCESS" will return the current accesscode for the session (not including the password). 

"ACCESS ." will assign a null accesscode to the session. 

"ACCESS <accesscode>/<password>" will assign or change the session accesscode after validation 
in the USERDATAFILE. 

Change of accesscode to a session is logged. 

— APASSWORD | 

I — < o 1 d pas sword> 

|- = -| |-<new password>- 
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APASSWORD allows the password to be changed for the current accesscode of a session If 
"APASSWORD" is entered, CANDE wi 1 1 prompt through the rest of the command, as follows: 

ENTER CURRENT ACCESSCODE PASSWORD PLEASE 

No APASSWORD request may be entered from a CANDE SCHEDULE session. 

When logging onto CANDE, CANDE wi 1 1 check the USERDATAFILE to see if the usercode has the 
ACCESSCODENEEDED bit set (TRUE). If the ACCESSCODENEEDED bit is set, CANDE will ask the 
foil owi ng : 

ENTER ACCESSCODE PLEASE. 

iL££ password is given (the password may be "." here, as for the USERCODE PASSWORD command), 
CANDE will ask for a password (using blotting or other special security measures, if needed as 
for the USERCODE PASSWORD command). The accesscode/password is validated in the USERDATAFILE 
If the accesscode is not valid, CANDE wi 11 send the following: 

INVALID ACCESSCODE/ ACCESSCODEPAS SWORD; ENTER ACCESSCODE PLEASE 

Logon will not be complete until a valid accesscode is supplied. 

"HELLO" will abort the logon attempt. In this case, CANDE wi I 1 respond with the following: 
ENTER USERCODE PLEASE 



When MAKEing a file, it may be TYPEd to "CONTROLLED" in the same manner in which a 
file is typed, as follows: 

MAKE A/B ALGOL: CONTROLLED GUARDFILE 

The security of a file may be changed to "CONTROLLED" in the same manner in which it 
changed to "GUARDED". 



To change the security from "CONTROLLED" to any other security, read/write 

is required. 

The new form for the SECURITY command is as follows: 

— SECURITY <f i lename> > 

SOURCE 

- OBJECT 

|- $ - 

> GUARDED <guard file name>- 

CONTROLLED - 



iccess to 



"GUARDED" 

may be 
the file 



l<- 



1\— 



_/l\ — 



- PRIVATE 
PUBLIC - 
SECURED 

IN 

OUT 

IO 



If an accesscode has read-only access (IN) to a file under its own usercode, doing a GET on the 
file will result in an unnamed workfile whose source is that file. 

CANDE will store the current accesscode of a CANDE session at the time of the creation of a 
workfile (GET/MAKE) in the tankfile for each user. At recovery time, if the accesscode is not 
null, the accesscode on the session must be the same as in the tankfile in order to recover a 
workfile. If an attempt is made to recover a workfile with a different accesscode, the 
following error message will be sent: 

INCOMPATIBLE ACCESSCODE 

The recovery file will not be recovered or purged. If the recovery file has an accesscode, it 
will be indicated in the list of recovery files as follows: 
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# Accesscode is different from the session's accesscode. 

* Accesscode is the same as the session's accesscode. 

CANDE wi 1 1 recognize the ACCESSCODE task attribute. For example, assume a session is running 
under usercode "UA" with accesscode "AA/PA" . The following is entered: 

RUN (UB)P ON HISPACK; AC AB/PB 

"AB" will be the accesscode for the task " (UB)OBJECT/P" . At task startup, "AB/PB" must be a 
valid acces scode/pas sword for user "UA" ; if not, the task will not be run. Access to the 
program file "(UB)OBJECT/P" will be determined by the security of the program code file; if 
"GUARDED" or "CONTROLLED", by the usercode "UA" and the session's accesscode "AA" . Supplying 
an ACCESSCODE task attribute on a task does not change the session's accesscode. The 
ACCESSCODE task attribute cannot be provided as a task attribute to a program being compiled 
from CANDE, as follows: 

"C; C AC=A/B" is val id 

"C; AC=A/B" is not valid 

Accesscodes are only required on tasks that access files which are protected by a guardfile 
which uses accesscodes to control access rights. 

Any CANDE SCHEDULE sessions will inherit the accesscode of the CANDE session. The ACCESS and 
APASSWORD commands are not valid within a CANDE SCHEDULE session. If a SCHEDULE session 
contains an ACCESS command with an invalid accesscode, the SCHEDULE session will be aborted. 

CANDE will include the accesscode in all log records about a session, in particular logon and 
logoff records . 

D2 827 CANDE - "?AT" CONTROLLER KEY IN 

The "?AT" controller keyin is now available in CANDE. 

Syntax : 

— ? — AT — <text> — % 

As a result of this implementation, the minimum abbreviation for the "7ATTACH" control command 
i s n ow three characters. 

Syn t ax : 



? — ATTACH <lsn range>- 

-<dl s> 



-<s tat ion name>- 



D2871 CANDE - " F I LEORGAN I ZAT I ON " 

In the CANDE Reference Manual (Form No. 5010259), Page 4-40, the syntax diagram for LFILES 
should be changed to read as follows: 
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LFILES 



I 

|-<f i lename> 

|-<di rectoryname>- 



ON < f ami 1 y name > -| 



-<depth> 

- ABBREVIATED 

- ALL 

- AREAS 

- AREAS I ZE 

- BLOCKS IZE 

- CATALOGUE 

- CREATIONDATE 

- CRUNCHED 

- CYCLE 

- DOUBLE 

- FILEKIND 

- FILEORGANIZATION - 

- FILETYPE 

- INTMODE 

- LASTACCESSDATE 

- LASTRECORD 

- MAXRECSIZE 

- MINRECSIZE 

- PRINTER 

- SAVEFACTOR 

- SECURITY 

- TIMESTAMP 

- UNITS 

- VERSION 



l<- 



I 
<mod i f i e r> 



On Page 4-41 add the following to the list of file attribute options: FILEORGANIZATION. 

D2916 CANDE - ADD "HOSTNAME" AS TASK MODIFIER 

The ability to run (compile, execute, etc.) a task on another host has been implemented. 

The following should be added to the definition of <modifier> in the CANDE Reference Manual 
(Form No. 5010259), Page 3-4: 

— HOSTNAME — = — <host identifier — | 

"If the host cannot be reached, CANDE will return the message "HOST NOT REACHABLE"." 
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CANDE 
PI 99 8 CANDE - HUNG SWAP JOB 



!rrnr the ™iAF e,n °?f * CANDE task that "running in swapspace due to an unrecoverable I/O 
TO IRRECOVERABLE' I VERROR"° rt t0 terminal with the message "TASK HUNG ON SWAPDISK DUE 

PI 999 CANDE - SCHEDULE FAULT CORRECTED 

^?I°! , i?? i h ? S H bee !l corre £f ed where CANDE would get a DIVIDE BY ZERO fault if a schedule session 
riL a problem was encountered opening the schedule output file. This would only 

happen it a prior schedule session had run to completion and an internal CANDE resource were 

* CUSCu * 

P2000 CANDE - "MATCH" VERB CORRECTION 

Th^ n nL MAT ? H ,h f two # .fj les is attempted and the newfile is not present, CANDE wi 1 1 now display 
tne name ot the newfile; e.g., F ' 

MATCH A TO B 
# NO FILE: B 

P2292 CANDE - "REPLACE" IN SEQUENCE NUMBER FIELD 

A. problem has been corrected where CANDE would allow the following syntax of the REPLACE verb 
to include the sequence number range of the workfile: 

8 <start column, - <end column> 

had S nrver d been y u°dated When thC MAKE ^"^ hS<1 bee " " Sed '° create the *or>=file and the workfile 

Ex amp 1 e : 

MAKE EXAMPLE ALGOL 

100 LINE #1 

REPL FIRST LIT /00//AA/ • 73-80 :t 

P2293 CANDE - "REPLACE" ON "ID" FIELD 

en^fief s u :c e eed d ng e «he f ftM? "'^ ° f ^ "'""' W ' ' » "° W W ° fk ">"««»* on all sing.e line 
P2294 CANDE - "INSERT AT END" ON EMPTY WORKFILE 
If the following INSERT syntax is used: 
INSERT <file title> AT END 

workfM, W °i^ fi l!fJ S • mpty ' CANDE dUpIa ? s the error ■••««« "EMPTY WORKFILE"; however, the 
TSh.IinSn. H«i ln A * UCh u a •*■»? th.t '« *■» possible to get the following CANDE errors on 
subsequent LIST commands on that workfile: 

ORPHAN 
XSBUF 

This problem has been corrected. 

P2353 CANDE - "VALUE" SION ON "EXECUTE" 

oUs U sien 8 in f ?h!rinL VA V UE -M 8U8e k" i CANDE EXECUTE wa s being treated as a minus sign. A 
plus sign in this context will now be handled correctly. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 CANDE 



MARK 3 . 1 
SOFTWARE IMPROVEMENTS NOTES (P NOTES) 



PAGE 1 3 3 



CAROLINE 



PI 886 CARDLINE - JOB CARDS TRANSFERRED TO DISK 

CAROLINE wi 11 now allow the transfer of job cards to disk (TASKVALUE=10) . The maxrecsize of 
the output file will be as requested in the file LINE equate statement. Previously, a 14-word 

maxrecsize was always used. 
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COBOL 



D2676 COBOL - INSPECT ALGORITHM MEETS "ANSI74" SPECIFICATION 

The comparison cycle algorithm used for INSPECT statements has been changed slightly. This 
change only affects INSPECT statements having multiple tallying operands. (The tallying 
operand is the identifier designated as IDENTIFIERS in the syntax for the INSPECT statement on 
Page B-23 of the COBOL Reference Manual, Form No. 5001464.) 

Previously, such statements were treated as if they were separate INSPECT statements, with the 
full comparison cycle applied to each tallying operand even though a match may have occurred on 
a prior tallying operand. This was incorrect according to the ANSI74 standard. 

Now, the comparison cycle encompasses all tallying operands in the INSPECT statement, with a 
match causing subsequent tallying operands to be made ineligible for matching until the next 

cycle. 

An example is necessary to illustrate this delicate distinction. Assume the identifier "I" is 
3 characters long and has a value of "AAA": 

INSPECT I TALLYING 
X FOR ALL "A" 
Y FOR ALL "A" . 

Previously, both tallying operands, X and Y, were incremented by 3. Now, only X is incremented 

by 3. 

D2683 COBOL - DOLLAR OPTION "BINARYCOMP" 

A new dollar option, SBINARYCOMP, has been provided to override the default interpretation of 
computational data items as 4-bit quantities when the B2S00 option is set; i.e., when 
BINARYCOMP is set in conjunction with B2500, computational items will be maintained in internal 
binary format. The default setting is RESET. 

The setting of the option must appear before the IDENTIFICATION DIVISION and may not be 
modified subsequently. 

The option may be invoked at compile time via a dollar card or by recompiling the COBOL 
compiler with the BINARYCOMP option set to establsh a different default. 

D2816 COBOL - "NOTE" VERB EXTENSIONS 

The NOTE construct has been extended to be compatible with the Medium Systems COBOL. The 
following formats are now acceptable. 

PARAGRAPH (starting in Margin A) NOTE 

1. <procedure-name> SECTION. NOTE <comment> 

2. <procedure-name> .NOTE <comment> 

3. NOTE <comment> 

SENTENCE (starting in Margin B) NOTE 
1. NOTE <comment> 

D2839 COBOL - LIBRARY FACILITY IMPLEMENTED 

The Library facility has been implemented in COBOL and COBOL74. As documentated in Appendix B, 
User Interface to Libraries, alt COBOL programs are now made library-capable and may use 
libraries via the CALL statement. The EXIT PROGRAM statement has been expanded to cause a 
library to return to its caller if it indeed was called as a library. 

D2850 COBOL - "B7700 AUDIT" FEATURE 

AUDIT is now -a reserved word to support the B7700 AUDIT feature. 

D2852 COBOL - SEPARATORS 

In the discussion of the separators comma and semicolon on Page 7-6 of the COBOL Reference 
Manual (Form No. S001464), Rule (e) is incorrect and should be replaced by Rules (e) and (f), 
as f ol 1 ows : 

"e. Semicolons and commas may appear only where shown in the syntax formats and may not be 
used interchangeably. 

f. Semicolons may be used only in the following places: 

1. Between statements 

2. In a conditional statement: 

(a). Between the condition and statement-1 
(b). Between statement-1 and ELSE" 
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D2 854 COBOL - "MOVE" STATEMENT 



The method used by the COBOL compiler to compile MOVE statements with multiple receiving fields 
is incorrect and is in conflict with the correct method specified in the COBOL Language 
Reference Manual (Form No. 5001464) on Page 7-74 and in the American National Standard 1974 
version of the COBOL Language. Consider the following statement: 

MOVE A(I) TO I ,X. 

Currently, the effect of this statement is the same as the two following consecutive 
stat emen t s : 

MOVE A( I ) TO I . 
MOVE A(I) TO X. 

This is incorrect, since the subscript for the source is re-evaluated for the second move, and 
the value of I may be different. 

The source expression should be evaluated only once, with the MOVE operations being the 
f o 1 1 ow i n g : 

MOVE A(I) TO < temporary > 
MOVE <temporary> TO I 
MOVE < temporary > TO X 

The correct method will be implemented on a future release. MOVE statements with multiple 
receiving fields which could produce incorrect side effects should be avoided. 

D2872 COBOL - "TIME" AND "COMPILETIME" FUNCTIONS 

The following text should be added to the note on Page 2-14 of the COBOL Reference Manual (Form 
No. 5001464): 

"It is advisable to move TIME and COMPILETIME functions to numeric or numeric edited 

receiving fields to ensure decimal point alignment. When these functions are moved to 

alphanumeric receiving fields, different move rules apply and frequently cause unexpected 
results." 

D2873 COBOL - SORT VARIABLE LENGTH RECORDS 

The COBOL Reference Manual (Form No. 5001464), Page 7-120, should be corrected as follows: 

"(b) The input files to be merged may have either fixed- or variable-length records." 

D2874 COBOL - "OCCURS DEPENDING" OPTION 

Several corrections have been made with regard to the use of the DEPENDING option of the OCCURS 
clause when the ANSI74 dollar option is set. In ANSI74 COBOL, an OCCURS ... DEPENDING clause 
causes all group items which span the occurring item to be considered as variable length items 
whose length depends indirectly on the number of valid occurrences at the time of the 
reference. This situation conflicts with any SIZE. .. DEPENDING clause on any of these group 
items and will now be given a syntax error. Further, three other restrictions of ANSI74 COBOL 
will also be enforced: 

1. No group item spanning an OCCURS ... DEPENDING item may itself have an OCCURS clause. 

2. The only data items that may be declared in the structure following the OCCURS ... DEPEND I NG 
clause are those which are subordinate to the item having the OCCURS clause. 

3. The minimum number of valid occurrences is one (1). Setting the depending item to zero will 
cause an INVALID INDEX interrupt if either a group item spanning the occurring item or one 
of the subordinate data items to the occurring item is referenced. 

In addition, DISPLAY statements referencing variable length data items will now display only 
the appropriate number of characters, rather than the appropriate number of characters followed 
by spaces representing the unused character positions. 

D2893 COBOL - "DMS" EXCEPTION HANDLING 

Page 6-1 of the DMS II Host Reference Manual (Form No. 5001498) states that the entire DMSTATUS 
register may be referenced. 

This is incorrect. Only the individual fields within the register may be referenced by 
specifying a DMSTATUS attribute name in parentheses following the word DMSTATUS. 

D2921 COBOL - "DATE-COMPILED" CLAUSE HAS PERIOD 

The period for the DATE-COMPILED clause is now allowed in columns 59-70. 
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D2922 COBOL - EXCEPTION CODE FOR "ANSI74" INDEXED FILES 

The exception handling code for indexed I/O files under the ANSI74 option has been improved. 

D29 2 3 COBOL - "MONITOR" OUTPUT 

The MONITOR statement now observes the ANSI74 dollar option default advancing to AFTER, not 
BEFORE. 6 

D2958 COBOL - SETTING OF SYSTEM COMPATIBILITY OPTIONS 

The setting of system compatibility options are not mutually exclusive; i.e., setting a system 
option will not reset all other system options. 

The only exception is setting the ANSI74 option using a dollar card containing ANSI74 option 
that is not preceded by an option indicator. In this case, the B6700 option is reset. 

D29 59 COBOL - FILE ATTRIBUTE " I ORECORDNUM " 

The file attribute IORECORDNUM in COBOL is implemented so that it counts relative to 1. 

D2960 COBOL - COMPARISON OF NONNUMERIC OPERAND 

The following should be added to Page 7-18 of the COBOL Language Reference Manual (Form No. 
5001464) before the comparison of numeric operands: 

"Comparison of Non-Numeric Operand Versus Arithmetic Expression 



A non-numeric data item cannot be used in a relation condition with an arithmetic 
express ion . " 

D2962 COBOL - "OBJECT-COMPUTER" PARAGRAPH 

Any text appearing in the OBJECT-COMPUTER paragraph which is not part of the MEMORY DISK, 
SEGMENT-LIMIT, or PROGRAM COLLATING SEQUENCE clauses is considered as a comment. 

The syntax diagram of the OBJECT-COMPUTER paragraph on Page 5-5 of the COBOL Reference Manual 
(Form No. 5001464) should be amended to include a comment entry. 
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COBOL 



PI 434 COBOL - PROGRAM COLLATING SEQUENCE 

Several problems have been corrected regarding compares of data items against figurative 
constants when a program collating sequence clause was specified. 

PI 662 COBOL - EXCEPT I ONCODE FOR "ANSI 74" CORRECTED 

Under the ANSI74 dollar option, a READ statement with an AT END clause for a file which had a 
USE procedure was leaving the I/O result on the stack for any exception other than an AT END. 
This has been corrected. 

PI 66 3 COBOL - SCALE NON- INTEGER MOVED TO "DM" FIELD 

A non- integer numer i c i t em moved to a DM field was not being scaled (i.e., integerized) as was 
expected by the DM field. The scaling now takes place. 

PI 664 COBOL - GRACEFUL EXIT FROM SYNTAXED "STRING" STATEMENT 

When 'DELMITED' was misspelled in the STRING statement, the compiler would terminate with an 
END OF FILE NO LABEL. This error no longer causes the compiler to be DSed; instead, it 
continues on to a normal EOJ with a syntax error. 

PI 666 COBOL - "FILE-LIMIT" STATEMENT CAUSED "INVALID INDEX" 

A bad range check allowed an INVALID INDEX to occur in the compiler when the FILE-LIMITS clause 
was mal-formed. The range check has been corrected so that the compiler continues after 
syntaxing the mal-formed FILE-LIMITS clause. 

PI 763 COBOL - USER INTRINSIC CALLS NOT SCANNING END PERIOD 

On a CALL statement, when a user intrinsic is called with parameters by value, the period at 
the end of the statement was being skipped over. This could cause different logical structure 
of a nested IF statement than the structure that might have been intended. Scanning is now 
done prope r 1 y . 

P2033 COBOL - SPURIOUS ERROR MESSAGES 

A problem has been corrected where an error message would refer to a previous correctly defined 
88 1 eve 1 i t em. 

P203 5 COBOL - COMPILE TIME INFORMATION 

The compiler will now print 4 digits before the decimal point to avoid truncation on long 
elapsed times in the trailer summary. 

P2036 COBOL - HEX LITERAL COMPARES 

The compiler will now emit proper code to compare large COMP-2 data items with single digit hex 
literals. 

P2037 COBOL - "E" FORMAT SCANNER ERROR 

A problem has been corrected where the COBOL compiler would misinterpret the string ".4ELSE". 
This would appear if the "4" appeared in column 72 and the "ELSE" on the following card. 

P203 8 COBOL - COMPARISON OF INDEX DATA NAMES 

Several problems have been corrected in the handling of Index-Data name compares: 

1. Index-names and Index-data names will now compare properly in all cases. 

2. A syntax error will be given on compares between index-data-names with a data-name or a 
1 i t era 1 . 

3. Subscripting of index-data-names will now be correctly compiled. 

P2039 COBOL - "VALUE" CLAUSE 

An illegal VALUE clause subordinate to an OCCURS clause gave the proper syntax error, but would 
cause compiler termination with INVALID INDEX. This has been corrected. 

P2040 COBOL - IMPROVED STRING COMPARISONS 

Improved code is now generated for comparing unequal length strings. The technique consists of 
breaking the comparison into two parts, thus allowing detection of early termination of the 
compare and reducing overhead by elimination of space fill on the shorter string. The improved 
code is generated for equal or not equal relationals. 
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P2041 COBOL - "E" FORMAT ON CONTINUATION CARD 

If a constant in E-Format was split across a card boundary such that "E" was the first 
character of the continuation card and the exponent contained a "+" or "-" , an invalid syntax 
error would result (e.g., ".4E.25" where the "4" and "E" were not on the same card). This has 
been corrected. 

P2042 COBOL - DICTIONARY WRAPAROUND 

The compiler will now ensure that an error is generated whenever its internal table limits are 
exceeded . 

P2043 COBOL - DECLARATIVE EXECUTION 

A problem has been corrected where both standard error and record size USE procedures were 
present. Certain tape read parity errors can result in multiple bits being on in the result 
descriptor, thus simulating a record size error. This could result in improper execution of 
the record size routine. In addition, if subsequent end of file processing was specified, it 
would be performed regardless of the actual end of file. Code is now emitted to ensure that 
the correct sequence of actions occur when the above situation arises. 

P2044 COBOL - HEX LITERAL FIGURATIVES 

The handling of hex literals for VALUE, IF and MOVE statements has been corrected. In 
particular, one character ALL figuratives now work correctly for all cases. 

P2045 COBOL - SIMPLE LITERAL COMPARES 

Correct code is now emitted for the following cases: 

IF A>(-<1 i teral>) 
IF A>(<1 i teral>) 

P2046 COBOL - CORRECT STACK ESTIMATE 

The stack estimate passed to the MCP has been updated to prevent double counting of local stack 
cells for IPC capable jobs. 

P2047 COBOL - IMPROVED ERROR MESSAGE 

The compiler will now give an error when the BLOCKS I ZE file attribute exceeds 6SS3S. 

P204 8 COBOL - CORE ESTIMATE OF SORTING PROGRAMS 

The compiler will now correctly increment the core estimate for programs which specify the 
amount of memory in the SORT statement. If the memory specification is a constant, that value 
will be added to the estimate; otherwise, a value of 12,000 words will be used. 

P2049 COBOL - "PICTURE" CLAUSE 

For edited numeric and alphanumeric items, the PICTURE clause will now properly allow elements 
as described in pages 6-60 through 6-68 of the COBOL Language Manual (S001464 August 1977). In 
addition, when ANSI74 $ option is set, non-reserved picture characters are allowed as simple 
insert characters. 

P2050 COBOL - MIXED GROUP MOVES 

Correct code will now be generated for group moves when the sending and receiving fields usage 
differs and one operand in the MOVE is a two-dimensional array. 

P2051 COBOL - "VALUE" CLAUSE FOR "COMP-4" ITEMS 

Scaled decimal values in the VALUE clause of COMP-4 data items is now permitted. 

Ex amp 1 e : 

02 A COMP-4 VALUE 123.45 

P2052 COBOL - WARNING FOR VARYING SIZE RECORDS 

A warning message will now be given if the B2S00 option is set and there is no "RECORD 
CONTAINS" clause and all the record descriptions are not the same size for a given file 
descr ipt ion . 

P2053 COBOL - "COPY" STATEMENT LISTING 

The listing of COPY text has been improved when the COPY statement ends with a period in column 
72. It also improves the matching of error text with the source line when syntax errors occur. 
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P205 4 COBOL - CORRECT WARNING MESSAGE 

A warning message is now issued whenever an index-data name is set to literal zero. 
P205 5 COBOL - REPORT WRITER CONTROL FOOTING 

The compiler no longer improperly splits a CONTROL- FOOTING report group across a page boundary. 
P2056 COBOL - CORRECT OFFSET LISTING 

The correct offset will now be printed for LOCK and EVENT data-items when SOFFSET is used. 
P205 8 COBOL - NEGATIVE VALUED ATTRIBUTE MNEMONICS 

The compiler will now generate the correct value of negative valued attribute mnemonics. The 
following example will now work correctly: 

SET MYSELF (STATUS) TO VALUE (TERMINATED) 

P2059 COBOL - "XREF" 

COBOL will now XREF the occurrence of a file-name in the SELECT clause as being the point of 
declaration. Previously, the FD was noted as being the point of declaration. 

P2060 COBOL - TWO DIMENSIONAL SUBSCRIPTING 

An obscure problem has been corrected where the sending field operand of a group MOVE was a two 
dimensional array. If the receiving field usage differed from the sending field, an incorrect 
offset was generated for the sending field. 

P2061 COBOL - "CLOSE" WITH "PURGE" 

CLOSE with PURGE on a DIRECT switch file will now take the correct action. Previously a 
regular CLOSE was done. 

P2062 COBOL - "SELECTION" EXPRESSIONS 

Correct code is now generated for the use of figuratives in SELECTION expressions. 

Ex amp 1 e : 

FIND <set-name> AT <key> = SPACES 

P2063 COBOL - WORD ALIGNED MOVES 

The compiler will now generate improved indexing code whenever the sending or receiving field 
offset is aligned on a word boundary. 

P2161 COBOL - "OPTIMIZE" OPTION 

Incorrect code is no longer generated for PERFORM statements referencing paragraphs that have a 
small number of statements. The setting of the OPTIMIZE option causes such paragraphs to be 
compiled "in-line" at the site of the PERFORM statement, and in rare circumstances, incorrect 
code was being generated for certain statements. 

P2177 COBOL - "COPY" IN "LD" SECTION 

The compiler will now handle a COPY statement in the LB section. 

P2187 COBOL - "TIME" FUNCTIONS 

Incorrect results will no longer be obtained when using either the TIME(IO), TIME(15) or 
TODAYS-DATE functions in a COMPUTE statement. 

P2252 COBOL - STATISTICS NOT CORRECT FOR "STOP RUN" 

Paragraphs containing a STOP RUN statement were not being clocked off before blockexit, thus 
distorting the statistics timings for that paragraph. A STOP RUN statement now correctly 
clocks off statistics code for its paragraph. 

P22 5 3 COBOL - "SELECT" STATEMENT SYNTAX ERRORS 

A problem has been corrected where a syntax error in a SELECT statement with a FILE LIMITS 
clause could cause compiler termination with an INVALID INDEX. 

P2 2 54 COBOL - EXTERNAL "PROCEDURE" DECLARATIONS 

The compiler no longer terminates with an integer overflow while attempting to compile external 
PROCEDURE declarations which are syntactically invalid. 
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P225 5 COBOL - "UNITS" ATTRIBUTE 



The compiler no longer unconditionally generates a VALUE (CHARACTERS) for the UNITS attribute in 
the file description for all COBOL files. UNITS is now set to VALUE(WORDS) if the INTMODE 
attribute is equal to words (the usage of the first record is COMPUTATIONAL). 

P22 5 6 COBOL - CODE SEGMENT SIZE EXCEEDED 

A large paragraph causing a code segment greater than 4095 words would not be syntaxed if the 
size were so extremely large as to exceed 5460 words. This situation has been corrected. 

P22 5 7 COBOL - TOO MANY "REPORT" WRITER CODE CLAUSES 

More than 15 code clauses in a REPORT section caused the compiler to get a SEG ARRAY error. 
This has been corrected. 

P2258 COBOL - "INVALID INDEX" IN BAD "REPORT" WRITER 

A REPORT writer data division item that does not end with a period caused the compiler to fault 
with an INVALID INDEX. This error has been corrected; a syntax error is now generated. 

P2259 COBOL - "ANSI74 LINAGE" "WRITE AT END OF PAGE" 

A file using the ANSI74 LINAGE clause and the WRITE AT END OF PAGE clause would get an INVALID 
OP fault because the compiler generated bad code. This error has been corrected. 

P2260 COBOL - RANDOM FILE GETTING SERIAL WRITE ERRONEOUSLY 

A random access file written with a WRITE statement not having an INVALID KEY clause would 
erroneously get serial write action instead of random write action under the ANSI74 dollar 
option. This error has been corrected. 

P2 29 5 COBOL - EXCEPTION CODE ERRONEOUSLY CHECKING DATA BIT 

The code generated for exception handling on an INVALID KEY clause was erroneously checking the 
data bit result instead of the EOF bit. Correct code is now generated which checks the EOF 
bi t . 

P2313 COBOL - INCORRECT "SORT" STATEMENT 

SORT statements which failed to include one of the required reserved words MODULES, WORDS or 
CHARACTERS on the disk size clause would not receive a syntax error. Now, an appropriate 
syntax error is generated in this situation. 

P2314 COBOL - "LOCK" STATEMENTS 

Correct code is now generated for LOCK statements referencing COMP-1 data items which are both 
global and reference parameters. 

P2315 COBOL - "INVALID INDEX" IN LARGE CODE SEGMENT 

The compiler would fault with an INVALID INDEX when a code segment was large enough to be near 
4095 words. The compiler will no longer get an INVALID INDEX; instead, it will create the code 
segment so long as it does not exceed 4095 words. 

P2316 COBOL - MAXIMUM FILES ALLOWED 

The maximum number of files allowed to be declared in a COBOL program has been increased from 
99 to 127. 

P2317 COBOL - INFO TABLE OVERFLOW 

The compiler no longer occasionally terminates with an INVALID INDEX because the maximum number 
of info table entries was exceeded. 

P2318 COBOL - "XREF" 

Sequence number indications have been improved for references to receiving fields in arithmetic 
s t a t emen t s . 

P2319 COBOL - CONDITION NAMES 

Erroneous syntax errors (error #19) are no longer occasionally produced for legitimate 
references to condition names associated with a COMP-2 filler item in a display array. 

P2320 COBOL - MOVES OF NUMERIC LITERALS 

Correct code is now generated for moving numeric literals whose value is greater than 10**11 to 
single-precision computational data items which are not "word-oriented" within a data 
s t rue t ure . 
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P2338 COBOL - LARGE REPORT WRITER EXCEEDED CODE SEGMENT 

The compiler failed to syntax a program with an excessively large code segment in the Report 
Writer section. A syntax error will now be given for code segments which are too large in the 
Report Writer section. 

P2 3 39 COBOL - ANALYZE OPTION DUPLICATING LINES 

Information from a previous line of output from the ANALYZE option was being duplicated on the 
listing. This problem has been corrected. 

P2340 COBOL - NEGATIVE ZEROS IN "VALUE" CLAUSES 

Incorrect non-zero values are no longer given to 4-bit character data items having a negative 
zero in the VALUE clause of their data description. 

P2 341 COBOL - "COBOL" NO LONGER IGNORES MISPLACED "NOT" 

A statement of the form: 

IF <i tem> = NOT "ALL" 

was compiled the same as 

IF < i t em> = "ALL" 

Now, the compiler gives a syntax error. 

P2342 COBOL - "SEARCH" NESTED IN "IF" STATEMENT 

A SEARCH statement nested in an IF statement caused a logic flow problem when the OPTIMIZE 

dollar option was used. The ELSE part of the IF statement would be executed as well as the IF 

part on a complex IF-SEARCH-ELSE-IF construct. This worked correctly without the OPTIMIZE 
option set; now, that option also works correctly. 

P2 365 COBOL - LARGE RECORD DESCRIPTIONS 

Subscripted 4-bit character data subordinate to an EBCDIC group item having an OCCURS clause 
and an offset (in terms of 8-bit characters) greater than 2**15-1 are no longer addressed 
incorrectly. 

The following example declaration would have caused the elementary item "C" to be addressed 

incorrectly. 

Examp 1 e : 

01 TAB 

03 FILLER PIC X(50000). 
3 G OCCURS 10 TIMES. 
05 C COMP-2 PIC 9. 

P237 3 COBOL - CONDITION NAMES 

The invalid use of a numeric literal value in the condition name declaration of a non-numeric 
conditional variable no longer causes the compiler to fault with an INVALID INDEX while 
attempting to compile PROCEDURE DIVISION references to the condition name. 

The following example declaration would have cause the INVALID INDEX termination: 

77 X PIC XXX. 

88 LX VALUE 555 . 

P2377 COBOL - "INSPECT" VERB SLOW EXECUTION 

When using the INSPECT verb in the same way as using EXAMINE, INSPECT ram with a "tally" speed 
of only 20 characters per second. 

This has been improved; code generated by the compiler has been optimized. 
P2380 COBOL - "SORT" DYNAMIC FILE ATTRIBUTES 

SORT statements using files with dynamic attributes in the GIVING or USING clauses would cause 
the COBOL compiler to get an INTEGER OVERFLOW fault. The compiler will not get a fault 
correct code will be generated. 

P238 1 COBOL - ERRONEOUS SYNTAX ERROR 

When comparing a figurative constant against an arithmetic expression with subscripted 
variables, the compiler erroneously emitted a syntax error. The syntax error will no longer be 
emitted, and the comparison will be allowed. 
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DOCUMENT CHANGES NOTES (D NOTES) 
COBOL 7 4 



D2839 COBOL74 - LIBRARY FACILITY IMPLEMENTED 

The Library facility has been implemented in COBOL and COBOL74. As documentated in Appendix B, 
User Interface to Libraries, all COBOL programs are now made library-capable and may use 
libraries via the CALL statement. The EXIT PROGRAM statement has been expanded to cause a 
library to return to its caller if it indeed was called as a library. 

D2875 COBOL74 - "COBOL74" IMPLEMENTATION 

COBOL74 has been implemented, conforming to the COBOL ANSI74 Standard. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
COBOL TABLEGEN 



P1811 COBOLTABLE - "LISTACK" OPTION 

When compiled with the LISTACK option, COBOL TABLEGEN now correctly produces a listing of the 
reserved word table stack heads. s " 
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DOCUMENT CHANGES NOTES (D NOTES) 
COBOL 7 4 TABLEGEN 



D29 8 3 COBOLTABLE74 - "COBOL74 TABLEGEN" IMPLEMENTATION 

SYSTEM/COBOLTABLEGEN74 generates the text required for the declaration of reserved word defines 
and arrays in the COBOL74 compiler, obtaining its input from its own symbol file. 

The format for each reserved word is as follows: 

Col (inclusive) Use 



1-19 The actual spelling of the reserved word. 

21-39 The ALGOL identifier by which the reserved word is known within the 

compiler. If blank, the ALGOL identifier is spelled the same as the 
reserved word. 

41 Contains an "*" if a synonym for the previous reserved word. 

43-45 Contains the subclass (SCF) value for this word. The defines for these 

values are in the symbol file for the COBOL compiler. 

47 Contains the stackhead priority number. The larger the number the more 

quickly it will be found by the compiler's reserved word lookup routine. 

Desired patches should be made in accordance with the record format described above. 

The program should be compiled with "NEW" set. The ALGOL newtape file should be 1 abe 1 -equa t ed 
to the title of "SYMBOL/COBOLTABLEGEN74" . 

When the program is executed, it will: 

Read the new SYMBOL/COBOLTABLEGEN74 under the title " SYMBOL/ COBOLTABLEGEN7 4" with the file 
"GEN" . 

Create a patch to be used to create a new SYMBOL/COBOL74 under the title 
"PATCH/COBOLTABLEGEN74" with the file named "PATCH". 

Produce a listing of the generated defines if compiled with "LISTUFF" set. 

Produce a listing of the RSWD stackheads if compiled with "LISTACK" set. 
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SOFTWARE IMPROVEMENTS NOTES <P NOTES) 
COMPARE 

PI 88 7 COMPARE - USERCODE ATTACHED FILE TITLES 
COMPARE will now handle file titles which include a USERCODE. 
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D2267 CONTROLLER - FOUR VS THREE DIGIT SYSTEM SERIAL NUMBERS 

All system serial number fields have been expanded to allow four-digit numbers. 

D2404 CONTROLLER - NEW DISPLAY OPTIONS 

Qualifications have been added to the following ODT commands: A, JOB, MIX, S, W and their 
respective entries in the ADM. See GENERAL note D2535 for complete syntax and semantics. 

D2571 CONTROLLER - DISALLOW " PR I NTERLABELS " OPTION 

The PRINTERLABELS option no longer exists. Option 24 is now the OKTIMEANDDATE option; see MCP 
note D2592. 

D2 594 CONTROLLER - REMOVE "DCKEYIN" RESTRICTIONS 

DCKEYIN now allows all requests to be passed on to the CONTROLLER. The CONTROLLER now enforces 
any necessary restrictions. 

D2 63 7 CONTROLLER - REASON FOR QUEUE "DS" 

The system will now display the reason for queue insertion failure. 

This message is passed to the MCS if ORGWANTSMSG is TRUE. The message has the following 
format : 

Word .[47:8] = 21 Controller result 

.[39:8] = 6 Miscellaneous message 

.[31:8] = 3 Queue reject notice 

. [14: 15] = LSN 

Word 1 = Length of message in characters 

Words 2-N = Text 

D2940 CONTROLLER - LEADING BLANKS IN "ACCEPT" MESSAGES 

ACCEPT messages ( <mix number> AX ) will not have leading blanks scanned off if the first 
non-blank character following the AX i s a colon (:). In that case, the string following the 
colon is passed on to the program untouched. If the first non-blank character after the AX is 
not a colon, the message will be deblanked as before. 
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PI 07 3 CONTROLLER - "ADMEVENT M" 

ADMEVENT M now functions after a Halt/Load. 

PI 07 7 CONTROLLER - "PC" VS. "MPX3" 

SC (or PC) no longer gives "PROGRAMMED H/L" and "STRINGS PRESENT" messages on a system with a 
Model 3 Multiplexor. 

PI 705 CONTROLLER - "REMOTESPO" 

REMOTESPO no longer goes into a loop when it is; DSed. 

PI 706 CONTROLLER - "NEXT" ON "RJE" PERIPHERAL STATUS REQUEST 

The NEXT input message on an RJE RSC will now work correctly when more than one "PAGE" of 
output (as specified by the RSC s TERM description) is generated by a request for peripheral 
status. 

PI 765 CONTROLLER - "SQ" COMMAND CORRECTION 

The SQ command no longer misses printing "NO ENTRIES" after printing the first non-empty queue. 

P2308 CONTROLLER - "CONT6 GETDISK" 

Occasionally, JOBFORMATTER would abort because a job file header was spread across two rows of 
JOBDESC. This problem has been corrected. 

P2399 CONTROLLER - MESSAGE GREATER THAN "1896" CHARACTERS 

A terminal sending a message with a length greater than 1896 characters (3/6 words) such that 
the MCS passes it to the CONTROLLER (through REMOTEINPUTQ) can cause a non-fatal dump by string 
protect. This problem has been corrected. 

P2400 CONTROLLER - CORRECT "MQ- 1023" 

Entering "MQ- 1023" (or any other number >30) will no longer hang the system. 
P2440 CONTROLLER - "SCR" LENGTH 

The length of input for the SCR command passed to SETSTATUS is now correct. 
P2466 CONTROLLER - MNEMONIC IMPROVEMENT 

Control card commands and PD commands from RJE are now allowed. The ADM mnemonic JOBS now work 
proper ly . 

P2467 CONTROLLER - PRIVILEGED "MCS" 

The CONTROLLER now recognizes an MCS as privileged when bit 45 in word II of the message is on. 
This gives the inquirer full ODT privileges. 

The following restriction is applicable, however: If a usercode is included in the message that 
is designated from a privileged MCS, a "NOT ALLOWED" message will be returned. 

P2489 CONTROLLER - "PRINTLABEL" 

A possible dump for an empty line when PRODUCEALABEL calls HARDCOPY has been corrected. 
P25 25 CONTROLLER - "ODT" TIMOUT 

The timeout for ODTs has been corrected. 

P2541 CONTROLLER - "CV" VS. "HARDCOPY" 

The CONTROLLER will no longer get an INVALID INDEX fault when hardcopy is running and a message 
of length is queued for output. ' 

P9217 CONTROLLER - "SQ NO ENTRIES" 

When the CANDE command "?SQ" is entered and there are jobs in Q<n> , if the user's job is not in 
Q<n> it will show "NO ENTRIES". Previously, it would show a blank line. 
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D2903 DATACOM - STATION INTERROGATE DCWRITE EXTENSION 

An extension to the "interrogate station environment" DCWRITE (TYPE=4) has been made to allow 
access to the station's NDL-declared terminal name. The name can be accessed by setting 
MSG[0] . [31 : 1 ] to 1 in the interrogate station DCWRITE message. The terminal name will be 
returned via the interrogate station environment result (CLASS=15), which is similar to the 
mechanism used to return station names. In INX: =INDEXWORD. [47 : 8] , there will be an index into 
the result message (MSG) for the terminal name. The name can be retrieved by scanning EBCDIC 
characters, starting in MSG[INX] until a terminating period (.) occurs. WARNING: 
INDEXWORD. [47 : 8] will contain zero for a SCHEDULE station or if a disk I/O error occurs when an 
attempt is made to read the NIF for the terminal name. 
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DATA COMMUNICATIONS 



P2 106 DATACOM - SEGMENTED ARRAY DISK "I/O" 

Datacom I/O into and from segmented arrays now functions properly. DCINITIAL will no longer 
get an INVALID INDEX or INVALID OP fault while attempting to initialize a datacom system that 

has more than 1023 stations defined. 

P2107 DATACOM - RECONTIMEOUT FAILURE 

DCRECON's wait for reply loop has been rewritten to give it an adequate opportunity to get 
processor time, even in the heaviest load conditions, so that spurious system dumps by DCRECON 

should no longer occur. 

P2 108 DATACOM - "DCCONTROL" INVALID INDEX 

DCCONTROL should no longer get an INVALID INDEX when a move/swap cluster DCWRITE is requested. 

P2 109 DATACOM - SET UP LINE CONTROL INDEX 

DCRECON now properly sets up the new line descriptor and line table on a move/add/subtract 
DCWRITE request. The primary and auxiliary bits, [47:2], of the descriptor are no longer 
overwritten. Line tallys are properly cleared. The correct field is used for ensuring line 
control indices are valid. 

P2 3 97 DATACOM - RESTARTING DSED "DCP" 

the MCP keeps internal statistics on each DCP, which remain in existence as long as the datacom 
tables are present. One piece of information is the fact that this DCP stack has been DSed. 
If that DCP is later restarted and the datacom tables are still present, there was one path 
through initialization which did not clear the DSed bit. That caused two problems: the message 
"DCP <n> RUNNING" would constantly appear on the ODT, and the MCP procedure DCINFOINT would get 
a fault and programdump when SYSTEM/DCSTATUS was run for that DCP. Both these problems have 
been corrected. 



P24 50 DATACOM 



"DCP" TERMINATION 



Two problems which could occur when a DCP terminated have now been corrected. 

In the first, DCTERMINATE was clearing the DCP file status for all stations and not just for 
those stations assigned to lines on the terminating DCP. That would cause the MCP to forget 
about auditing or file mode operations that were in progress for stations on other DCPs . 

The second problem occurred when DCCLEAR was invoked to purge object job output while a DCP was 
terminating. A memory dump by INVALID DCCLEAR would result, even though DCTERMINATE had already 

purged the output. 



from 



P2 5 83 DATACOM - SUBTRACT STATION FAULT WITH NO "DCP 0" 

A "FAULT IN DO CODE" dump would occur in DCRECON when attempting to subtract a station 
line in a network which had no DCP defined. This problem has been corrected. 

P2 596 DATACOM - NOT READY LINES AFTER CLUSTER EXCHANGE 

For DCPs with local memory tables, if clusters were transferred from one running DCP to 
another, it was possible for the lines on those clusters to be marked Not Ready, even though 
the Exchange Clusters DCWRITE (Type 129) requested that they be left Ready. That problem has 
now been corrected by reordering the sequence of steps performed by the MCP: the line and 
station tables for the affected clusters will now be copied from one DCP to the other before 
the clusters are transferred, rather than after. In this manner, the line and station tables 
will be correct when the lines are reinitialized by the Add Clusters request and will be left 
in the specified Ready/Not Ready state. 

If any of the transferred clusters fail to initialize on the new DCP, the MCP will now notice 
this fact and report the failure(s) on the ODT, just as at DCP initialization. The MCS will be 
informed by DCWRITE Error #171 in its Exchange Clusters result and by having the mask bit(s) 
for any failed cluster(s) reset to in the cluster transfer mask (word 0, bits [15:16]). By 
comparing the original mask with this mask returned in the result message, the MCS can 
determine which cluster(s) failed to initialize after transfer. 

P2622 DATACOM - SET "ICANWAITF" IN DC INSERT GETAREA CALL 

DCALGOL programs doing DCINSERTs with arrays that are longer than the 
insert will no longer cause fatal GETAREA dumps. 



size specified 



the 
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P2623 DATACOM - "DCTANKING" ERROR HANDLING CORRECTIONS 

Two problems in DCTANKING have been corrected. 

1. Under some conditions, an error on the tank read could cause the entire GETAREA row to be 
forgotten erroneously with numerous fatal after effects. 

2. Dumps by "GETAREA SIZE" would occur if a queue were emptied while DCTANKING was getting disk 
for it. 

P9144 DATACOM - "ADD STATION TO FILE" "DCWRITE" 

The ADD STATION TO FILE DCWRITE (TYPE=67) may now be used with tasks running in swapspace. An 
MCS performing this DCWRITE will no longer get a DCWRITE ERROR when attempting to add a station 
to a file for a task running in swapspace. 

P9157 DATACOM - INSERTING NULL MESSAGE IN INACTIVE QUEUE 

Inserting a null message into an inactive queue will now activate that queue. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DCALGOL 



D28 3 8 DCALGOL - SETTING READ-ONLY ATTRIBUTES 

In DCALGOL, it is now permitted to assign values to read-only file, task, port and signal 
attributes. An attempt to assign a value to a direct read-only attribute is still a syntax 
error. 

D295 5 DCALGOL - INTERROGATION RESULTS 

The second paragraph on Page B- 1 3 of the DCALGOL Reference Manual (Form No. 5000052), should be 
replaced with the following: 

"In the most common case, interrogation results are returned in one or more messages which 
have the format described under the "Interrogate Station Environment Result" (Class-lS) 
message. In the case of an error condition or an MCS issuing a blanket interrogate and 
having no stations assigned, no Class 15 messages are returned." 

Add the following at the end of the fourth paragraph on Page B- 1 3 : 

"Also of interest is the fact that if an MCS with no stations defined as assigned to is 
issued such a blanket interrogate, no Class 15 messages are returned and MSG[6] will contain 
to indicate that fact." 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DCALGOL 



PI 882 DCALGOL - ERRONEOUS PARAMETER CHECKING INFORMATION 

The way information about the procedure type is put in the actual and formal parameter checking 
arrays has been corrected. The preparation of an actual parameter checking array for epilog 
procedures has been corrected; previously, a parameter mismatch would result when calling a 
formal epilog procedure. 
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DCALGOL INTRINSICS 



PI 888 DCALGOL I NT - CORRECT "DCP" SLEEP ADDRESS K INTERPRETATION 



Procedure DCERRORANALYS I S in 
the form LOB3F:l into label 
to perform this function for it 
address. Actually, DCERRORANALYS I S 
interpretation was being done for DCP 
will be against the proper DCP and code 



the DCALGOL INTRINSICS attempts to interpret a DCP sleep address of 

information of the form USER( 1 2345678 )+9 . It calls DCSYSTEMTABLES 

supposedly passing it the DCP number as well as the sleep 

was passing only the sleep address, so all label 

This has been corrected, so that label 

file. 



i nt erpre t a t i on 
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DOCUMENT CHANGES NOTES (D NOTES) 



DCP PROGRAM GENERATOR 



D27 7 2 DCPPROGEN - IMPLEMENT VARIABLE SIZE STATION TABLE 



In the past, a station table base size was either 6 words (without DCP sequencing) or 8 words 
(with DCP sequencing). Certain message-oriented constructs for autonomous DCP systems (like 
auditing and filemode) also needed extra words in the station table. Rather than always making 
the station table base the maximum possible size, each NDL compilation will now determine what 
constructs were used that require extra words in the station table and will assign and allocate 
only those locations needed; thus, with this change, the station base may be any (fixed) size 
from 6 to 10 words in length. The message-oriented MCP has been similarly modified to allow it 
to make use of this new information and to initialize a datacom system whose stations tables 
have either the old or new sizes. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DCP PROGRAM GENERATOR 



P2108 DCPPROGEN - "DCOONTROL" INVALID INDEX 

DCCONTROL should no longer get an INVALID INDEX when a move/swap cluster DCWRITE is requested. 
P2201 DCPPROGEN - "OR" AND "XOR" CODE GENERATION 

Under some circumstances, DCPPROGEN was not generating the proper code sequence for 
implement. ng the NDL operators OR and XOR. The problem, which occurred only when both operands 
were byte-variables and did not reside in the same scratchpad or word of memory, has been 

cor rcc i cu . 

P2325 DCPPROGEN - FURTHER AUXILIARY LOGIC CORRECTIONS 

Two problems dealing with the selective placement of portions of request sets or line controls 
into auxiliary (main) memory have been corrected in the NDL compiler. Both problems concerned 
l, h r$„ U i!Sv ° f $SET AUXLOGIC/SRESET AUXLOGIC dollar cards in NDL sburce programs ?n which ?he DCP 
AUXILIARY statement was not used. If the AUXLOGIC dollar card option wa! changed only between 
I. e ^Tr^ir. SetS .* nd ,,ne contro i s >. }*' occurrence might be ignored. Furthermore, when the 
AUXLOGIC options was changed wi thin a request set or line control, it sometimes would not take 
effect until after the following statement, rather than before. Both of these problem areas 
have been corrected; some additional code optimization in the switching between local and 
auxiliary memory has also been performed. 

P2401 DCPPROGEN - EXTEND LABELS FOR "20" BIT ADDRESSING 

With the advent of Message Oriented Autonomous DCPs , it is possible to use much more than 16K 
££p K°°?i (autonomous) memory (for tables and buffers). The code generated for an autonomous 
DCP by the compiler already uses 20-bit addresses, but the internal variables of the compiler 
(labels, etc.) s t i 11 accept on! y 16-bit addresses. Thus the statistics printed out at the end 
of a compilation by DCPPROGEN are currently incorrect when more than I6K of autonomous memory 
i s requi red . ' 

This change to the compiler corrects those statistics and other internal variables and error 
checking; it makes no change to any code that is generated. 

P2402 DCPPROGEN - FULL DUPLEX TERMINATION 

Several problems associated with terminal ing a full-duplex station that was operating on a 
Message-Oriented Autonomous DCP have been corrected. 

P2441 DCPPROGEN - "LOSSOFCARRIEJUDISCONNECT" VS. "SECUREDLINES" 

If the SECUREDLINES option was used in the DCP section of a SOURCENDL program, a loss of data 
set carrier could be treated as a disconnect condition, even for those lines usina modems which 
had not specified LOSSOFCARRIER-DISCONNECT. This situation has been corrected moaems «""<=" 

P2491 DCPPROGEN - CORRECT CODE LISTING FOR 20-BIT LABELS 

A recent change to DCPPROGEN converted internal labels from 14 to 20 bits to handle lareer 
memory sizes. When SCODE is set to produce a code listing, all branch addresses must be 
converted into the new form of internal label before they can be displayed. This was not beinu 
done, such that a branch to address L0XXXX:X printed out as address M4XXXX. This problem has 
been corrected. 

P2493 DCPPROGEN - "TERMINATE OUTPUTREQUEST" LABEL ERRORS 

Because of improper code optimization, DCPPROGEN could get a label error durine code eeneratinn 
for an NDL TERMINATE OUTPUTREQUEST statement. The problem has been corrected generation 

P2554 DCPPROGEN - SAVE AND USE "ADDCLUSTERS " VARIANT 

*nrJ<. n , a ,^^ ent chan 6 e t° I". 9-1 and higher DCPPROGEN caused the variant field of the 
ADDCLUS.TERS request to be ignored. This field is used to indicate whether the lines on the 
affected clusters should initially be made READY or NOT READY. By ignoring the variant the 
usual effect was to leave the line in whatever state it had been in previously The variant 
will now be saved and properly used in determining the initial line state. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DCP TEST GENERATOR 



P2366 DCPTESTGEN - "MAKE NEWTAPE FILEKIND=DCPSYMBOL" 

When using "$SET NEW" using DCPTESTGEN, the FILEKIND of the new symbolic created will no longer 
default to DATA; instead, it will be set to DCPSYMBOL by the compiler. 
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DOCUMENT CHANGES NOTES (D NOTES) 

DCSTATUS 

D2 696 DCSTATUS - EXTENSIONS 
SYSTEM/DCSTATUS has been extended to provide more information from the datacom network files. 

1. A <modetn option> has been added. This option will report modem information from the NIF 
file for a specific modem or for all modems defined in the network. 

The syntax for the <modem option> is: 

— MODEM | 

I I 

|-<modem number>-[ 

2. The <terminal option> has been extended to report the names of the application sets defined 
for that terminal. 

No additional syntax is required. 

3. The <dcp option> has been extented to report DCP information from the NIF file. 
The modified syntax for the <dcp option> is: 

-- DCP <dcp number> | 

! I 

| mdl -j 

i I 

j-<dcp number>-| 

4 A (network option> has been added to produce a brief tabular network configuration report. 
The report contains the following fields and information: 

DCP number and exchange status 
Cluster numbe r 
LINE info 

Address (DCP number: cluster number: LINE number) 
STATION information 

Station name (20 characters) 
Special characters or address characters 
LSN 

Terminal name (17 characters) 

Connection medium (DIRECT or modem name, 17 char) 
LINE speed, character size, adapter mode 
MCS name (30 characters) 

The syntax for the <network option> is: 

— NETWORK | 

I I 

|-<datacom file prefix>-| 

< datacom file prefix> 

---< f i 1 e name> | 

I I 

|- ON — < f ami 1 yname>- | 

The default files are those of the currently active network or those specified by the <file 
option>. If datacom is not running or a report on a different set of files is desired, the 
< datacom file prefix> must be specified. 

Note: SYSTEM/DCSTATUS will append DCPCODE and NIF in the correct places. Usercode files 
are valid. 

5. A <file option> has been added to permit access to datacom files other than the currently 
active network files. If no <datacom file prefix> is specified, file access defaults to the 
currently active network. 

-- CAUTION — 

Changing the network file prefix precludes reporting information requiring active 
network information; i.e., the following are the only allowable options. 
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DCP <dcp number> NDL 

STATION <station number) NDL 

TERMINAL 

MODEM 

GRAPH 

NETWORK 

The syntax for the <file option> is: 

— FILE I 

I I 

|-<datacom file prefix>-| 



Ex amp 1 e s 



RUN SYSTEM/DCSTATUS("DCP 1 NDL; NETWORK MIDNIGHT/NET") 
RUN SYSTEM/DCSTATUS("FILE NOON/NET; TERMINAL; FILE; LINE 0:20") 
♦DCSTATUS NETWORK 
**DP REMOTE ("FILE TEST/NET; MODEM; FILE; DCP NDL") 

* Syntax for CANDE 
** Syntax for DIAGNOSTICMCS 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - GENERAL 



D2611 DMS 1 1 - TRANSACTION PROCESSING SYSTEM 

Extensions required to support the DMSII Transaction Processing System have been implemented. 

See Appendix C, Implementation of Transaction Processing, for details of implementation. 
D2709 DMSII - "B7700" OPTIMIZATION 

To optimize DMS II programs on the B7000 series, an attempt is made to not purge the 
associative memory when executing the READLOCK operator. All the DMS II products and the DMS 
II compilers (DMALGOL, COBOL, ALGOL, and PL/I) have been affected. 

The compilers normally released to B7000 series sites are generated with the dollar option 
B7700CODE set. This means they have the potential to generate code optimized for the B7000 
series under control of the dollar option B7700. Furthermore, the default value of the B7700 
dollar option for these compilers is SET. Thus, they automatically generate code optimized for 
the 117000 series machines by default. 

The compilers normally released to B6000 series sites are generated with the dollar option 
B7700CODE reset. This means that they do not have the ability to generate code optimized for 
the B7000 series regardless of the settings of any dollar options in the user program 
s ymbo lies. 

All code files will run correctly on either series of machines. Furthermore, codefiles 
optimized for the B7000 series will probably not incur too much extra processor overhead when 
running on B6000 series machines. 

The DASDL compiler has the dollar option B7700 which is reset by default. The setting of this 
dollar option is remembered in the description file, and ACCESSROUTINES compiled from such a 
description file will be optimized for the B7000 series if the DMALGOL compiler used has this 
capability. The DASDL dollar option B7700 should normally be superfluous, however, since 
DMALGOL compilers capable of generating code optimized for the B7000 series have the B7700 
dollar option set by default. 

D2802 DMSII - RETAIN OR REUSE OLD STRUCTURE NUMBERS 

The algorithm for assigning structure numbers in DASDL has been changed. Structures now retain 
their structure number when they are updated or reorganized. Unas signed structure numbers, 
which are created by structure deletion, are now reused by newly added structures on the next 
DASDL update. This keeps the size of the database description file at a minimum. 

Programs that attempt to use deleted structures or structures that have changed since the 
program was compiled will now receive an exception, VERSIONERROR Subcategory 2, when attempting 
to access the structure rather than being terminated with an INVALID OP fault. 

D2806 DMSII - DATA DICTIONARY 

The Data Dictionary consists of a data base containing information about data and transaction 
bases. and the programs which reference them, together with programs for entering and deleting 
this information, and for collating it and displaying various reports. 

See Appendix A, Implementation of Data Dictionary, for details of implementation. 

D2868 DMSII - NEW ERROR MESSAGES 

As a result, of the implementation of Transaction Processing, the following error messages have 
been implemented: 

Audi terror 



3 Midt ransac ton and not in transaction state 

4 Normal Begint ransact ion or Endt ransac t ion while data base opened by Transaction 
Processing System 

5 Transaction Processing System Begint ransac t ion or Endt ransac t ion while data base 
not opened by Transaction Processing System 

6 Transaction Record has improper TRSTATE value 

7 Midt ransac t ion while data base not opened by Transaction Processing System 

Abort 

2 Abort has occurred and Transaction Processing System rerun not finished 
Opene r ror 



44 Data base opened in incompatible subsystem 

45 This option not permitted while Transaction Processing System active 

46 This option not permitted until Transaction Processing System recovery completed 
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D2930 DMSII - "III. 1 DMSII" ON " 1 1 1 . MCP" 



111.1 DMSII software may be used with the III.O MCP on either the B6000 or B7000. B6000 
systems must use the III.O PR1 or later MCP; B7000 systems must use the B7000 III.O PR1 MCP. 

Both the UTILTY Dump Tape Directory and the Transaction Processing System employ libraries; 
therefore, they require the III.l MCP. 

D2954 DMSII - "I I. 8" DATA BASE SOFTWARE ON "III. 2" 

111. 2 ACCESS ROUTINES will not be usable by application programs compiled on II. 8 or earlier 
re 1 eases . 

D2965 DMSII - UPDATING FROM "III.O" TO "III.l DMSII" 

The following procedure may be used to update to the III.l DMSII release. 

1. Copy and compare the III.O DASDL source, description file and system software to tape using 
Library Maintenance. 

2. Dump the data base files to tape using the III.O UTILITY program. 

3. Load the III.l DMSII software and perform DASDL update. In order to ensure an easy return 
to III.O, do not make any changes to the DASDL description of the data base during the 
update. Following successful update, III.l system software will automatically be compiled. 

4. As a precaution, the data base files may be dumped using III.l UTILITY. If ADDRESSCHECK or 
CHECKSUM are enabled for the data base, III.l UTILITY will check these values as the data 
base is dumped. Structures which contain errors may be reconstructed using III.l software 
from III.O UTILITY dumps and III.O audit trails. 

5. User programs will continue to run on III.l without being recompiled. 

The following procedure may be used to return to III.O software provided no changes were made 
to the DASDL description of the data base during DASDL update. 

1. Dump the data base files to tape using III.l UTILITY. 

2. Backup copies of the audit may be made using COPYAUDIT. 

3. Reload the III.O DASDL source, description file and system software from tape. 

4. Perform a RECOVER UPDATE of the control file using DMCONTROL. This will transfer the 
information from the III.l control file to the III.O control file. Do not RECOVER 
INITIALIZE the control file. 

5. User programs will continue to run normally. Programs compiled with III.l compilers will 
run using III.O ACCESSROUTINES if the update level in the description file was not changed 
by the DASDL update. This value is only changed when the description of the data base 
changes . 

Several D-Notes contain information which is especially useful for conversion to III.l DMSII. 

a. ACR D2617 

The visible DBS operator interface has been substantially enhanced. This D-Note collects 
all information concerning the visible DBS in a single document. 

b. DASDL D2751 

DASDL now starts a WFL file titled DATABASE/WFL/COMPILEACR to compile all tailored DMSII 
software . 

c. REORG D2736 

This D-Note collects all information concerning REORGANIZATION in a single document. 

d. UTILITY D2710 

I/O error handling has been improved. UTILITY now verifies checksums and addres schecks when 
dumping the data base. UTILITY now detects errors which previously went undetected. 

e. UTILITY D2835 

This D-Note collects all information concerning UTILITY in a single document. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - ACCESSROUTINES 

D2566 ACR - ADDITIONAL TRANSACTION STATISTICS 
This chance to the ACCESSROUTINES adds some additional statistics to the transaction statistics 
and corrects a number of minor problems with the transaction statistics. 

The following problems have been eliminated: 

1. The I/O WAIT TIME for the audits was not being cleared on a STATISTICS RESTART through the 
visible DBS . 

2 WAIT FOR SYNCPOINT time was not being accumulated for programs that did an ENDTRANSACTION 
SYNC that had to wait for syncpoint . Al so , WAIT FOR SYNCPOINT time was not being accumulated 
for programs taking a syncpoint because of a close of the data base. 

3 The WAIT FOR SYNCPOINT time could occasionally be incorrect and show up as a very large 
' value PRINTSTATISTICS was incorrectly resetting the value when multiple programs were 

waiting for syncpoint when PRINTSTATISTICS ran. 

A number of new statistics have been added to the transaction statistics summary. An example of 
the new statistics and a description of them is given below. 

TRANSACTION STATISTICS 



TOTAL TRANSACTION COUNT 241 

TOTAL SYNCPOINT COUNT 25 

TOTAL CONTROLPOINT (CP) COUNT 12 

WAIT FOR SYNCPOINT/CONTROLPOINT COUNT 5 oi7 ^„^ 

AVERAGE WAIT FOR SYNCPOINT/CONTROLPOINT 0.297 SECONDS 

AVERAGE TIME TO TAKE CONTROLPOINT 0.480 SECONDS 

AVERAGE NUMBER OF BUFFERS FLUSHED AT CP 9.9 

PERCENT OF MODIFIED BUFFERS FLUSHED AT CP 49 . 8 % 

1 . TOTAL TRANSACTION COUNT 

This is a count of the number of times that BEGINTRANSACTION has been executed. 

2. TOTAL SYNCPOINT COUNT 

This is a count of all syncpoints that have been taken. This does not include syncpoints 
that turn into con t rolpoint s ; thus, if the syncpoint frequency is 10, and the controlpoint 
frequency is 10, every 100 transactions the statistics will reflect 9 syncpoints and 1 
cont rolpoint . 

3. TOTAL CONTROLPOINT (CP) COUNT 

This is a count of all cont rolpoint s taken against the data base. 

4. WAIT FOR SYNCPOINT/CONTROLPOINT COUNT 

Basically, this is a count of how many times programs had to wait at BEGINTRANSACTION for a 
Deriding syncpoint to be taken. This also includes the number of times programs had to wait 
for a syncpoint because of an ENDTRANSACTION SYNC statement or because of an implicit 
syncpoint at data base close. 

5. AVERAGE WAIT FOR SYNCPOINT/CONTROLPOINT 

This is the average amount of time a program had to wait for a syncpoint to be taken. Since 
some syncpoints cause cont rolpoint s to be taken, this wait time also includes wait for 
controlpoint time. Since cont rolpoint s typically take longer than syncpoints, the wait for 
sviiCDoint time may be severely biased by the number of times cont rolpoint s are taken. The 
next statistic, TIME TO TAKE CONTROLPOINT, should help to determine the amount of bias. 

6. AVERAGE TIME TO TAKE CONTROLPOINT 



This is the average amount of elapsed time required to accomplish a controlpoint This 
includes the time to flush the current audit buffers, flush all modified data buffers not 
flushed since before the last controlpoint, flush all storage control information, and 
update all disk headers for structures whose LASTRECORD attribute has changed. This time is 
directly affected by the number of buffers per structure being used and by the audit buffer 
size Large numbers of buffers available for a structure or a large audit buffer size can 
cause controlpoint times to be excessively large. In addition high controlpoint 
frequencies can increase total controlpoint overhead. The audit buffer size should not be 
made so small that too many audit I/O's occur and WAIT FOR AUDIT time becomes excessive. 

7. AVERAGE NUMBER OF BUFFERS FLUSHED AT CP 

This is the average number of modified buffers forced back to the data base at controlpoint 

time. 
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8. PERCENT OF MODIFIED BUFFERS FLUSHED AT CP 

n^hin l t C P erccnt ? f »'• "nod'Hed buffers present at con t ro I po i n t time that were a-tua'U 
number of Suf f( .° "" , data base at ,hat '*■«■ Careful control o f The aSd i T bu f f er s ?i " 
reduce this fi.urT f 1™*""^' "? ^^'f? 1 P oint frequency as indicated in 6) above can 
ideal of Si * potent.ally worst value of 50% down to a value close to the 

D2607 ACR - NEW "I/O" ERROR HANDLING PROCEDURES 

Procedure IOERRORHANDLER has been implemented to handle I/O errors and ArrFSSRntiTiMPe a 

errors (ADDRESSCHECK and CHECKSUM). IOERRORHANDLER ill 1 aDnfonr?^! Lr dete ? ted 

regarding the error retrv the I/O if ...iuh f„ r Ai i '' ""spiay appropriate information 

thf retrfes f a i 1 . ° se t ' , £ ^ * DMROWLOcV £ i " and' ,'epir t ' ti^f Ic t . " ' " ' * S ° f *">' "'""■ a " d ' ' f 

Upon entering IOERRORHANDLER, two messages are disolaved The fir., „„„ t r- u u 

was a read or a write, the structure thf I/O was fo^'and the ffle nam!? '" Wheth£r the ' '° 

Ex amp 1 e : 

DISPLAY: ***READ ERROR ON STR #2, FILE: (DMSI I )DB/D/DATA ON DMS . 

DISPLAY: ***WRITE ERROR ON STR #3, FILE: (DMSI I )DB/D/S ON DMS. 
The second message gives more detailed information about the I/O as follows: 
RSLT th^processed I/O result descriptor from the DCB fo. lowed by an explanation of the 

FaS^ thl ^f^mlly^rnoe^^^^tn: ^IT to* ' *% , ~ ch < ' ' H™]™™ 

<fid>(<row>).ROWADDRESS. [29:81 the 1/0 was attempted - 

ADDRESS the hardware address of the block 

BLOCK Iht r°T ? f thC fiU °" Whi ° h the I/0 was attempted - <block> D1V <fid> AREASI7F 
BLOCK the relative segment number of the first se"ment of the m„,i. f , I r '■ * KtAbI/:E 

the I/O was attempted - <buf f e r > . IORECORDNUM ° C ° f the f '' e °" wn,ch 

Examp 1 es : 

^DRESS^J^ FAMILYINDEX=2, 

dis f ^l;;^it 4o ^res 6 ^^ , 7 , "K-r-ssr i . familynam ™ • 

NOTE: Since ADDRESSCHECK and CHECKSUM errors are ACR detor.^H ,f,., 

descriptor will be displayed. errors are ack detected after good reads, no result 

Following these displays, if the error was on a read: 

If the error is an ADDRESSCHECK or a CHFfKSIIM »,-,•„,• .1. , 

MAXRETRIES (a DATABASE/PROPERTIES define ,™» °U , - ead Wl ' ' be retr ^d up to 

transient error. If the read was retr?ed YIZV * } ■ IT \" a ? at tempt to get around any 

retries attempted and whether "ey Succeeded or'nof* *" " "* dlS P la * ed ««"in B the number o'f 

Examp 1 e : 

DIS w™urlu^ESS R STR #2 ° N ° MS " AS BEEN RETRIED 3 TIMES 

"^SUCCEEDlSrf" 3 F ° R STR #2 ° N ° MS WAS RETRIED 2 TIMES BEFORE 
If the error was on a write: 

wn:the; te ,:: n w ^ t t r:nou!d y .: ^i?*, 1 ..:?„»? io f t thi ?f f ? i d ', the opera r wm be asked 

retried up to MAXRETRIES times, and f stm ^successful wf 1 ° "'^ the W '" ite wi ' ' be 
retry loop. Upon leaving the retrv I™ !,.?•' V\ l re P eat ,ts accept and 
saying to lock the row) , ^message wi 1 be d sn 1 llll f ' . . ucceeded • or the operator responded 
and whether they succeeded or no? displayed telling the number of retries attempted 

Examp 1 es : 

DIS w™UT*s^CcIss° R STR #3 ° N DMS HAS BEEN RETRIED ' TIME * 
ACC A^S : PROCEED™ WRITE F ° R STR * 3 ° N DMS ' 0R L T0 W« ROW #2 

b?a^ks I :re e p^mi:t: d . theACCEPTeXaCtly R ° r Ll " USt be — red. No trailing characters or 
DIS IuCCEEDI^ ITE F ° R STR * 3 ° N ° MS WAS RETRIED 14 ™S BEFORE 
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NOTE: All successful writes will be re-read and compared against the original for 

correctness before the write is considered good. 

if the retries are not successful, the appropriate DMROWLOCK bit will be set and the operator 
wi ! ! be lold that the READERROR or ROWLOCK bit was set. 

Examp 1 e s : 

DISPLAY: ** 'READERROR BIT FOR ROW #3 OF STR #2 ON DMS HAS BEEN SET. 

DISPLAY: »**ROW #2 OF STR #3 ON DMS HAS BEEN LOCKED OUT. 

DISPLAY: ***READERROR BIT FOR ROW #3 OF STR #2 ON DMS WAS 
ALREADY SET. 

If the database is audited and the retries fail, a special record (RDERR for reads, BLKIMG for 

writes) will be written to the audit trail for later analysis. These records contain the 

result descriptor and the block in error so that frame shifts, dropped or added bits, etc., 
might be seen. 

Some examples of an entire dialog are: 

1 A CHECKSUM error is detected which is corrected after 1 retry 

DISPLAY** 'READ ERROR ON STR #19, FILE: (DMSI I )DB/D/E/DATA ON DMS. 
DISPLAY: *"RSLT=CHECKSUM FAILED, FAMILYNAME=DMS , FAMILYINDEX=3 , 

ADDRESS=671 124, ROW=26, BLOCK=263. 
DISPLAY: **»READ FOR STR #19 ON DMS WAS RETRIED 1 TIMES BEFORE 

SUCCEEDING. 

2. A non retriable read error occurs (only ADDRESSCHECK and CHECKSUM errors are retried for 

reads) 

DISPLAY: '"READ ERROR ON STR #63, FILE: (DMSI I )DB/D/ISSET ON DMS. 
DISPLAY: "*RSLT=400006C0090 1 : PACK DR I VE ERROR , FAMILYNAME=DMS , 

FAMILY INDEX- 2, ADDRESS=29 1 376 , ROW=43, BLOCK=44 1 . 
Dl SPLAY: ** 'READERROR BIT FOR ROW #43 OF STR #63 ON DMS HAS BEEN 

SET. 

3. An ADDRESSCHECK error is detected which fails retrying 

Dl SPLAY: ***READ ERROR ON STR #7, F I LE : ( DMS I I ) DB/D/D 1 /DATA ON DMS. 
DISPLAY: ***RSLT=ADDRCHECK FAILED, FAM I LYNAME=DMS , FAM I LY I NDEX= 1 , 

ADDRESS=399440, ROW=2, BLOCK=513. 
DISPLAY:** 'READ FOR STR #7 ON DMS HAS BEEN RETRIED 3 TIMES 

WITHOUT SUCCESS. 
Dl SPLAY :***READERROR BIT FOR ROW #2 OF STR #7 ON DMS HAS BEEN SET. 

4. An uncorrectable or non retriable read error is detected in a row which already has its 
READERROR b i t s e t 

DISPLAY: ***READ ERROR ON STR #63, FILE: (DMSI I )DB/D/ISSET ON DMS. 
DISPLAY: ***RSLT=8027778A0881 : PARITY, FAM I LYNAME=DMS , 

FAMILYINDEX=2, ADDRESS=29 1 586 , ROW=43 , BLOCK=493. 
DISPLAY: ** "READERROR BIT FOR ROW #43 OF STR #63 ON DMS WAS ALREADY 

SET. 

5. A transient write error occurs which is corrected on the first retry 

DISPLAY: ***WRITE ERROR ON STR #63, FILE: (DMSI I )DB/D/ISSET ON DMS. 
DISPLAY: ***RSLT=400010B20501 : WRITE LOCK OUT, FAM I LYN AME=DMS , 

FAMILYINDEX=4, ADDRESS=495092 , ROW=4 , BLOCK=4015. 
DISPLAY: ** 'WRITE FOR STR #63 ON DMS WAS RETRIED 1 TIMES BEFORE 

SUCCEEDING. 

6. A write error occurs because of a problem which can easily be corrected (reload pack 
firmware or move a pack to a new drive) 

DISPLAY: ***WRITE ERROR ON STR #1, FILE: (DMSI I )DB/DATA ON DMS. 
DISPLAY: * **RSLT=400007840801 : MPX OR CONTROLLER ERROR, 

FAMILYNAME=DMS, FAMILYINDEX= 1 , ADDRESS=493688 , 

ROW=0 , BLOCK=0 
DISPLAY: ***WRITE FOR STR #1 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT :R TO RETRY WRITE FOR STR #1 ON DMS, OR L TO LOCK ROW #0 

AND PROCEED. 

Operator diagnoses and corrects the problem. 

OPERATOR ENTERED: AX:R. 

DISPLAY: ** 'WRITE FOR STR #1 ON DMS WAS RETRIED 2 TIMES BEFORE 

SUCCEEDING. 
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7. A write error occurs because of a problem which cannot be easily diagnosed or corrected 

DISPLAY: ***WRITE ERROR ON STR #19, FILE: (DMSII )DB/D/E/DATA ON DMS . 
DISPLAY: ••*RSLT=800F17824101 : SECTOR FORMAT ERROR, FAMILYNAME=DMS , 

FAMILYINDEX=3, ADDRESS=688267 , ROW=29, BLOCK=304. 
DISPLAY: ***WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT :R TO RETRY WRITE FOR STR #19 ON DMS, OR L TO LOCK ROW #29 

AND PROCEED. 

Even if the problem cannot be diagnosed and fixed immediately, it is generally a good 
idea to retry a couple of times rather than just locking the row. 

OPERATOR ENTERED: AX:R. 

DISPLAY: •••WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 4 TIMES 

WITHOUT SUCCESS. 
ACCEPT:R TO RETRY WRITE FOR STR #19 ON DMS, OR L TO LOCK ROW #29 

AND PROCEED. 
OPERATOR ENTERED: AX:L. 
DISPLAY :***ROW #29 OF STR #19 ON DMS HAS BEEN LOCKED OUT. 

NOTE: If the operator responds to the ACCEPT incorrectly, the retries DISPLAY and the 
ACCEPT will be repeated until the response is correct. 

Exampl e : 

DISPLAY: •••WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT :R TO RETRY WRITE FOR STR #19 ON DMS, OR L TO LOCK ROW #29 

AND PROCEED. 
OPERATOR ENTERED: AX: RETRY. 
DISPLAY: •••WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT:R TO RETRY WRITE FOR STR #19 ON DMS, OR L TO LOCK ROW #29 

AND PROCEED. 
OPERATOR ENTERED: AX:R . 

Note the trailing blank 

DISPLAY: •••WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT:R TO RETRY WRITE FOR STR #19 ON DMS, OR L TO LOCK ROW #29 

AND PROCEED. 
OPERATOR ENTERED: AX:R. O.K. 

D2608 ACR - FAULT HANDLING IN "ACCESSROUTINES" 

The capability of handling faults within the ACCESSROUTINES has been added. Previously, such 
faults would either cause termination of the user program or would be trapped by the user 
program fault handling code. With this change such faults will cause a SYSTEMERROR exception 
to be returned to the user program and eventual termination of the data base. 

A side effect of this change is that fatal data base errors detected within the ACCESSROUTINES 
will no longer cause the user program to be DS-ed because of an EXPON OVERFLOW fault. Instead, 
an exception will be returned to the user program. The only condition which will cause the 
ACCESSROUTINES to DS a user program is operator termination of the data base stack. 

Once an internal ACCESSROUTINES fault or fatal error is detected, no further processing can 
occur against the data base. All current data buffers are discarded and, if the data base is 
audited, auditing is halted. All future attempts to perform operations against the data base 
will cause immediate exceptions to be returned to the user program. The data base stack will 
remain in the mix until all users of the data base close the data base (either explicitly or 
via BLOCKEXIT close). 

Potentially, this change will allow user programs to stay up and active even through a total 
data base failure. Presumably, such programs could then respond to, or possibly tank for later 
processing, inputs from an on-line network. 

Consider, for example, the following situation. A fatal error has been detected in the data 
base. As soon as the fatal error is detected, all programs using the data base will start 
receiving SYSTEMERROR exceptions to data base operations. Upon first detecting a SYSTEMERROR, 
the user program could close the data base and activate interrupt code which would cause the 
program to open the data base and return to normal operation upon operator notification. In 
the meantime, the data base error could be analyzed and corrected, perhaps by reconstructing 
some corrupted structure. Once the data base has been corrected, the user programs could be 
notified and processing could continue. Obviously, a restart will be required for all 
programs . 
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D2609 ACR - REDUCE CONTROL POINT OVERHEAD 



The amount of time required to complete a control point against an audited data base has been 
reduced by the following improvements in the control point mechanism. 

1. All write operations required to flush modified data buffers not written at the last control 
point are now initiated in parallel rather than being done serially. 

2. Storage control information such as DKTABLES for STANDARD and STANDARD variable format data 
sets and NEXTTABLEADDRESS and LASTTABLEADDRESS for tables will be flushed only when modified 
and only at every other control point. Previously, this information was flushed at every 
control point whether or not it had been modified. 

D2610 ACR - DISPLAY CORE IN USE FOR "ALLOWEDCORE" 

Whenever ALLOWEDCORE is interrogated or changed via the SM message to the data base stack, the 
current total buffer space in use is displayed in the response. 

D2612 ACR - TWO CONTROL POINTS AT AUDIT REEL SWITCH 



swi t ch . 
neces s 



norma 1 aud it reel 



The ACCESSROUTINES will now force two control points immediately after 

-~- : *- u . This will allow the previous audit to be verified or copied sooner and minimize the 
ity for using the previous audit in case recovery is required. 



D2617 ACR - VISIBLE "DBS" CHANGES AND ENHANCEMENTS 



I . INTRODUCTION 



With the implementation of reblocking, it has become necessary to allow the user more 
dynamic control over system resources on a structure by structure basis. This has been 
achieved via the Visible DBS. Through the operator's console, the user can now: 

1. Interrogate the "status" of any physical structure. This displays various settings 
and states concerning the structure. 

2. Change the values of REBLOCK, REBLOCKFACTOR , and buffer specifications for a 
structure. 

In order to implement the new Visible DBS capabilities in a clear and consistent way, it was 
necessary to change some of the existing commands. All syntax and semantics for the Visible 
DBS are given bel ow . 



1 1 . SYNTAX 



All commands to the Visible DBS are entered using the following ODT message: 

<DBS mix no . > SM <message> 

The <DBS mix no . > must be that of a data base stack, which can be determined by entering the 
ODT message DBS. The text of the <message> is free field and is comprised of any one of the 
several commands. 

A. DBS status command: 

— STATUS — I 



B. DBS change command: 



-/1\- ALLOWEDCORE - 

/1\- SYNCPOINT 

-/1\- CONTROLPOINT 



= <unsigned integer> | 



C. Statistics command: 
— STATISTICS 



I I 

j- RESTART -j 
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D. Audit close command: 

— AUDIT CLOSE 

- PRIMARY = 



NORMAL 

ALTERNATE 



SECONDARY = NORMAL 

- ALTERNATE 
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E. Structure status command: 

— STATUS STRUCTURE * 

|-<physical structure list>- 



F. Structure change command: 

— STRUCTURE 

> = (<parame ter list>) — 



<physicial structure list> ((parameter list>) 



(parameter 1 i s t> 

I < > . 

/1\_ REBLOCK 

SET 

RESET 

-/1\- REBLOCKFACTOR = (unsigned integer> - 
-/1\- BUFFERS = <intl> + <int2> OR <int3> 



(physical structure list> 

j< , 1 

(s tructure spec ifi cat ion> | 



(Structure spec i fi cat i on> 
(structure no . > | 

|( . I 

— (structure id> 



Ex amp 1 es : 

a) 1357 SM STATUS 

b) 2468 SM SYNCPOINT=100, CONTROLPOINT=10, ALLOWEDCORE - 25000 

c) 1234 SM STATUS STRUCTURE PARTSET, PARTDATA 

d) 7654 SM STRUCTURE 22,25 (REBLOCK) 

e) 9988 SM STRUCTURE PARTDATA, PARTSET 

(REBLOCK RESET, BUFFERS-2+0 OR 0), 
22,25(BUFFERS-1+1 OR 3. REBLOCK) 

f) 9182 SM STRUCTURE * (REBLOCK, BUFFERS- 1+1 OR 2) 
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g) 22 5 2 SM STATUS STRUCTURE PARTI NFO, PARTI NFO. NAMES 
PART I NFO. NAMES. SPECS 

A. The DBS status command will cause the following information to be displayed: 

1. The condition of the database. One of five possible displays will occur: 

a) WAITING FOR ABORT 

b) WAITING FOR RECOVERY 

c) TERMINATION IN PROGRESS 

d) OPEN INITIALIZE 

e) OPEN COUNTS: INQUIRY = <integer>, UPDATE = <integer> 

2 The value of ALLOWEDCORE and the amount of buffer core currently in use. 

3. The values of SYNCPOINT and CONTROLPO I NT . 

4. Information about the audit file: 

a) Block size, area size, areas. 

b) Current audit file number, audit block serial number. 

c) Information about the relative position of the ACCESSROUTINES in current audit 
rile. 

rnM^niSo?v£ han8 wu COmm u nd ' S USed to chan S e the values of ALLOWEDCORE, SYNCPOINT, and/or 

CONTROLPOINT. When this command is used, the specified parameters are changed immediately 

mSni"/? V ? lu ?VI e retained until the next time this command is used or the next 
DASDL/Con t ro 1 File update. 

C. The statistics command causes the current statistics to be printed If "RESTART" is 
specified, all internal counters and timers are cleared after printing, thus restarting 

stat{«I}£c 3S ' ? d ?! taba £ e oJ lad just been °P ene d- This command is only valid if 
STATISTICS is specified in DASDL. 

D. The audit close command forces an audit file switch. This command is only valid for 
audited databases. 

"PBiuAPV ly "° f t "l^K^ 4 Si imary ° r secondary (duplicated) audit file may be specified with 

PRIMARY = or SECONDARY =". "NORMAL" causes the next family to be the normal audit family 

specified in DASDL; "ALTERNATE" causes the next family to be the alternate audit family 

specified in DASDL. y 

If "ALTERNATE" is specified, the attempt by the ACCESSROUTINES to switch back to the normal 
tamily after every audit file on the alternate family is disabled—all subsequent audit 
tiles will be placed on the alternate family until another "AUDIT CLOSE" message is entered 
or until the ACCESSROUTINES go away and are fired up again. 

If "NORMAL" is specified, the next audit file will be placed on the normal family, and 

"!!"!' S—J^iiS 11 !" 8 to ,he a 'ternate family by the ACCESSROUTINES in case of TIMEOUT or 
SECTORS REQUIRED is enabled. 

If neither "PRIMARY =" nor "SECONDARY =" is specified, the ACCESSROUTINES will behave as if 
a normal audit file switch had occurred. 

E. The structure status command is used to find out information about individual structures 
Only physical structures (data sets, sets, and subsets - not accesses) may be specified in 
the <physical structure list>. Qualification is necessary only when the identifier is not 
unique Qualification is done by specifying the <structure i d> s from outermost to innermost 
in the hierarchy. 

When an "=" is specified, the command applies to all physical structures in the data base. 

The structure status command causes the following information to be displayed for every 
structure in the <physical structure list> (or for all structures if "*" is used): 

1 . General 

a) Whether the structure is opened or closed. 

b) Number of random and serial users of the structure. 

2. Current settings 

a) Whether REBLOCK is SET or RESET for the structure. 
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b) Buffer specifications. 

c) Number of "small" or "large" buffers allocated. 

d) The current REBLOCKFACTOR . 

e) The next REBLOCKFACTOR which will be used when the structure is closed and 
re-opened . 

F. The structure change command is composed of one or more <physical structure list> and 
corresponding <parameter list> pairs. Each <parameter list> is applied only to the 
structures specified in the immediately preceding <physical structure list>. The rules for 
specification of structures in the <physical structure list> are identical to the ones given 
under E. 

The structure change is used to set the current parameters of the structure. The parameters 
specified through this command are stored in the Control File and are "remembered" upon 
subsequent DBS runs. When this command is used with the <physical structure list>. there 
will also be a status display for every structure specified. No status displays will occur 
if "*" is used. 

The structure parameters which may be changed are: 

1 . REBLOCK 

A. REBLOCK or REBLOCK SET informs the ACCESS ROUTINES to employ the REBLOCK 
algorithm for serial users of the structure. This will only take effect if 
REBLOCK was TRUE for that structure in DASDL. REBLOCK may never be SET when the 
"serial buffers" specification is less than 2. 

B. REBLOCK RESET prevents all reblocking on the structure. Any current serial 
users will discontinue reblocking and the "large" buffers will be overlayed. 

2. BUFFERS - <intl>, <int2>, and <int3> must be integers from to 254 inclusive. This 
specification corresponds to the DASDL specification: 

BUFFERS = <intl> + <int2> PER RANDOM USER 
+ <int3> PER SERIAL USER 

<intl> specifies the number of base buffers (small) to allocate for the structure. 
<int2> specifies the number of additional buffers (small) to allocate for each random 
user. <int3> specifies the number of additional buffers to allocate for each serial 
user. If REBLOCK is SET, <int3> specifies the number of "large" buffers. <int3> must 
be at least 2 when REBLOCK is set. If REBLOCK is RESET and <int3> is greater than or 
equal to 2, the ACCESS ROUTINES perform read aheads (with small blocks) for serial users 
of the structure. When <int3> is less than 2, read aheads do not occur. Changing 
buffer specifications may cause overlays to adjust the number of buffers in the buffer 
poo 1 . 

NOTE: The number of buffers in the buffer pool may exceed the buffer 
specifications. This is especially true of audited databases which are running 
well b e 1 ow ALLOWEDCORE . 

3. REBLOCKFACTOR - The user may change the REBLOCKFACTOR for a structure provided 
REBLOCK was TRUE in DASDL. REBLOCKFACTOR will not actually change until the structure 
is completely closed and reopened. 

. SYNTAX ERRORS AND WARNINGS 



If the input to the Visible DBS contains a syntax error, then an error message prefixed by 
SYNTAX- will be displayed and the input will not be processed. If the user input is 
syntactically correct, but certain specifications are illegal, a warning prefixed by 
WARNING- will be displayed and the remainder of the input will be processed. For example, 
if the user specified REBLOCK on a structure for which REBLOCK was FALSE in DASDL, a warning 
is returned and the remaining input is applied. 

D2619 ACR - "REBLOCKING" 
I . PURPOSE 



Previously, a user could optimize either serial or random access to a DMS I I structure 
However, it was very difficult to optimize both simultaneously. The following example 
demonstrates the problem: 

Examp 1 e : 

A data base contains a data set "D" which has a high volume of random inquiry and/or 

update against it during business hours. This same data set, however, is used to 

generate reports at night. In general, a large percentage of the data set must be 
accessed serially for report generation. 
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The user has a dilemma in choosing a block size for "D" . He can optimize random access 
by choosing a small block size. This cuts down the core usage and I/O time during the 
day. However, the report generation phase may be inefficient because of excessive 
serial I/O time. 

If the user optimizes the report generation by choosing large blocks for "D" , random 
access during the day may use too much core and I/O time. 

Reblocking addresses this problem by allowing the user to specify two block sizes for the 
same structure - a small one for random users and a large one for serial users. These block 
sizes are specified via the following physical attributes: 

A. BLOCKSIZE - This has the same meaning it always had. In terms of reblocking, this is 
the attribute which controls the size of the "small" block to be used for random access. 

El REBLOCKFACTOR - This is a new physical attribute used to specify an integral number 
ot small (BLOCKSIZE) blocks which will comprise a large block for serial access. 

II. DEFINITIONS 



A. Reblocking - Reblocking is the capability of the ACCESSROUTINES to handle two block sizes 
simultaneously for the same structure. Small blocks are used for random access and large 
blocks are used for serial access. 

B Small block - A small block is an I/O buffer of size BLOCKSIZE used for random access 
If the structure is not reblocked, all buffers are small. 

C. Large block - A large block is an I/O buffer whose size is a specified integral number of 
small blocks. The large block is used for serial access. If the structure is not 
reblocked, there are no large blocks. 

D. Reblock factor - Reblock factor is the number of small blocks in each large block. 
III. Features of DMSII reblocking 

A. The user may take advantage of reblocking through a normal DASDL update. Reorganization 
,s on 'y necessary if the BLOCKSIZE is to be changed. Changing BLOCKSIZE is discussed under 
topi c VI 1 1 . 

B. Reblocking does not require reprogramming or recompi lat ion of user programs. Random vs 
serial access is determined automatically by the ACCESSROUTINES at run time on a program 
basis. There are no host language constructs for reblocking. 

C Random and serial access can occur simultaneously. The ACCESSROUTINES will assign small 
blocks to random users and large blocks to serial users. 

D. Reblocking can be turned on and off through the Visible DBS for any structure which had 
5S b,0 ?*LL2g„« 8e * '" DASDL. Reblock factors and buffers may also be changed for a structure. 
(See ACCESSROUTINES note D2617.) These features allow the user a tremendous amount of 
control over core utilization, especially during critical periods (e.g. high volume daily 

access ) . " ° J 

E. The 3.1 DMSII release permits reblocking for DIRECT and STANDARD (fixed or variable 
format) data sets only, except for the restart data set. 

IV. SYNTAX 



Two new physical attributes have been implemented in DASDL. 

Reblock attribute: 

— REBLOCK 

I - = TRUE - 
|- = FALSE 

Reblock factor attribute: 

— REBLOCKFACTOR = <unsigned integer> 



These attributes are only valid for DIRECT and STANDARD data sets. Either or both 
attributes may be specified in the "global" or DATASET def aul t s statement. These defaults 
will only be applied to DIRECT and STANDARD data sets. 

B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 DMS II - ACCESSROUTINES 



PAGE 170 
MARK 3 . 1 

The REBLOCK attribute informs the ACCESSROUTINES to employ reblocking at run time. A 
structure cannot take advantage of reblocking unless this attribute is TRUE in DASDL. 

The REBLOCKFACTOR attribute specifies the number of small blocks (BLOCKSIZE sized blocks) in 
each large block. This attribute is meaningful only if REBLOCK is TRUE for the structure. 
If REBLOCK is FALSE, this attribute is ignored. <unsigned integeo must be an integer from 
1 to 60 inclusive. 

When REBLOCK is TRUE, both attributes are stored in the Control File. The user may change 
them through the Visible DBS without recompiling DASDL. (See ACCESSROUTINES note D2617.) 

The default settings for these attributes are as follows: 

1. If REBLOCK is not specified, then REBLOCK is FALSE and REBLOCKFACTOR is ignored. 

2. If REBLOCK is TRUE and REBLOCKFACTOR is not specified, then a REBLOCKFACTOR will be 
calculated to give a large block size of approximately 1000 words. 



V. Buffers 



The syntax for the buffer specifications has not changed. However, the "<integer> PER 
SERIAL USER" specification affects reblocking. REBLOCK may only be SET at run time when the 
"serial buffers" is greater than or equal to 2. (See ACCESSROUTINES note D2617.) When 
REBLOCK is SET, the serial buffer specification informs the ACCESSROUTINES how many "large" 
buffers to use for each serial user. The buffers specification may be changed through the 
Visible DBS. 

VI. Host language statements which invoke reblocking 

Several host language statements may cause the ACCESSROUTINES to employ reblocking. These 
statements are given below. ("D" is a data set. "S" is a SET, SUBSET, or ACCESS of "D"): 

1. FIND NEXT D; 

2. FIND S AT 

FIND NEXT S AT 

FIND D VIA S AT 

FIND D VIA NEXT S AT . . 

FIND FIRST S AT 

FIND D VIA FIRST S AT . . 

3. STORE D; (after CREATE or LOCK) 

NOTE: LOCK, MODIFY, or DELETE may be substituted for FIND above. 
Reblocking may only occur when: 

1. REBLOCK is TRUE in DASDL. 

2. REBLOCK is SET for "D" at run time. This implies that "serial buffers" must be 
greater than or equal to 2. (See ACCESSROUTINES note D2617.) 

3. The user program accesses "D" sequentially. This is automatically detected by the 
ACCESSROUTINES. 

If these criteria are not met, only small blocks will be handled by the ACCESSROUTINES. 

VII. Interaction of reblocking with the Visible DBS 

Both REBLOCK and REBLOCKFACTOR are dynamic parameters of a structure stored in the Control 
File. If REBLOCK is FALSE in DASDL, then neither can be modified through the Visible DBS. 
If REBLOCK is TRUE in DASDL, then both may be modified through the Visible DBS. In this 
case, REBLOCK may be SET or RESET (turned on or off), and REBLOCKFACTOR may be altered to 
any integer from 1 to 60 inclusive. (See ACCESSROUTINES note D2617.) 

NOTE: The dynamic parameter, REBLOCK, can only be SET when "serial buffers" is greater than 
or equal to 2. Therefore, if REBLOCK is TRUE in DASDL, then: 

1. If "serial buffers" is greater than or equal to 2 then REBLOCK wi 1 1 be initialized to 
SET in the Control File. 

2. If "serial buffers" is less than 2 then REBLOCK will be initialized to RESET in the 
Control File. 

VIII. User considerations for choice of BLOCKSIZE 
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The most critical choice the user has to make for reblocking is the BLOCKSIZE. Once an 
effective BLOCKSIZE is chosen, it is fairly easy to choose an optimal REBLOCKFACTOR . 

Choosing a BLOCKSIZE often requires a tradeoff between pack space versus core utilization 
and I/O time. The user should minimize BLOCKSIZE as much as possible without wasting too 
much pack space . 

Examp 1 e : 

Data set "D" has a record size of 8 words and CHECKSUM and ADDRESSCHECK are set. The 
ideal BLOCKSIZE is the smallest possible I/O, 1 segment (30 words). If the user chooses 
BLOCKSIZE = 3 RECORDS to achieve this minimum I/O, the file would look like this: 



record/word layout 



Block 1 



8 


8 


8 


1 


1 


4 


record 1 


record 2 


record 3 


C 


A 


was t e 















(1 segment) 



Block 2 record 4 record 5 



•I- 



record 6 



was t e | (1 segment ) 



Block n 



record 



record 



record 



was te 



(1 segment) 



STRUCTURE D 

BLOCKSIZE = 3 RECORDS (24 WORDS) 

(C = checksum word, A = addresscheck word) 

Only 80% of the file is user data, while 7% is control information and 13% is wasted. 
This is the optimal BLOCKSIZE for the user who can afford the wasted pack resource. 
However, for most users a BLOCKSIZE of 7 RECORDS would utilize pack much better: 



record/word layout — 



\ 



Block 1 



8 8 8 6 
record 1 | record 2| record 3 | record 
4|record 5 I record 6lrecord 7|CAIWs 
2 8 8 8 2 2 



(2 segments) 



Block n 



record | record | record | record 
I record I record I record ICAIWs 



(2 segments) 



STRUCTURE D 

BLOCKSIZE = 7 RECORDS (56 WORDS) 

(CA = checksum addresscheck words, Ws = waste) 

Here 93% is user data and only 7% is non-user data. This increase to 56 word blocks has 
bettered pack utilization and may not impact core utilization significantly. 

An even larger BLOCKSIZE of 11 RECORDS would eliminate all wasted space. Since the 
block would be larger, a user should evaluate this BLOCKSIZE in terms of core 
ut i 1 i za t i on . 
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The choice of REBLOCKFACTOR is not as critical as BLOCKSIZE. The larger 
the less I/O time there is for the serial user. However, there is 
increase in the REBLOCKFACTOR will not decrease the overall elapsed time 
programs. If serial programs are apt to be run when system resources 
smaller REBLOCKFACTOR will help minimize core usage. Experimentation w 
through the Visible DBS can help in finding the proper REBLOCKFACTOR. 



the REBLOCKFACTOR, 
a point at which an 



of 
re 
t h REBLOCKFACTOR 



the serial 
precious, a 



IX. REBLOCK algorithm 

If REBLOCK is TRUE in DASDL and SET at run time, the ACCESSROUTINES employ the following 
REBLOCK algor i thm: 

1. Serial detection - The ACCESSROUTINES detect whether a user program is accessing the 
structure serially or randomly. If the program is serial, it enters "reblock mode" and 
the ACCESSROUTINES allocate large buffers for it. 

2. Implicit read ahead - Once a program is in "reblock mode", large block "read ahead" 
type reads will occur. 

3. Small block reads for random I/O - If a serial program happens to perform a random 
access, the record will be read using a small block. Using small blocks instead of 
large blocks may greatly reduce I/O time depending upon the frequency of these 
" spur i ous " reads . 

4. Oscillaton detection - If a program oscillates between random and serial access, the 
ACCESSROUTINES detect this situation and make it increasingly hard for the program to 
change modes. This prevents spurious "read aheads" and buffer overlays. 

D2657 ACR - FIND CORRECT END OF DISK TYPE AUDITS 

In the past a number of problems have been reported which seem to have been attributable to 
Halt/Load recovery finding the wrong end of disk or pack audit files. RECOVERY'S mechanism for 
finding the end of disk type audits was susceptible to error when undetected I/O errors 
occurred in reading the audit, e.g., the I/O was reported as successful but the data was 
transferred to memory incorrectly. RECOVERY would assume that any time a timestamp 
discontinuity occurred in the audit, that this was indeed the correct end of the audit. Once 
RECOVERY ran with the wrong end of audit, the data base would be corrupted and the only 
appropriate recourse would be to rebuild the data base to a point in time short of the problem 
in the aud i t . 



As a result of such problems, a new mechanism has been implemented which virtually ensures that 
Halt/load recovery cannot find the wrong end of the audit. For disk type audits, the 
ACCESSROUTINES will now always write a detectable stopper pattern after each audit block except 
for the last block in each area. Halt/load recovery will search for this pattern when looking 
for the end of the audit. Since the audit end-of-file is always after the stopper pattern, an 
unrecovered audit file can only end with either the stopper pattern or normal end-of-file. Any 
other error, such as audit checksum, timestamp discontinuity, or unexpected audit block serial 
number, will be fatal when encountered. A stopper pattern will not exist in a recovered audit 
file or in an unrecovered audit file when the last block written was written at the end of an 
area (in which case audit end-of-file points at that block). 

Should RECOVERY detect such a fatal error in searching for the end of the audit, the user has 

two possible recourses. If the primary audit can be fixed by copying the secondary audit, then 

this should be done and RECOVERY rerun. If the audit error cannot be fixed, a rebuild must be 
done to a point short of the audit error. 



D2658 ACR 

The buffer 
ALLOWEDCORE 
deal located 
process . 



IMPROVE BUFFER MANAGEMENT 

deallocation algorithm which is executed when total buffer storage exceeds 

has been improved. It is simpler and more efficient. Also, buffers can now be 

in parallel by multiple processes intead of being deallocated serially by a single 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - ACCESS ROUTINES 



P!5 18 ACR - ZIP "COPYAUDIT" AT FINAL CLOSE 

If the final close of audit file Nwas done before two control points were performed, COPYAUDIT 
would not be z.pped by the ACCESSROUTINES for audit file N-l . This problem has been corrected 

PI 5 82 ACR - "STATISTICS" ON "CHECKSUM" RETRIES 

STATISTICS are now gathered on retries caused by CHECKSUM failures and reported with the number 
of reads and read wait times. 

PI 585 ACR - RETRY "ADDRESS CHECK" FAILURES 

The ACCESSROUTINES will now retry all ADDRESSCHECK errors up to MAXRETRIES (default=3) times 

cAiiir.s S -! u falls - i he row wil1 have 'ts READERROR bit set and IOERROR 256 (ADDRESSCHECK 
rAILED) will be returned. 

PI 738 ACR - STATISTICS MIDNIGHT OVERLAP 

Several midnight overlap problems in printing statistics have been corrected. In particular 

the statistics interval was incorrect, and the data base open interval did not account for two 
or more midnight crossovers. A timing problem involving multiple calls on the MCP TIME 
intrinsic has also been corrected. 

PI 742 ACR - "CREATE/STORE" INCORRECT FOR REMAP 

ReCOr o^™,^™ e ^ us i ng a remap of a STANDARD data set contain incorrect values. Items which 
rf r :hf?^^LVALUE e SP ec?fi:d ,n d D S EN '" ^ '"" ~" '■"«■»"- <° ^L value regard,^ 
PI 77 3 ACR - READ AHEAD ON COARSE TABLES 

When index sequential is in a "read ahead" state, the ACCESSROUTINES will now read ahead the 
coarse tables. Reading ahead a coarse table will only occur when the last fine table for the 
current coarse table is being accessed. Formerly, read ahead never occurred for coarse tables. 

PI 774 ACR - "GENERATE NULL" BITVECTOR 

After GENERATE NULL on a bit vector and subsequent Halt/Load, the end of file for the bit 

™hi™n? y rF£K!TB bee \i. ,e £- UP Wr °" g b y RECO^RY- This caused a "read past end of file" on a 
subsequent GENERATE on the bit vector. This problem has been corrected. 

PI 802 ACR - AUDIT FILE SWITCH FOR DISK OR PACK AUDIT 

If the first attempt to open a new audit file was unsuccessful, the second and subsequent 
attempts cou d cause the wrong audit file name to be used. The audit pack family name was used 
in place of the proper audit file title. This problem has been corrected. 

PI 820 ACR - FAULTY AUDIT CONSTRAINT 

On the II. 9 and III releases, the ACCESSROUTINES constraint that the audit buffers must be 
wr ten before the data buffers was faulty. The result was that if the timing were just right, 
Halt/Load recovery would recover the data base improperly. The most common symptoms would be 
key and data mismatch, set entries pointing at deleted records, missing set entries, etc. This 
nas been corrected. 

PI 821 ACR - "INVALID INDEX" AFTER AUDIT TIMEOUT 

The ACCESSROUTINES would sometimes fault with INVALID INDEX following a timeout on a pack audit 
wnte, caused by an incorrect FOR statement in an I/O list. This problem has been corrected. 

PI 822 ACR - BLOCK ZERO OF CONTROL FILE CORRUPTED 

n!^r.™ C y° nl ' he . contr ?' file "o longer becomes corrupted (with all zeros) when an update 
program is DSed attempting to open the control file. 

PI 900 ACR - MAXBUFFERS STATISTIC INCORRECT 
R hase StrUCti0 " W3S making DCBs P resen t unnecessarily when stopping the data base for the final 

Also, the statistics printout of the value of the maximum number of buffers used was too large 
™ nrnlcT* °l- V°u ,. T 5 e Se P roblems have been corrected; there is also less resizing activity 
on ucBSbl , which should decrease the overhead in running the ACCESSROUTINES. 
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P1901 ACR - "LOCK TO MODIFY DETAILS' 



An INVALID OP would occur in the ACCESS ROUTINES when an OPEN INITIALIZE was done on a 
partitioned data set which was declared in DASDL with the option "LOCK TO MODIFY DETAILS". 
This has been corrected. 

PI 907 ACR - RESET SYNCPOINT TO LOWER VALUE 

When resetting the value for syncpoint through the visible DBS, it was possible to hang the 
data base if the new value was lower than the old syncpoint value. This has been corrected. 

PI 90 8 ACR - UNLOCK GLOBAL DATA AND ORDERED BUFFERS 

Some code for ordered and global data in which some buffers were not unlocked prior to close 
has been corrected. The problem had no known user impact. 

PI 909 ACR - READ PAST "EOF" ON INDEX SEQUENTIAL 

A data base will no longer terminate with a READ PAST END OF FILE error on an INDEX SEQUENTIAL 
following an abort. This could only happen if READAHEAD were set on the INDEX SEQUENTIAL. 

P1910 ACR - CORRUPTION OF UNORDERED 

A problem in which unordered "next prior" links may become corrupted following a Halt/Load has 
been corrected. 

P1911 ACR - REMAPS OF ORDERED DATA SETS WITH SUBBLOCKS 

Loading an embedded ordered data set through a remap did not utilize the subblocking feature 
when SUBBLOCKSIZE was specified for the data set in DASDL. As a result, blocks would contain 
only records belonging to a single master. The problem results since a SUBBLOCKSIZE of (no 
subblocking) is always used when the embedded data set is invoked via a remap. This problem 
has been corrected along with other possible problems caused by the improper setting of 
SUBBLOCKSIZE when embedded ordered data sets are referenced through remaps. 

P1912 ACR - REORGANIZATION OF COMPACT DATA SETS 

After reorganization of a compact data set, an INVALID INDEX could occur in the ACCESS ROUTINES 
upon record update or deletion on the compact data set. In addition, REORGANIZATION would 
under special circumstances insert an invalid entry in the compact data set available space 
table for the last data block. This entry, however, would never be accessed and, therefore not 
cause any problems. Both of these problems have been corrected. 

P1913 ACR - DUPLICATE AUDIT BLOCK IF SWITCH TO TAPE 

In some cases, the ACCESS ROUTINES would duplicate the first block of an audit file by writing 
it twice. This happened rarely, and only when the audit file was switched from or pack to 
tape. This has been corrected. 

PI 9 14 ACR - "FILEDC" A CONTROL RECORD 

FILEDC is now treated as a control record by the ACCESSROUTINES and PRINTAUDIT. This reduces 
the likelihood that FILEDC will be overlooked when scanning the audit. 

PI 91 5 ACR - "COPYAUDIT" NOT ZIPPED IF ERROR OR TIMEOUT 

COPYAUDIT was not being zipped if the audit file was closed because of a write error or timeout 
on a write. The problem has been corrected. 

P1916 ACR - TWO HALT/LOADS CAUSES RECOVERY FAILURE 

If the following sequence of events occurred: 

There was a Halt/Load; 

RECOVERY ran almost to completion; 

A program opened the data base inquiry and closed it immediately; 

There was another Halt/Load immediately; 

The second RECOVERY was run. 

The second RECOVERY would fail due to an extraneous SDSEOF audit record at the end of the 
audit. The problem has been corrected. 

P1917 ACR - UNAUDITED "DB" CORRUPTION INQUIRY VS. UPDATE 

For unaudited databases, if inquiry and update programs were running simultaneously and all 
update programs discontinued use of the data base leaving only the inquiry program, data base 
corruption would occur. This problem has been corrected. 
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PI 947 ACR - LESS RESIZING OF ARRAYS 

?;,:mge f nr:alLr aSUre ' the ACCESSR0 ™NES now resize interna! arrays less often and by more 
P2009 ACR - RETURN RESTART AREAS 

OSef and U HaH/L:ad I r :co!:rrr r un UPPreSS the »""■'■■ of restart areas when a data base has been 
P2010 ACR - CHECKSUM ERROR 

?;:s5:;s* si""™, :'"";,;: '-rollback",,;" i.:,*,"","", 8 ; ph *r f ■"» ■"• °< '""<•> <°< 
w;^:r;::.^r' i,,,ii ""'^ ! 3- : «! : »'.r': ta r - , ::<f;"{:s.s'i:;''i;':' , ;,::ii:: 

P2 09 5 ACR - CORRECT DELETION IN UNORDERED 

I^Uane^^^ELETrwo^ f..tf. T h ! fprob , eTHas K.n'^.c^. ""< '""' """"" 
P2096 ACR - "DB" CORRUPTION DUE TO MISSING ERROREXIT 

?j>^mv™?,i°, iafrr kk;i;. :.: ,:,;:.■:;•:„!: .::„:"•- ■• — -.■■. 

1. Invalid increment of the audit file number in the control file. 

2. Data base corruption by subsequent Halt/Load recovery. 
P2 09 7 ACR - "DS" OF RECOVERY 

aud!( L ?He r ,r;r Il e n res?afrar^r ° ff ^ Ha,t/Load fla * if Med when a t t emp t i ng to open an 
P2098 ACR - RETRY AUDIT OPENS 

Irrof^^ n N ^e W !n!,?:To;r Pt '^^ ««« <>pe. of ,h. audi « if a fault or attr.bute 
P2 127 ACR - CLEAR READ/WRITE AHEAD STATISTICS 

RElTA^-f^^ueftrThr^sTble'DBs" 8 " ^ "''^ ah6ad C ° UntCrS When the COmmand STATISTICS 
P2 128 ACR - READAHEAD CORRECTIONS 
1. The ACCESSROUTINES now read ahead correctly for compact data sets using "FIND NEXTD;". 

2 IS:in U :t r a P c^:ct W da!a n : e !° nger f3Ult jn thC ACCESSR0UTI NES when find current is executed 

3 Torn, A r? ESSR ° UTI Kf "'," "Z l °"JV * ' ' em P ' ,0 read ahead deleted records. (The error was 
data set. ) P ° * * '" deletes were »" 1 t i proces sed with finds against the same compact 

P2 129 ACR - CONTROL FILE OPEN ON ABORT 

fnl!™in aSk ,]? hiCh W ? S waiti "g f° r abort were DSed, the attempt to reopen the control file 
been r o r?ec{ed. C ° mP * "' P rocessin « caused the DBS to terminate abnormally. ?his has 

P2 130 ACR - "ROWLOCKOUTAUDIT" ERRORS 

ROW?nrKni,TAi°inii° nger f ermi " at es ■*5,°«:S« ' ' y because it failed to find the end of the 
ROWLOCKOUT ^HT, P f°? er ! y - A1S °' RE ? 0VERY . no >° n 8" gets attribute errors on DMROWLOCK when the 
KUWLOCK.OUT audi t file is present . In addition, a stopper was added to the ROWLOCKOUTAUDIT for 
waTariH^H fl.it i /A '"d'cation checksum was added to it, and the data base date-time stamp 
RnwrArvAiTTlimiT'- V' /* and f hecksum errors on the ROWLOCKOUTAUDIT are retried, and the 
ROWLOCKOUTAUDIT is read after each write to ensure the write occurred properly. 

P213 1 ACR - RECONSTRUCT MAKES EMPTY AUDIT FILE 

]L a H.Wt ■*!**■ thC da ! a L ba " e °P en in <iu' r y when the last update program closes the data base, 
emn.v « d H , r ! ? ' ? St '" held ° P t" \. I f , DATARECOVERY goes into i ts final phase at this time, an 
empty audit f.le is generated, which will cause recovery to terminate abnormally if scanned 
during a subsequent recovery. The empty audit file is no longer generated. 
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P2132 ACR - ELIMINATE UNNECESSARY DISPLAYS 

Unnecessary displays are eliminated when close fails to store a last good restart area because 
the program died outside of transaction state. When an unexpected exception does occur, 
complete information on it is displayed. 

P2133 ACR - CREATE/ STORE AT END OF "DIRECT" DATA SET 

When multiple programs were creating records at the end of a DIRECT data set, it was possible 
for the data set to become corrupted. This problem has been corrected. 

P2183 ACR - CHECKSUM ERRORS 

It was possible to get false checksum errors in RECOVERY during an after image phase when 
CREATE/STOREs in the audit extended to end of file of a variable format standard data set. The 
error has been corrected. 

P2184 ACR - ERROREXIT TIMING PROBLEM 

It was possible for the data base to become corrupted when the operator DSed the visible DBS or 
a fault in the ACCESS ROUTINES occurred, because the audit was not disabled soon enough alter 
writes to the data base files were disabled. This has been corrected. 

P2244 ACR - RETURN OF COMPACT RECORD 

A fault occurs in the ACCESSROUTINES when a modified compact data set record is returned to its 
parent block from an overflow block. This problem occurs only on audited data bases and only 
when the parent block is empty. This problem has been corrected. 

P2329 ACR - INVALID COUNT OF READERS 

The internal count of readers of the data base is now maintained correctly for all structures. 
P2347 ACR - ORDERED AVAILABLE TABLE CORRUPTED 

The ACCESSROUTINES no longer fail to enter an available address at word 3 of an available table 
for ORDERED data sets. 

P2 348 ACR - DATA BASE HUNG AFTER CLOSE 

The ACCESSROUTINES no longer hang after a close of an access-typed structure. The following 
conditions are necessary to cause the problem: 

1. A DIRECT, RANDOM or ORDERED data set must be invoked by the user program before the restart 
data se t . 

2. The program must close the data base after an ABORT recovery without executing 
BEGINTRANSACTION . 

3. Any subsequent program attempting to cause an ABORT hangs the data base. 
P2349 ACR - "ORDERED" DATA SET "INVALID OP" 

The ACCESSROUTINES no longer die with an INVALID OP when performing a store on an ORDERED data 
set . 

P2350 ACR - "ORDERED" DATA SET IMPROPER AUDIT 

The ACCESSROUTINES now correctly audit changes to ORDERED available tables. Formerly, 
corruption could be left in the tables after a recovery process causing a subsequent tatal 
error to the data base. 

P2351 ACR - "ORDERED ADDRESSCHECK, CHECKSUM" CORRUPTED 

The ACCESSROUTINES no longer overwrite the ADDRESSCHECK or CHECKSUM word(s) with address words. 
Formerly, this could occur in available tables. 

P2352 ACR - "ORDERED" DATA SET LOOP 

The ACCESSROUTINES no longer get into a loop when linear searching ORDERED data sets. 
P2359 ACR - RESEQUENCE DATA BASE AND "RECOVERY" SYMBOLICS 

DATABASE and RECOVERY symbolics have been partially resequenced. 
P2360 ACR - STORE OF "ORDERED" WITH "BLOCKS I ZE=1" 

The ACCESSROUTINES no longer go into an infinite loop when a store is attempted on an ORDERED 
data set with a BLOCKSIZE equal to one record. 
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P2362 ACR - ABORT HANDLING MECHANISM 

Ind correct C :omrproblems. HOSTLIB "" "" ACCESSROUTINE S was redesigned ,o close timing windows 
P2 3 79 ACR - DESIGNATED SERIAL NUMBERS AND STATISTICS 

ttat?sHcs™ N specified err ° r " "° ]0 " 8er generated when d"ignated serial numbers and 
P2 3 87 ACR - ERRONEOUS NOT FOUND RESULT 

»ho^ R yAS?mri-llAnpSc« rr0ne0US " n0t foun f resu,t fTom the ACCESS ROUTINES for random data sets 
whose LASTBLOCKADDRESS was a negative value. This problem has been corrected. 

P2409 ACR - ELIMINATE VARIABLE FORMAT CODE 

GETDATAADDRESS and FORGETDATAADDRESS for random data sets contained code for handling variable 
format records. This code has been eliminated. 

P2410 ACR - NO ABORT ACCEPT WHEN "DBS" IS DSED 

CONTINUE" DBS ' S DSCd ' ab ° rt recovery no 'onger stops with the ACCEPT "RDS ERROR, OK TO 

P2411 ACR - PROGRAM "DS" CAUSES ABORT TO DIE 

^"nATT?" 1 i USt pr 4u r '° f |f in « t UP ABORT recovery would sometimes prohibit an ABORT run 
and D!> the data base. This problem has been corrected. 

P245 3 ACR - ERRONEOUS "DIRECT KEY" CORRUPTED 

When one stack was trying to find a record in a direct data set and a second stack was tryine 
o store the same record, the DBS could DS with an erroneous DIRECT KEY CORRUPTED error The 
timing window responsible for this situation has been closed. 

P2454 ACR - DESIGNATED SERIAL NUMBERS 

S"' P^g^ms may now be DSed when attempting to open audits using designated serial numbers. 
formerly, this would hang the data base. 

Note: A program attempting to open an audit should never be DSed, since that may take down the 
data base. This change allows the data base to be cleared without a Halt/Load. 

P2473 ACR - INCORRECT STATISTICS TOTALS 
The following statistics problems have been corrected: 

1. If statistics were printed multiple times 

a. the I/O statistics totals would be incorrect 

b. the I/O time statistics (column 1) would be incorrect 

2. Statistics restart was not clearing 

a. the file I/O time statistics (column 1) 

b. all of the audit statistics 

3. A timing problem could cause data base statistics for one session to be carried forward to a 
new session. 

4. The statistics interval was incorrectly reflecting the time since the statistics were last 
printed, instead of the time since the statistics were last cleared. 

P2474 ACR - FREE RECORDS ON ABORT EXCEPTION 

The ACCESSROUTINES now release all records locked by a program when returning an abort 
exception. * 

P2495 ACR - "DS DBS" VS. FILE ATTRIBUTES 

Operator DS of a user task could cause the ACCESSROUTINES to incorrectly read or set some file 

attributes. Although situations leading to invalid file attribute handling have been 

restricted, they have not been completely eliminated. Errors in reading or setting file 
attributes may still occur if the operator issues more than one DS of a user task. 

P2496 ACR - ZERO "TPS" TIMESTAMP AT CLOSE 

The Transaction Processing System's timestamp which is passed to the ACCESSROUTINES at the 

first open is now reset to zero upon the final close. 
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P2497 ACR - "COPYAUDIT" VS. AUDIT IOERROR SWITCH 

Following an ioerror on an audit file, COPYAUDIT was being ZIPped with an ending audit block 
serial number one higher than the last block in the audit file to be copied. The problem has 
been corrected. 

P249 8 ACR - "INVALID INDEX" GLOBAL DATA AND ONLINE DUMP 

UTILITY no longer dies with an INVALID INDEX in the ACCESSROUTINES when performing an online 
dump. This formerly occurred on audited data bases with global data. 

P2600 ACR - REMOVE OVERLAY POINT 

The ACCESSROUTINES no longer displays OLAYPOINT for a visible DBS STATUS command, nor does it 
print OLAYPOINT for statistics. 

OLAYPOINT is an ACCESSROUTINES internal variable which the user cannot control; therefore, its 
visibility has been de impl ement ed . 

P2601 ACR - PROGRAM NOT "DSED" IF AUDIT OPEN FAILS 

If a program attempts to open a new audit, the open fails, the operator requests that the open 
be retried, and the open succeeds, the program will no longer be DSed. 

P2 602 ACR - INITIALIZE PARTITION AUDITED INCORRECTLY 

When a new partition was created via a remap, the wrong structure number was placed in the Open 
Initialize Partition audit record. The structure number of the remap was audited rather than 
the structure number of the data set. This could cause RECOVERY to fail when the audit record 
was encountered. This problem has been corrected. 

P2603 ACR - PARTITIONED DATA SET INACCESSABLE VIA REMAPS 

Partitioned data sets could not be accessed using remaps. Programs which opened the logical 
data base INQUIRY received NOTFOUND Subcategory 7 exceptions. Programs which opened the 
logical data base UPDATE received the same exception if they attempted to access the remap 
outside transaction state. Programs which opened the data base UPDATE and were in transaction 
state caused the partition directory to be corrupted and could terminate with the message 
"PARTITION ALREADY PRESENT". This problem has been corrected. 

P2604 ACR - "NOT FOUND" FOR PARTITIONED ORDERED DATA SETS 

The first attempt to FIND or LOCK a record in a partitioned ordered data set following the open 
of the partition resulted in a spurious NOT FOUND 01 exception. Subsequent references to the 
same record worked correctly. This problem has been corrected. 

P2605 ACR - CORRECTION OF INTERNAL DELETE COUNTER 

An internal counter of deletes on a block was not being incremented correctly. This could very 
rarely cause a deleted record to be retrieved. This problem has been corrected. 

P2606 ACR - AUDIT SMALL BLOCKS FOR "IO" ERRORS 

The ACCESSROUTINES now audits only the small blocks in a "reblocked" block in case of an IO 
error. Formerly, the "reblocked" block was audited causing Quick Fix to die with a SEG ARRAY 
e rror . 

P262 7 ACR - DEADLOCK DURING UPDATE AND DELETE 

When concurrent updates and deletes are occurring to compact data sets, a deadlock may occur. 
One process has locked a DCB and requires storelock; the other has storelock and needs the 
locked DCB. This problem has been corrected. 

P2636 ACR - MISSING "STARTDB" IN ORDERED PATHFINDER 

The STARTDB call at the beginning of Pathfinder in Ordered data sets was erroneously 
eliminated; it has now been restored. 

P2637 ACR - TIMING WINDOW IN "OVERLAY" 

A timing problem in the new OVERLAY procedure could cause a fatal error in the data base. This 
problem has been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - BDMSALGOL 



D2678 BDMSALGOL - "OPEN INITIALIZE" WARNING 

The OPEN INITIALIZE statement will now be flagged with a warning stating that the statement 
will be de implemented on the III. 2 release. 

D2760 BDMSALGOL - "B7000" SERIES "DM" OPTIMIZATION 

On the B7000 series systems, the BDMSALGOL compiler now generates improved locking code prior 
to entering the ACCESS ROUTINES ; this new code prevents purges of the associative memory. This 
new locking code is generated only if the compiler itself was compiled with the compiler 
generation S option B7700CODE set and the $ option B7700 is not explicitly reset within the 
user program. 

While the improved locking code is not optimal for the B6000 series systems, the code will 
execute correctly on the B6000 systems. The B6000 series BDMSALGOL compiler (and the B7000 
compiler with JB7700 reset) will continue to generate code optimal for B6000 systems. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - BDMSALGOL 



PI 980 BDMS ALGOL - " STRUCTURENUMBER " CORRECTION 

Use of the construct STRUCTURENUMBER will no longer cause incorrect code to be generated in 
rare s i tua t i ons . 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - BDMSCOBOL 



D2848 BDMSCOBOL - "B7000" SERIES "DM" OPTIMIZATION 

On the B7000 ser i essys terns , the BDMSCOBOL compiler now generates improved locking code prior 
to entering the ACCESSROUTINES ; this new code prevents purges of the associative memory This 
new locking code is generated only if the compiler itself was compiled with the compiler 
generation $ option B7700CODE set and the $ option B7700 is not explicitly reset within the 
user program. v i 

While the improved locking code is not optimal for the B6000 series systems, the code will 
execute correctly on the B6000 systems. The B6000 series BDMSCOBOL compiler (and the B7000 
compiler with SB7700 reset) will continue to generate code optimal for B6000 systems. 

D2860 BDMSCOBOL - USE OF <STRUCTURE NUMBER> CONSTRUCT 

The syntax diagram on Page 5-7 of the DMS II HOST Reference Manual (Form No 50014981 is 
incorrect. It should appear as follows: ->uui**o; is 

<data set name>— - - ( DMSTRUCTURE ) — | 

-<set name> 



-<subset name> 



The semantics should read as follows: 

"^structure number> allows the programmer to programma t i ca 1 1 y determine the structure number 
ot a data set, set or subset. «—»».■ 

D2884 BDMSCOBOL - " <DATA-ITEM-1 > IN <KEY-CONDITION> " 

The BDMSCOBOL compiler has been corrected to allow <data set name> as a qualifier of 
<data-i tem-l> in <key-condi t l on> if <da t a-i t em-1 > is ALPHA or <da t a- i t em-1 s i <: NITMHFR Th» nuc 
II HOST Reference Manual (Form No. 5001498), Page 13-2, should be changed aeooS^ MS 

D2961 BDMSCOBOL - "DM" ATTRIBUTE STRUCTURE NUMBER> 

yFLm M M^ t ^nVlo^ S - rU - tUre number > example on Page 5-7 of the DMSII Host Reference Manual 
(Form No. 5001498) is incorrect. The statement should read as follows: 

IF D ( DMSTRUCTURE) =DMSTATUS (DMSTRUCTURE) DISPLAY "D FAULT" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - BDMSCOBOL 



P2057 BDMSCOBOL - "DATABASE" DECLARATION 

BDMSCOBOL will now successfully recovery from an improperly specified DATABASE declaration, 
instead of terminating with a "VISIT NONACTIVE TASK" message. 

P2202 BDMSCOBOL - BAD "DMS" INVOKE LISTING 

An error in an invocation of a data base in the 'DATA-BASE SECTION' would cause the compiler to 
get an INVALID INDEX fault when $LIST was set. This has been corrected. 

P2299 BDMSCOBOL - BAD SYNTAX CHECKING IN "DB" STATEMENT 

The COBOL compiler no longer waits on a "NO FILE DESCRIPTION/<da t aba s e name>" when the reserved 
word "OF" is misspelled in the <logical data base option>. Now, the compiler will give a 
syn t ax error . 

P2330 BDMSCOBOL - LISTING OF THE VARIABLE FORMAT INVOCATION 

The format line for the variable format invocation will now appear in the proper place. 

P2331 BDMSCOBOL - DECLARATION OF ITEM WITH SAME NAME AS SET 

BDMSCOBOL did not allow the declaration of an item having the same name as a DMSII set invoked 
by the program, even though the name can be uniquely qualified. This has been corrected. 

P2332 BDMSCOBOL - "INVALID INDEX" 

Syntax checking in statements that handles DM attributes was incorrect, which caused the 
compiler to abort with an INVALID INDEX. This has been corrected. 

P2333 BDMSCOBOL - INCONSISTENT HANDLING OF KEY CONDITION 

If a data-item (numeric) larger than the size of the key-item is used in a key-condition, 
movement to user key area follows normal COBOL MOVE rules resulting in truncation of the 
data-item. Thus, comparison in PATHFINDER is on only the least significant digits of the 
data-item, and records may be returned which do not meet the key-condition if non-zero digits 
were truncated. The compiler will give a warning message. 
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DMS II - BDMS/PL/I 



D2 849 BDMSPLI 



"B7000" SERIES "DM" OPTIMIZATION 



On the B7000 series systems, the BDMSPLI compiler now generates improved locking code prior to 
entering the ACCESSROUTINES ; this new code prevents purges of the associative memory. This new 
locking code is generated only if the compiler itself was compiled with the compiler generation 
$ option B7700CODE set and the $ option B7700 is not explicitly reset within the user program. 

While the improved locking code is not optimal for the B6000 series systems, the code will 
execute correctly on the B6000 systems. The B6000 series BDMSPLI compiler (and the B7000 
compiler with SB7700 reset) will continue to generate code optimal for B6000 systems. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - BDMS/PL/I 



P1771 BDMSPLI - PROPER PRINTING OF LENGTH ATTRIBUTE 

The compiler will now print the lengths of data base items in the ATTRIB and EXTERN listings 
correctly, avoiding INVALID INDEX faults in certain circumstances. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - BUILDINQUIRY 

D2695 BUILDINQ - SETS WITH GROUP KEYS 

Sets with group keys are now entered twice: once with the group as key (as before) and aeain 
with the group elementary items as keys. This makes it possible for INQUIRY to select the best 
search algorithm if either the group item or the elementary items is specified in the selection 
cond l t i on . 

D2863 BUILDINQ - LOGICAL DATA BASES WITH MULTIPLE INVOKES 

DMSII INQUIRY cannot be generated for a logical data base which invokes the same structure more 
than once. For example, the following logical data base is not valid for INQUIRY: 

LDB DATABASE (DS1 , DSX=DS1, DS2); 
Such a logical data base will result in a fatal error message in BUILDINQ. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - BUILDINQUIRY 



P1444 BUILDINQ - AUTOMATICALLY SELECTS RESTART DATA SET 

When the user chose to select which data sets INQUIRY would handle, it was possible that the 
restart data set would not be selected. If the selection process were terminated by entering a 
"C" before the restart data set was reached, the restart data set was not selected. Now the 
restart data set, if one exists, is unconditionally selected. 

PI 8 23 BUILDINQ - ENFORCE ANSWER ON UPDATE QUESTION 

Previously, when BUILDINQ asked if update was requested, any answer other than YES was assumed 
to mean NO. Now, BUILDINQ insists that either YES or NO be input before it continues. 

PI 824 BUILDINQ - DATA SET SELECTION OPTION ENFORCED 

BUILDINQ asks the user to specify whether an entire data base, selected data sets or logical 
data bases are required. Previously, any response other than 1,2 or 3 caused program 
termination. Now, invalid responses cause an error message to be displayed and the question 
repeat ed. 

P1918 BUILDINQ - DELETED LOGICAL DATA BASE 

BUILDINQ was not skipping deleted logical data bases when searching for a given logical data 
base. Thus, if a logical data base were deleted by a DASDL update and then added back by a 
subsequent DASDL update, BUILDINQ for that logical data base would find the first (deleted) 
entry and subsequently fail (e.g., INVALID INDEX, SEG ARRAY, etc). This has been corrected. 

P1919 BUILDINQ - VERIFIED LINK 

If a data set containing a verified link is included, but the data set to which it refers is 
not (in the Selected Data Set mode), an INVALID INDEX fault may occur. This has been 
cor rec ted . 

P2011 BUILDINQ - OCCURRING GROUPS 

BUILDINQ was not correctly handling subscripts for non-occurring items which exist in a 
non-occurring group, which in turn exists in an occurring group. The error causes an erroneous 
"SUBSCRIPT OUT OF RANGE" message when the item is referenced with a valid subscript. This has 
been corrected. 

P2309 BUILDINQ - VAGUE LINK AND SUBSET REFERENCES 

BUILDINQ now resolves vague references of links and subsets included in remaps. Previously, 

items which referenced a data set that was not selected for INQUIRY also were not selected. 

Now, BUILDINQ checks to see if a remap of the original data set has been selected; if so, the 
item is selected and fixed to reference the remap. 

P2334 BUILDINQ - LOGICAL DATA BASE WITH "<SET PART> " OF NONE 

When BUILDINQ was run for a logical data base which contained a <set part> of NONE in the 
<logical data base> declaration in DASDL, the error message "TABLE EXCEEDED" was incorrectly 
output. This problem has been corrected. 

P23 5 3 BUILDINQ - INVALID "TABLE EXCEEDED" ERROR 

A problem existed in BUILDINQ which could cause a fatal TABLE EXCEEDED error to be 
inappropriately displayed. The problem occurred when one or more sets in the data base 
contained keydata. Such sets could, in general, have caused unpredictable results. 

P2388 BUILDINQ - EMBEDDED SETS IN LOGICAL DATA BASES 

An INQUIRY program built for a logical data base would not allow for the use of automatic sets 
which spanned embedded data sets. This problem has been corrected. 

P2412 BUILDINQ - MAXIMUM SIZE OF "DMINQDIRECTORY" 
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P2607 BUILDINQ - SELECTION USING KEY DATA ITEMS 

A selection expression involving key data items caused a SOFTWARE ERROR when accessing occurred 
via an index. This problem has been corrected. 

P2638 BUILDINQ - ACCEPTANCE OF QUEUE SPECIFICATION 

BUILDINQ ignored any queue specification given with card input. Also, a specified queue value 
of zero was ignored. These problems have been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - BUILDREORGANIZATION 



D2591 BUILDREORG - CHECKING "BUILDREORG" STATUS IN "WFL" 

BUILDREORG now sets its STATUS to TERMINATED if any errors are encountered. Thus, comparison 
of the task variable associated with BUILDREORG with COMPLETEDOK is now valid in WFL. In 
addition, an error-free run of BUILDREORG returns as TASKVALUE of one. A run with errors 
returns a TASKVALUE of zero. 

D27 54 BUILDREORG - SORT ENVIRONMENT SYNTAX 

The clauses of the <sort environment specs> may now be given in any order, separated by commas. 
These clauses are the following: <extract specs>, <sort specs> and <loadfactor specs>. 

See REORGANIZATION note D2736 for complete syntax and semantics. 

D2775 BUILDREORG - "REORGANIZATION" LIMITATIONS 

Certain types of data base reorganization which were previouly documented as valid have not as 
yet been fully implemented in the DATABASE/REORGSYMBOLIC program. When these types of 
reorganization are detected by SYSTEM/BUILDREORG, a fatal "REORGANIZATION LIMITATION" error 
results after the printing of the SYSTEM/BUILDREORG report. The limitations documented below 
will be eliminated on a subsequent DMSII release. 

The following types of reorganization represent current REORGANIZATION limitations. Where 
possible, it is noted how the limitation might be overcome by changing the specifications given 
to SYSTEM/BUILDREORG. 

1. Generation of an index sequential structure using an index random or ordered list structure 
where the index sequential structure has DUPLICATES allowed but FIRST or LAST unspecified. 
Generation of the index structure using itself or generation of the index structure from the 
data set, if the index is a disjoint set or automatic subset, are possible alternatives that 
can be taken to avoid this limitation. 

2. Generation of an unordered list using an index structure or fixup of an unordered list when 
the data set is generated and one of the following conditions also exist: 

A. The data set is ordered by a prime index which is not the generated unordered list. 

B. The data set is of type RANDOM or UNORDERED. 

Generation of the index from the generated data set, if the index is a disjoint set or 
automatic subset, or using the unordered list as the prime set, if it is an automatic set. 
are possible alternatives to avoid this limitation. 

3. Generation of an unordered list from a generated RANDOM data set. 

4. Generation of an ordered list using an index structure where the ordered list has DUPLICATES 
allowed but FIRST or LAST unspecified and one of the following conditions also exist: 

A. The data set is ordered by a prime index which is not the generated ordered list. 

B. The data set is of type RANDOM or UNORDERED. 

Using the ordered list as the prime set or generation of the ordered list from the data set 
are possible alternatives to overcome this limitation. 

5. Generation of an embedded index sequential structure where the index structure has 
DUPLICATES allowed but FIRST or LAST unspecified and the following conditions also exist: 

A. The data set is generated. 

B. The index sequential structure is not the prime set. 

Using the index sequential structure as the prime set is a possible alternative to avoid 
this 1 imi tat ion . 

D2 803 BUILDREORG - AUTOMATIC CHECKSUM OF INTERMEDIATE TAPE FILES 

Checksumming is now performed automatically on all tapes written and read during 
reorganization. A warning is now issued when the CHECKSUM specification is given to 
SYSTEM/BUILDREORG; this specification will be de impl emen t ed on the III. 3 system release. 
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DMS II - BUILDREORGANIZATION 

PI 46 5 BUILDREORG - SEQUENCING OF PRIME INDEX, DEFAULT GENERATE 

An "ILLEGAL SEQUENCE" er r o r could occur if the prime set generate preceded the data set 
generate in the SEQUENCE st a it erne n t and the prime set was generated by default. Also, a default 
generate for an INDEX RANDOM structure with DUPLICATES allowed, but FIRST or LAST unspecified 
was inappropriately taken. Such a structure should be fixed up by defiult. Both these 
problems have been corrected. 

P2185 BUILDREORG - REPORTING OF "ORDERED BY" FOR INDEXES 

When an index structure was GENERATEd USING an index structure, the USING structure was 
improperly reported as the ORDERED BY structure on the BUILDREORG report. This is no loneer 
the case . 6 

P2477 BUILDREORG - "INVALID INDEX" AT "30139840" 

Due to an error in BUILDREORG, a DASDL statement of KIND=PACK could cause an INVALID INDEX 
error in the compi I e-t ime processor at 30139840 when compiling REORG. This has been corrected. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - COPY AUDIT 



PI548 COPYAUD-II - CORRECT BLOCK "0" SIZE ERROR MESSAGE 

If COPYAUDIT detects an invalid blocksize on block of the input tape, it now displays the 
following, where MM is the requested blocksize and NN is the actual blocksize: 

"READ TAPE [0] MM WORDS BUT READ NN" 

P2217 COPYAUD-II - BLOCK "0" CHECKSUM 

The checksum in block was sometimes computed and stored incorrectly when copying from tape to 
disk. This and other incompatibilities with the audit stopper implementation have been 
correc ted . 

P2478 COPYAUD-II - CLOSE NEW AUDIT BEFORE OLD 

The new audit file(s) created by COPYAUDIT are now closed before removing the old audit. 
Previously, it was possible to remove the old audit and then get errors closing the new audit, 
resulting in no good audits being available. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - DASDL 

D2567 DASDL - "VERSION" COMPILER OPTION 
The VERSION compiler option is now available in DASDL. 
Syntax: 

— $ VERSION <version> . <cycle> — I 

|- + <version> . + <cycle> -| |- . <patch> -| 

<version> is a two-digit <unsigned integer>; <cycle> and <patch> are three-digit <unsigned 
int eger>» . 

The VERSION compiler option allows the user to specify an initial version number or to replace 
or increment an existing version number. 

The VERSION option is initially inserted in the DASDL symbolic file by setting the NEW option 
and including a VERSION statement with the dollar sign in column two in the CARD input file. 

During subsequent compiles, the version can be updated by setting the MERGE and NEW options and 

including a VERSION option in the CARD file. Two techniques are available for updating the 

VERSION card. When plus signs precede the <version> and <cycle> numbers in the CARD file, the 
existing cycle and version numbers in the TAPE file are incremented by the specified values. 

When plus signs are not specified, the version information from the CARD file replaces the 

existing version information. In either case, the updated VERSION card is written to the new 
symbo lie file. 

The VERSION option in the CARD file must have a lower sequence number than that in the TAPE 
file. If more than one VERSION option appears in the CARD file, the one with the highest 
sequence n umb e r is used. 

<patch> numbers are optional. The new patch number is the patch number in the CARD file, if 
any; otherwise, it is the patch number in the TAPE file. If neither VERSION option contains a 
patch number, the patch number is omitted in the new symbolic. 

D2 568 DASDL - ALLOW MORE STRUCTURES, ITEMS PER STRUCTURE 

DASDL will now properly allow a single data base to describe up to 4095 active and deleted 
structures ( including data sets, sets, subsets, accesses, remaps). A single data base may 
contain up to 1023 data sets, sets and subsets. In the case of partitioned structures, the 
number of structures is multiplied by the value of "OPEN PARTITIONS", but is independent of the 
actual number of partitions that currently exist. 

Each data set may contain up to a total of 1500 items (including data items and embedded data 
sets, sets, subsets, accesses and remaps). Each data base may contain up to 1500 global items, 
which include global data items and disjoint data sets, sets, subsets, accesses and remaps. 

These limits can be further increased to a maximum of approximately 3000 items per data set and 
3000 global items per data base. If DASDL terminates with the message "PROPERTY ARRAY SIZE 
EXCEEDED", the following procedure can be used to reach these larger limits. 

a. Modify the DATABASE/PROPERTIES file as follows: 

DASTEXTBUFFSZ=2**16 #, 23811000 
DASPROPBUFFSZ=2**16 #, 23812000 

Note: 2**16 is the maximum value which can be specified due to hardware addressing 
1 imi t a t i ons . 

b. Run DATABASE/PROPERTIES 

This creates a new data base properties file. 

c. Recompile the following programs: 

SYSTEM/DASDL 
SYSTEM/DMALGOL 
S YSTEM/DMCONTROL 
SYSTEM/BUILD I NQ 
Si YSTEM/BU I LDREORG 
SYSTEM/LOADDUMP 
DATABASE/ I NTERFACE 
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D2613 DASOL - OPTIMIZE "CLEARDATA" TEXT 

DASDL now emits optimized CLEARDATA text for occurring items. 
D2614 DASDL - LIST "TAPE" AND "NEWTAPE" FILE TITLES 

DASDL now lists the titles of the TAPE and NEWTAPE files when the LIST dollar option is set. 
D2615 DASDL - "DASDL" DEFAULTS FOR DATA SETS AND SETS 

DASDL's physical option calculations have been changed in three ways. Default attribute 
selection has been improved, output from the FILE dollar option has been enhanced, and 
modification of the POPULATION option has been simplified. 

A. Default attribute selection 



Default selection has been improved. These new defaults apply to new data bases new 
structures added to existing data bases, and existing structures changed 'usine 
reorganization ITEMS SAME or ITEMS CHANGED. DASDL update will not change options fo? 
existing structures. Defaults for the following options have been changed. 

AREAS and AREAS IZE 

1. For RANDOM data sets and INDEX RANDOM sets and subsets, the default AREAS and AREASIZE 
are large enough to contain the entire POPULATION despite an uneven distribution of 
records among the basic blocks. 

2. For variable format data sets, AREAS and AREASIZE are now based upon the lamest 
variable format type. LIMITERRORs will not occur even when the entire POPULATION 
consists of maximum size records. Note that BLOCKSIZE is still calculated using the 
length of the fixed portion of the record. 

BLOCKSIZE and TABLES IZE 



1. Default BLOCKSIZEs and TABLESIZEs are now selected based upon structure tvoe This 
makes better use of space In addition, ADDRESSCHECK, CHECKSUM, and other control words 
when default BLOCKSIZEs are selected. 

2. 



are cons i dered 




3. BIT VECTOR TABLESIZEs have been optimized to avoid wasted space. 
MODULUS 

le.^'an odd e MODULUS S :aJue ti0n ° f *" """■ '" ™ ****>* ••«• and subsets, DASDL 
POPULATION 

structure"' Tn' POPULA^to^ . ° ' *"* «■*««» jonof the three may now be specified for a 
structure. wnen POPULATION alone is specified, default AREAS mri arfa«I7F „••<, »«i„„. j v. 
DASDL based upon the POPULATION. When oSl y POPULAR ind tfffiAS «/^"f5e5 DASDL^use^ 
ARFAST7F "r" ,-° , C ?T ' e r \ h Z ^SIZE. Similiarly, DASDL computes AREAS if POPULATION and 
tjnofed stipulated. If both AREAS and AREASIZE are specified, then the POPULATION is 

B. FILE dollar option output 

?nfCrma^on U ?:r eLn's , rue ture ' ' " ° Pt ' " h8S "^ eXpa " ded - ° ASDL lis ' S the fcI1 -in g 

1. File title and family. 

2. Buffers. 

3. Options including ADDRESSCHECK, CHECKSUM, etc. 

4. Record size and block size for data sets. 

5. Key entry size and table size for sets and subsets 

6. Subblock size for ORDERED data sets. 

7. Modulus for RANDOM data sets and INDEX RANDOM sets and subsets 

8. Wasted space per block or table. 

9. Loadfactor for sets and subsets. 

10. Areas, areasize, and population. 

il!.?f, th ? . information wh |ch was listed when the ACRINFO dollar option was set during the 
»it« ?£ ! S C0B1 P ,le ls a'so listed by DASDL. The values listed by DASDL are the values 
used by the Acces srout ines ; physical options are no longer changed when tl values 



the Acces s rout i nes 
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C. Updating POPULATION 



The POPULATION option may now be changed using any form of DASDL update. DASDL automatically 
maintains the existing AREAS I ZE, BLOCKSIZE, and TABLESIZE if this is necessary. To change 
the capacity of the structure, simply change the POPULATION. 

D2616 DASDL - "INITIALIZE" STATEMENT ZIPS "UTILITY" 

When the INITIALIZE statement is present, DASDL zips UTILITY to initialize all data base files. 
UTILITY will be run when the ACCESSROUTINES and other data base software has been compiled. 
Formerly, this function was performed by a DASDL-genera t ed program which did an OPEN 
INITIALIZE. 

D2682 DASDL - CONTROL FILE TITLE ON UPDATE 

DASDL now uses the data base name stored in the description file to select the input control 
file during update. Previously, operator intervention was required if the old description file 
title and the data base name stored in the description file were different. 

D2729 DASDL - ADD SUBSYSTEM "ID" DOLLAR CARD 

The data base administrator can specify that the data base stack for a particular data base 
will run in the subsystem of his choice by having a value for the SUBSYSTEM task attribute 
compiled into the ACCESSROUTINES code file. This can be accomplished in two ways. 

1. The ACCESSROUTINES can be compiled with the desired value for SUBSYSTEM label equated. 

2. The DASDL dollar option SUBSYSTEM can be set. Then if DASDL is compiled to LIBRARY, and 
SUBSYSTEM has been set, the value specified on the dollar card will be passed as a parameter 
to the Workflow Job that DASDL will start. This will cause that value of SUBSYSTEM to be 
label equated for the ACCESSROUTINES compile. The syntax is $ SUBSYSTEM = "<simple 
identifier;/' where <simple identifier> is the subsystem name. 

When the data base stack is created, it will be placed in the globalmost box included in the 
subsystem. Thus, if * GLOBAL tm Memory is included in the system, the data base stack will be 
placed in global memory. If it is desired to have the data base stack in local memory, the 
local memory for the appropriate box should be included in the subsystem definition and the 
other local memory boxes and the global memory box should be excluded. 

* "GLOBAL Memory" is a trademark of Burroughs Corporation 

If the appropriate box or boxes are not present when the data base stack is first created, it 
will be placed in the default subsystem. 

During the first or any subsequent OPEN of the data base, if the box in which the data base 
stack is placed is not visible to the program trying to OPEN the data base, the program will 
get a DMOPENERROR exception on the OPEN statement. 

There is at most one data base stack for a given data base present anywhere on the total system 
at any point in time. Once built, the data base stack is not moved to another box. 

If the subsystem in which the data base is to be placed includes more than one local memory box 
but excludes global memory, the data base stack will be created in the local memory box in 
which the program that initially OPENs the data base is running. This situation should 
normally be avoided for two reasons. First, in general, a subsystem with more than one local 
memory box without global memory is not very useful. Second, the placement of the data base 
stack can vary depending on which program happens to OPEN the data base first. When the data 
base stack is in local memory, only programs running in that local memory box can successfully 
OPEN the data base. 

It is possible to determine which box the data base stack is running in by examining the DBS 
page of the ODT display. 

The SUBSYSTEM attribute is described in the 111,1 notes MCP D2405 and CONTROLLER D2535. 

D2730 DASDL - CHANGES TO "READAHEAD, " BUFFERS SPECIFICATION 

The buffer specification is now a dynamic data base parameter which can be changed through the 
Visible DBS. This provides two capabilities: 

1. The number of buffers allocated to a structure may be changed at run time. 

2. Serial optimization (read ahead) can be activated by specifying "serial buffers" greater 
than or equal to 2. (Serial optimization can be deactivated by setting "serial buffers" 
less than 2.) This feature is available whether READAHEAD has been specified in DASDL or 
not . 

These capabilities make the DASDL READAHEAD attribute unnecessary; therefore, the following 
changes have been made to DASDL: 

1. The user may now specify "serial buffers" (<integer> BUFFERS PER SERIAL USER) from to 254 
inclusive. Formerly, a syntax error was generated if READAHEAD were TRUE and "serial 
buffers" were less than 2. The default for "serial buffers" is 0. 
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2 The physical attribute READAHEAD wi 1 1 be de impl emen t ed on the DMSII III. 3 release. If DASDL 
encounters READAHEAD on the III.l or III. 2 release, the following warning is issued: 

"THE READAHEAD ATTRIBUTE WILL BE DEIMPLEMENTED ON 3.3" 

3. On III.l and III. 2 releases, READAHEAD has the sole effect of controlling the default value 
of the dynamic "serial buffers" specification: 

a. If either READAHEAD or REBLOCK is TRUE, dynamic "serial buffers" defaults to the DASDL 
"serial buffers" specification. (The DASDL default is 2 when there is no user 
speci f ica t ion . ) 

b. If neither READAHEAD nor REBLOCK is TRUE, dynamic "serial buffers" defaults to 0. 

Please refer to ACCESSROUTINES note D2617 for additional information on dynamic parameters and 
the Visible DBS. 

D2751 DASDL - ZIP STANDARD "WFL" FILE 

Previously, when the ZIP option was set and no errors were detected, DASDL built and zipped a 
job deck to compile the tailored data base software (ACCESSROUTINES, UTILITY, etc.). 

Now, under the same circumstances DASDL zips a WFL file titled "DATABASE/WFL/COMPILEACR" , which 
compiles the tailored DM software. 

This WFL file can be started anytime to compile a user's tailored data base software. This WFL 
file must be started with a string parameter which reflects the given situation. The string 
parameter is a list of "<keyword>=<va 1 ue> " pairs. The following is a description of the 
possible keywords, their default values, and their meanings. 



Keyword 



Defaul t 



Descr i p t ion 



DB 
SOURCE 

OBJECT 

DESCRIPTION 

AUDIT 

SUBSYSTEM 



PARTITIONS 



INITIALIZE 



DEFAULTDB 
DISK 

DISK 

DISK 

RESET 

SYSTEM 



RESET 



INITPARTITIONS RESET 
PRE29 RESET 



RESET 



Data base name 

Family of the DM system software 

(SYSTEM/= and DATABASE/= files) 

Family on which to put the 

tailored DM software 

Family of description file 

SET if data base is audited 

Subsystem identifier from DASDL 

(For * GLOBAL tm Memory systems 

onl y ) 

SET if partitioned structures 

exist (if SET, this will enable 

the WFL to compile 

PARTI TIONCONTROL) . 

SET if the initialization of 

partitions via the running of 

S YSTEM/DMCONTROL is desired. 

SET if mark level of old 

description is prior to 

level II. 9 

SET if a run is desired of 

UTILITY which will initialize 

the data base files. 



* "GLOBAL Memory" is a trademark of Burroughs Corporation. 

Example : 

STARTJOB DATABASE/WFL/COMPILEACR ( "DB=TESTDB DBPK=DEVELPK AUDIT=SET") 

This statement compiles all the tailored DM software for an audited data base named "TESTDB" 
and places that software on a pack labeled "DEVELPK" . The name of the new description file is 
"DESCRIPTION/TESTDB" . 



The title of the 



By default, DASDL zips the job file titled "DATABASE/WFL/COMPILEACR ON DISK" 
WFL file to be zipped may be altered using the ZIPFILE dollar option. 

Example 

$ ZIPFILE = "(USERl)MYSPECIALWFL ON MYPACK" 
$ ZIPFILE = "WFL/COMPILEALL" 

Additionally, the implementation of the WFL zipfile in DASD1 caused the deletion of the DASDL 
source dollar options ACRINFO and ACRDISPLAY and the DASDL compile-time options ACRINFO, 
ACRDISPLAY, CONTROLCARD and CLASS40. The ACRINFO and ACRDISPLAY options for the ACCESSROUTINES 
compile can be set in the WFL zipfile directly. The WFL zipfile is always zipped now; the 
CONTROLCARD option is no longer needed. The desired queue for the zipfile run can be set 
directly in the zipfile; the CLASS40 option is now eliminated. 
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D2 889 DASDL - "TPSDUALUPDATE" OPTION ADDED 



TPSDUALUPDATE has been added to DASDL to allow a data base to be used by both the transaction 
system and normal DM programs. 

When this option is set, a data base may be opened by both a regular DM program (OPEN UPDATE) 
and a transaction system program (OPEN TRUPDATE) . If this option is not set, a mixture of the 
two types of open results in an open error. 

The syntax diagram on Page 4-14 of the DASDL Reference Manual (Form No. 5001480) should be 
changed to show the following: 



|< f 

I 
- OPTIONS -- ( /1\- ADDRESSCHECK 

-/1\- AUDIT 

-/1\- BACKOUTTOSPT 

-/1\- DATACHECK1 

-/1\- DATACHECK2 

-/1\- RESTART TRANSACTIONS ONLY 

-/1\- STATISTICS 

-/1\- TPSDUALUPDATE 



- ) 



D2 899 DASDL - CAPABILTIES AND LIMITATIONS 

The table in the DMS II DASDL Reference Manual (Form No. 5001480), Page 6-48, is incorrect. 
The three "NO"s opposite "Change Order in which items are declared" should read as follows: 

"NO NO YES". 

D2900 DASDL - FORMAT OF A VERIFIED LINK 

The diagram on Page 4-98 of the DMS II DASDL Reference Manual (Form No. 5001580) is incorrect. 
The diagram should show that the disk address in a verified link (L) precedes the value of the 
verification item (K) in the record for the data set (D) . 

D2 92 7 DASDL - BLOCK ZERO FORMAT 

Page C-52 of the DMS II DASDL Reference Manual (Form No. 5001480) shows block zero format. The 
format is incorrect; the locations of EMPTY BLOCK and EOF BLOCK are reversed. The order of the 
blocks should read as follows: 

CONTROL WORD 



CONTROL WORD 
EOF BLOCK 
CURRENT BLOCK 
EMPTY BLOCK 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

DMS II - DASDL 

P1038 DASDL - "INVALID INDEX" 

DASDL dies with an INVALID INDEX when an update compile is done on a data base containing a 
partitioned data set. This problem has been corrected. 

P1775 DASDL - ELIMINATE "SEG ARRAY" ERROR 

DASDL no longer terminates with a SEG ARRAY error while formatting printed output. 

P1776 DASDL - RECOMPILATION MESSAGE FOR UPDATE 

If DASDL update is performed with the ZIP compiler option set, DASDL now displays a message 
indicating which items of system software must be recompiled. 

PI 777 DASDL - PREVENT ABNORMAL TERMINATION 

DASDL no longer terminates abnormally when a semicolon is omitted following the DEFAULT 
stat ement . 

PI 803 DASDL - PREVENT "INVALID INDEX" 

DASDL no longer terminates with an INVALID INDEX at sequence number 7788SOOO while creating the 
bl ock directory. 

P1804 DASDL - ENSURE "AREASIZE" IS SPECIFIED PROPERLY 

DASDL now ensures that the AREASIZE attribute is specified in the proper units; e.g., BLOCKS is 
only permitted for the audit trail, while either RECORDS or SEGMENTS is permitted for a data 
set . 

PI 840 DASDL - IMPROVE "DASDL" SCANNER 

All scanning has been incorporated in a single procedure. 
P1920 DASDL - VALID "OPEN PARTITIONS" ATTRIBUTE 

DASDL now ensures that the OPEN PARTITIONS attribute is not specified for disjoint structures. 

PI 921 DASDL - GLOBAL CHAIN NOT OVERLAYED 

When a logical data base was encountered which referenced an undeclared data set, DASDL 
produced unpredictable results. This occurred because DASDL inadvertently overlayed the global 
chain. This has been corrected. 

P2034 DASDL - SYNTAX ERROR FOR ONE GLOBAL DATA SET 

All data bases must contain at least one data set. DASDL now gives a syntax error if no data 
sets are present. 

P2191 DASDL - ERRONEOUS KEY CHANGED ERRORS 

DASDL generated incorrect KEYERROR text for remaps containing virtual items. As a result, the 
ACCESSROUTINES reported KEY CHANGED exceptions when remaps were used. This has been corrected. 

P2207 DASDL - "INFO" TABLE INCORRECT 

DASDL was not storing information in its INFO tables correctly. As a result, the description 
file produced by DASDL was incorrect. This caused a variety of errors when tailored software 
was compiled or run. This has been corrected. 

P2354 DASDL - TEXT GENERATED FOR GROUP KEY WITH FIELD 

DASDL was generating incorrect text for a set whose key was a group which contained a field. 
P23S5 DASDL - LAST SCAN SAVED 

An INVALID INDEX no longer occurs while scanning variable format declarations. 

P23 56 DASDL - CORRECTS ERROR CHECKING FOR "READONLY" OPTION 

DASDL was erroneously generating the message "MUTUALLY EXCLUSIVE OPTIONS" for some 
specifications of the READONLY option. 
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P2455 DASDL - PRINT STORE CARD IMAGE 



DASDL was printing out each source card image after it was scanned for syntax. This caused 
DASDL information such as: 

"(Structure name> IS STRUCTURE <struture #>" 

to be printed on the output listing before the card image to which it referred. 

DASDL now prints the card image and the associated information in the proper order. 

P245 6 DASDL - ALLOW "ALTERNATE" SPECS AFTER "PACKNAME" 

Following an audit trail PACKNAME specification, DASDL now allows an ALTERNATE media 
spec i f i ca t i on . 

P2457 DASDL - ALWAYS COMPILE "PARTITIONCONTROL" 

The WFL job zipped by DASDL to compile the tailored data base software now compiles 
PARTITIONCONTROL whenever partitioned structures are specified in the DASDL source. Previously, 
PARTITIONCONTROL was compiled orlly when partitioned structures were added to an existing data 
base with no partitioned structures. 

P2479 DASDL - MAXIMUM LENGTH "DBNAME" IN QUOTES 

DASDL was erroneously displaying the error message "IDENTIFIER EXCEEDS 17 CHARACTERS" for long 
data base names enclosed in quotes. DASDL was mistakenly counting the quotes in computing the 
name size. DASDL now allows a full 17 character string enclosed in quotes as a data base name. 

P2480 DASDL - DISALLOW DATA SET WITH NO NAMED ITEMS 

DASDL now displays an error message for data sets which have no named items. 

P2608 DASDL - WARNING FOR "ACRINFO, ACRDISPLAY" 

ACRINFO and ACRDISPLY DASDL options were de impl ement ed with the implementation of the WFL 
zipfile; however, these options could still be specified in DASDL source without errors. Now, 
DASDL will give a warning when these options are specified. 

P2609 DASDL - "DECKLIST" OPTION 

Since DASDL now uses a standard WFL zipfile, the DECKLIST option is now used to list only the 
parameters with which the WFL zipfile is to be zipped. 

P2610 DASDL - WRITE OMITTED CARDS TO LISTING AND "NEWTAPE" 

Previously, DASDL was not writing omitted cards to a line printer listing or newtape file. 
Now, if LIST or NEW dollar options are set, the omitted cards will be written correctly. 

P2639 DASDL - INCREASE "TEXTGENMAX" TO "4095" 

The TEXTGENMAX define has been changed from 1200 to 409S. Previously, DASDL could get a SEG 
ARRAY error while generating text for very large compact data sets. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - DMALGOL 



D2759 DMALGOL - "B7000" SERIES "DM" OPTIMIZATION 

The READLOCKNOPURGE function and the PURGEASM statement have been implemented for B7000 series 
opt imi za t ion . 

The READLOCKNOPURGE function has the same syntax as the READLOCK function. For B7000 series 
compilers, if the compiler $ option B7700 is set, READLOCKNOPURGE emits code which prevents the 
purge of associative memory before the readlock operation if the code is executing on a B7000 
series machine. If the code is executing on a B6000 series machine, the action of 
READLOCKNOPURGE is identical to that of READLOCK. If SB7700 is reset, the code for 
READLOCKNOPURGE is identical to the code for READLOCK. 

The syntax for the PURGEASM statement is the following: 

— PURGEASM — % 

For B7000 series compilers, if the compiler $ option B7700 is set, PURGEASM emits code to purge 
the associative memory if the code is executing on a B7000 series machine. If the code is 
executing on a B6000 series machine, no action is taken. If $B7700 is reset, no code is 
emitted for PURGEASM. 

D2837 DMALGOL - COMPILE TIME EXTENSION TO "<DEFINE DECL>" 

The following changes should be made to the ALGOL Language Reference Manual (Form No. 5001639): 

On Page H-l, change the third line from "and (4)" to "(4) an extension to the <define 
dec 1 ara t ion> ; and (5)". 

On Page H-4, before heading "Compiler Options", add the following: 

"EXTENSION TO <define declaration> 

The following extension to <define declaration> is available when using the compi 1 e-t ime 
f ac i 1 i t y : 

<def i n i t i on> :: =<de fined i den t i f i e r>< forma 1 symbol par t> = < text ># | 
<defined i den t i f i e r>< forma 1 symbol par t >:=< text ># 

If a define identifier is declared with ":=", then any compile-time variables, identifiers, 
and statements in the <text> are evaluated once, at the time of and in the scope of, the 
define declaration. If a define is declared with "=", then the compile-time items in the 
<text> are evaluated upon each invocation of the define identifier and in the scope of the 
invocat ion . " 

D2 9 80 DMALGOL - "DMALGOL" DOCUMENTATION 

The DMALGOL language, previously released but largely undocumented, has been documented for the 
III.l release. It is described in Appendix E, "DMALGOL Implementation". 
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DMS II - DMALGOL 



P2115 DMALGOL - COMPILE TIME PROCESSOR "INVALID INDEX" 



The compi 1 e-t ime processor no 
The size of CTLABELS has been 



longer terminates 
increased. 



with an INVALID INDEX on the CTLABELS array. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - DMCONTROL 



PI739 DMCTL - "OPEN INITIALIZE" VS. "RECOVERY" 

If OPEN INITIALIZE is run against an audited data base which requires Halt/Load recovery, the 
control file is not locked until Halt/Load recovery has been run successfully. Formerly, OPEN 
INITIALIZE locked the control file prior to recovery. This prohibited any program except an 
OPEN INITIALIZE to be run if the recovery terminated unsuccessfully. 

If this change is not contained on a DM standard system tape, it must be first compiled into 
DMCONTROL and a new DATABASE/DMCONTROL must be made with the patch in it. Next, the 
ACCESSROUTINES must be recompiled to include the new DATABASE/DMCONTROL. 

P1922 DMCTL - "INV OP" IN " IODISKADDRESS" 

Assume a data base data file had an incorrect version times tamp for some reason. (For example, 
the file was dumped using UTILITY, but "OFFLINE DUMP" was not specified; then later, the file 
was loaded by UTILITY using the "COPY" statement.) Assume a program opened the data base 
inquiry and proceeded to run, because the operator overrode the timestamp checking. Finally, 
assume another program opens the data base update. Then a timing problem exists if the 
operator overrides the timestamp checking again for the update program. Unpredictable results 
might occur including an INVALID OP in the MCP procedure IODISKADDRESS. The problem has been 
correct ed. 
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DOCUMENT CHANGES NOTES (D NOTES) 

DMS II - DUMPDIR 

D2 70 8 DUMPDIR - DUMP TAPE DIRECTORY 

DMSII is now capable of maintaining a directory which records information about UTILITY data 
base dumps. Using the directory, the system can determine on which dump tape a row of the data 
base resides. This information makes data base recovery much easier. 

The Dump Directory is entirely optional. It may be enabled and disabled at any time. 

Ma in Directory 



Information about dumps is maintained in a two-level directory. Each data base has one Main 
Directory. It contains one entry for each dump that has been processed (and not deleted) since 
the directory was enabled. 

The Main Directory is stored on the same pack as; the data base Control file. 

Naming Convention 

<data base name>/DMDUMPDIR 

Dump Di rectory 

There is one Dump Directory for each entry in the Main Directory. A Dump Directory entry is 
created each time a UTILITY dump is performed. Each Dump Directory contains the dump name and 
a list of the data base files dumped to the tape. The user may specify the pack on which the 
dump directories are maintained using the ENABLE statement. If no pack is specified, the dump 
directories are stored on the same pack as the data base Control file. 

Naming Convention 

<data base name>/DMDUMPDIR/<dump time>/<dump name> 

<dump name> The name given to the tape in the UTILITY DUMP statement. 

<dump time> The time at which the dump was taken. This number is used when directory entries 
are manually added or deleted. 

Exampl e : 

DEC2179152116 

This means the dump was taken on December 21, 1979 6 15:21:16. 

DM DUMP DIRECTORY Program 



Dump directory information is retrieved and modified using SYSTEM/DMDUMPDIR. DMDUMPDIR 

provides the following functions: 

Syn t ax : 
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ENABLE 



l<- 

I 



-/1\- PACKNAME — = — <fami lyname>- 

|-/1\- RETAIN — = — <integer> 

DISABLE 

ADD < dump i dent i f i er> 

|< , 1 

DELETE <dumpident i f ier> 

|- OLDEST — <integer> 

WRITE < f i 1 e 1 i s t > 

LIST 

MAINDIRECTORY 

- DUMPD I RECTORY <dumpident i f ier>- 



<dumpident i f ier> 

— <dumptime> — / — <dumpname> — | 

<f i le 1 ist> 

|< . 1 

< f i 1 e name> | 

-<rowselector>— 



<rowse 1 ec tor> 

< AND 

|<- * 1 

( /1\- ROW = — <rangc options>- 

-/1\- FAMILYINDEX -| 

I < , 

-/1\- ROWLOCK — = /1\- LOCKEDROW 

|-/1\- READERROR -| 
-/1\- PACKNAME — = — <fami lyname> 



-- ) —I 



<range opt ions> 
I < 

<integer> 



Running DMDUMPDIR 



-< int eger>- 
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To run DMDUMDIK, label-equate file DASDL to the description file and pass the appropriate input 
command as a string parameter. 

Ex amp 1 e : 

RUN SYSTEM/DMDUMPDIR(*'LIST =") 

FILE DASDL=DESCRIPTION/DBNAME ON DBPACK; 

Funct i ons 



ENABLE 

PACKNAME 
RETAIN 



DISABLE 
ADD 



DELETE 



WRITE/LIST 



This establishes a Main Directory for the data base, causing a boolean in the 
Control file to be turned on and the global section of the Main Directory to be 
set up . 

This may be used to specify the location of the dump directories. By default, 
dump directories are stored on the same family as the data base Control file. 

This may be used to control how many dumps are maintained in the directory. By 
default, fifty (50) dumps are retained. 

Ex amp 1 e : 

" ENABLE PACKNAME=DBPACK , RETA I N= 1 " 

This causes a directory to be associated with the data base. All Dump Directory 
files reside on DBPACK. The directory retains information for a maximum of 10 
dumps . 

This disables the Dump Directory and removes all available files associated with 
i t . 



This allows entrys to be manually added to the Main Directory, 
specifies the entries to be added. 



<dump ident i fier> 



Ex amp 1 e : 

"ADD FEB0179125205/DBDUMP" 

This causes dump FEBO 1791 25205 /DBDUMP to be added to the Main Directory. 

This deletes entries from the Main Directory and removes the corresponding Dump 
Directory from disk. <dumpi den t i f i e r> specifies the entry to be removed. OLDEST 
deletes the oldest <integer> entries. 

Ex amp 1 e : 

"DELETE DEC2 57 8172125/DMSDUMP" 

This deletes the entry for DEC2 5 7 8 1 7 2 1 2 5 /DMSDUMP and removes 
file. 



ts Dump Directory 



This displays the name of the dump tapes on which the most current copies of the 
specified rows reside. WRITE directs output to the printer; LIST sends output to 
the terminal. When a <filelist> appears, information is listed for the specified 
files. The equal sign option ("=") displays information for all data base files. 
MAINDIRECTORY displays the contents of the Main Directory. DUMPD I RECTORY displays 
the contents of the specified Dump Directories. 

Ex amp 1 es : 

"WRITE MAINDIRECTORY" 

This displays the Main Directory on the printer. 

"LIST DB/A/DATA(ROW=l-5)" 



This lists the tapes on which the most current copies 
DB/A/DATA reside. 



of rows 1 through 5 of 



Adding and Deleting Entries 



Adding Entries 

Each time a dump is taken, an entry for the dump will be automatically entered in 

the Main Directory and a Dump Directory file will be created. Dump entries may be 

added to the Main Directory manually if a Dump Directory exists for the entry. 

Deleting En tries 

Entries may be deleted automatically or manually. Automatic deletion occurs if 

the number of entries being added causes the number of entries in the Main 

Directory to exceed the number to be retained. The oldest entries will be 

de 1 e ted . 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - DUMPDIR/LIBRARY 



P2 5 82 DUMPDIRLIB - LOCATION FOR LENGTH OF DUMP DIRECTORY 

The complete dump directory was not being read in because the length of the directory 
being picked up from the proper location. This problem has been corrected. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

DMS II - INQUIRY 

PI 825 INQ - DISPLAY OF ALL-FRACTION ITEMS 

An all-fraction numeric item (e.g., NUMBER(5,5) in DASDL) was displayed incorrectly. The digit 
in the record immediately preceding the item was displayed before the decimal point as if it 
were part of the value. This has been corrected. 

PI 826 INQ - DISPLAY OF NULL ITEMS 

When the option NULL=FALSE is used, null items are not displayed in TAB or SINGLE format. In 
the case of TAB, it was possible for extraneous characters to appear at the end of one value 
prior to the next item, instead of the required blanks. This has been corrected. 

P2012 INQ - VALUE OUT OF RANGE 

An erroneous VALUE OUT OF RANGE error might occur with certain decimal values used in a 
selection condition. This has been corrected. 

P2208 INQ - "INVALID INDEX" USING DEFINES 

An INVALID INDEX fault occurred if more than one simple define were used in a single input. 
This has been corrected. 

P225 1 INQ - DISPLAY OF NUMERIC ITEMS 

The following problems have been corrected: 

1. Invalid printing of units digit (always 0) when displaying or reporting a number defined in 
DASDL with only fractional digits. 

2. Display of value not properly aligned when displaying a number with no fractional digits. 

3. INVALID INDEX when displaying a zero-valued numeric item defined in DASDL as the last item 
of a data set record and defined in DASDL with no fractional digits. 

P2276 INQ - DISPLAY LIMIT FOR "OPTION PRINTER" 

When OPTION PRINTER was set and a <limit> was specified for a DISPLAY, all records which meet 
the selection criteria were automatically output: to the printer. The < 1 imi t > specification was 
essentially ignored. This problem has been corrected. Now, if a <limit> is specified for the 
display, after this number of records is printed, the following message will be displayed at 

the terminal : 

"# <limit> RECORDS FOR <structure name> PRINTED" 

A NEXT command is required to display additional records. 

P2389 INQ - FIND VIA SELF-CORRECTING LINK ITEM 

A SEG ARRAY error sometimes occurred when selecting a record via a self-correcting link item. 
This problem has been corrected. 

P24 81 INQ - FAULT ALPHA CONTROL ITEM BREAK 

Only the first item of an alpha field was used to check for a control item change. Thus, 
control breaks for alpha control items were sometimes not properly detected. This problem has 
been corrected. 

P2 500 INQ - USE OF DEFINES IN CERTAIN CONTEXTS 

Invocation of defines in certain contexts (e.g., at the beginning of a REPORT statement or SET 
statement) would cause an INVALID INDEX. This problem has been corrected. 

P2501 INQ - LOSS OF MINUS SIGN 

The minus sign for a negative value was lost when a signed item was printed via the REPORT 
statement. This problem has been corrected. 

P2612 INQ - COMPARISONS OF LITERALS 

Comparison of an alpha item of a length greater than 275 characters with a literal in a 
selection expression caused a SEG ARRAY error. This problem has been corrected. 
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DMS II - INTERFACE 



P2158 INTERFACE - "INVALID INDEX" IN DATA BASE INTERFACE 

Logical data bases which contain global data could cause data base interface to die with an 
INVALID INDEX. This problem has been corrected. 

P2 249 INTERFACE - "GROUP" ITEMS INVOKED INCORRECTLY 

Remaps which contained groups having HIDDEN items were not invoked correctly. Items which 
followed the group were erroneously included in the group. This problem has been corrected. 

P2357 INTERFACE - LINK TO SET QUALIFICATION 

Previously, INTERFACE passed an incorrect identifier to the compilers to qualify a link which 
referred to a set. The erroneous output on the invocation listing was the following: 

<linkname> REFERENCE TO <setnamc> OF <setname> 

Correct output now is the following: 

<linkname> REFERENCE TO <set name> OF <data set name> 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - LOADDUMP 



PI 92 3 LOADDUMP - "INVALID INDEX" WITH DELETED STRUCTURE 

tp?c?fied Sata b se? had'heenM? T^ ¥*¥?»? J" ? 1 * ter-i*.te with an INVALID INDEX if the 
-pecuiea aata set had been deleted and added back into the DASDL. 

PI 924 LOADDUMP - TITLE ATTRIBUTE ERROR 

was r se! e '"n2 a a 1 os?caTda^ °L~ ' C " P roduc * d « flle attribute error on DASDL. TITLE when DEBUG 
"" hel Ana a logical data base was specified. 
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DMS II 



PRINTAUDIT 



1)2618 PRINTAUDIT - DECODE DATE AND TIME 

PRINTAUDIT will now decode all date-t imes tamps in records containing them. In interactive 
mode, this information will only be displayed if hex dump information is also displayed. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - PRINTAUDIT 



P202 7 PRINTAUDIT - HEX DUMP OF BLOCK 

If PRINTAUDIT detects a timestamp or audit block serial number discontinuity, the block is 
printed in hex. Formerly, it tried to print it normally and often got a fault-DS because the 
block was abnormal. Now, if this is the case, at least a hex dump of the block will be 
printed. 

P2 502 PRINTAUDIT - BAD CHECK FOR LABEL EQUATION 

Because of the use of the FAMILYNAME file attribute, PRINTAUDIT was incorrectly checking for a 
1 abe 1 -equa t ed audit file. The problem has been corrected. 

P2 504 PRINTAUDIT - FAULT ON PARTIAL RECORD 

PRINTAUDIT could fault with an INVALID INDEX if the first record of a file was a partial 
record. The problem has been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - PROPERTIES 



D28 3 2 PROPERTIES - "DUPLICATES" SUBCATEGORY "2" EXPLANATION 

The explanation of subcategory 2 for a DUPLICATES exception in the DMSII Host Reference Manual 
(Form No. 5001598), Page B-2 , should be corrected to read as follows: 

"DUPLICATES 

2 Duplicates not allowed in this subset or data set record already in subset (INSERT)." 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - PROPERTIES 



P2361 PROPERTIES - OVERLAPPING USE OF OPENERRORS 

The same value of openerror was being used for two different purposes. This error has been 
corrected. 

P2549 PROPERTIES - LEVEL FOR "RECONINFO" FILES 

The format of the RECONINFO files changed slightly on III. I; therefore, the format level of the 
file has been incremented. 

P9236 PROPERTIES - OPTIMIZE EVALUATION OF CHECKSUM LOCATION 

The code to access checksum locations in buffers has been optimized. 
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DOCUMENT CHANGES NOTES (D NOTES) 

DMS II - RECOVERY 

D2659 RECOVERY - AUDIT HANDLING ENHANCEMENTS 

A number of changes have been made to RECOVERY'S audit handling pro- cedures which provide some 
new capabilities and enhancements. 

1. Improved positioning at end of audit for Halt/Load recovery. 

RECOVERY will now position both primary and secondary audits in parallel when finding the 
end of the audits for the Halt/Load recovery and rollback. As a side effect of this change, 
RECOVERY will ensure that the ends of the primary and secondary audits are the same. Any 
errors encountered in the audits while positioning will be ignored if they can be bypassed 
via the duplicated audit. In addition, RECOVERY will now expect audit tapes to end with a 
good end-of-file and disk audits to end with a good end-of-file or the stopper pattern. If 
RECOVERY finds an audit that ends abnormally, it will dump to the printer the bad block at 
the end of the audit and the last good block found on the audit and then terminate. 
COPYAUDIT wi 1 1 be required to fix the audit file (if indeed the problem is correctable.) 

2. Better error recovery on audit file errors when using duplicated audit. 

RECOVERY will now attempt to recover from any type of errors found on the primary audit by 
using the secondary audit. Previously, only hard I/O errors and checksum errors would be 
retried from the secondary audit. Now soft errors like time stamp discontinuities and audit 
block serial number errors will also cause the secondary audit to be used. 

3. Last resort error recovery on audit file errors. 

If RECOVERY cannot recover from an error on the primary audit by using the secondary audit 
(or no secondary audit exists), RECOVERY will close and release the current audit file and 
then wait for an operator OK to reposition and retry the operation. This will give the 
operator the chance to move an audit tape or pack to possibly correct the problem. If 
repositioning fails, RECOVERY will terminate with a fatal error. 

4. Recovery from write errors on audit. 

When RECOVERY goes to fix the last block on the audit in the case of Rebuild, Rollback, or 
Halt/Load recovery, if a write error is detected, RECOVERY will release the audit and wait 
for an operator OK to reposition and retry. In particular, if the write ring was not 
inserted in the final audit tape for Rebuild and Rollback, this will allow the write ring to 
be inserted and RECOVERY to continue. 

5. Additional diagnostics on audit errors. 

Whenever an unexpected error condition is encountered when reading an audit file, the audit 
block and the error condition encountered are listed on the printer before attempting to 
recover from the error. 

6. Locating audit files. 

Audit files can now be used and read by RECOVERY from tape or disk or any pack regardless of 
the declared source of audits in DASDL. If RECOVERY cannot find an audit file, RECOVERY 
will wait on an ACCEPT message on the console. The operator can respond "OK" to retry 
looking for the audit or can enter "FAMILY = <family name>" to divert RECOVERY to a 
different audit family. Entering "FAMILY = DISK" will cause RECOVERY to look on the DISK 
family for the audits. This alternate audit family will be remembered by RECOVERY and will 
be searched for all other audits for the rest of the run. A different alternate audit 
family may be specified for the duplicated audit from the primary audit. 

If for some reason an audit file is missing (possibly lost or misplaced) and Rebuild, 
Rollback, or Reconstruct requires that audit file, RECOVERY will wait on an accept which 
will allow the operator to enter "USE DUP" to indicate that the desired audit file is 
missing but that the secondary audit is present. The secondary audit will then be opened and 
used . 

D2807 RECOVERY - ENHANCEMENTS TO QUICKFIX 

The III.O Quickfix capability is useful for recovering from transient failures in the 

electronic parts of the I/O hardware. However, it was not so useful for recovering from solid 

failures in the magnetic recording media itself. The present ehancements to the Quickfix 
capability address this problem. 

Quickfix now has a copy option in which the locked out rows of the data base files to be 
rebuilt are first copied to temporary files. Any compare or I/O errors are retried, and any 
errors which are irrecoverable are recorded. During the initial reverse scan of the audit (the 
prepass), such I/O errors can be "canceled" by encountering a BLKIMG audit record which spans 
the sectors in error. The BLKIMG audit record is written to the temporary file. Thus the write 
of the block image can succeed even if the corresponding sectors in the data base file cannot 
be written. Such irrecoverable errors can also be "canceled" during the prepass if an 
appropriate decrease in end-of-file occurs in the audit. 
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The UTILITY syntax to initiate the new form of Quickfix is as follows. RECOVER (ROWS USING 
AUDIT ONLY, <limit>) This is the same as the syntax to initiate the old (3.0) form of Quickfix 
The syntax to initiate the old form is as follows. RECOVER (ROWS IN PLACE USING AUDIT ONLY, 
<limit>) This change to the syntax enables users to reap the added benefits of the new form 
without changing any existing syntax. It also makes the syntax consistent with the two forms 
of DATARECOVERY which use backup dumps. 

It is expected that the old form of Quickfix will seldom be used, since the new form is more 
likely to succeed, and since many transient I/O problems can be handled by the III 1 I/O retry 
mechanism in the ACCESS ROUTINES without ever locking out a row. 

Two other enhancements to Quickfix have been made. First, the prepass will terminate as soon 
as the recoverabi 1 i ty status of all rows to be recovered has been determined, even if the 
<limit> has not yet been reached. The other enhancement is that a displacement from the 
current end of the audit can be specified, resulting in UTILITY syntax which is invariant over 
time. The displacement can be specified as a certain amount of time or a certain number of 
audit files. For example, to specify that the prepass is to go back one hour and thirty-five 
minutes in the audit, <ltmit> would be as follows. 

LIMIT = * - 1 : 35 

To specify that the prepass is to go back through the current audit file plus the six previous 
audit files, <limit> would be as follows. 

LIMIT = * - 7 AUDIT FILES 

The complete UTILITY syntax is presented in III.l UTILITY note D283S. 
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PI 805 RECOVERY - ORDERED "EOF" SET INCORRECTLY 

If the last block allocated in an ORDERED data set was also the last block of a disk row, 
Halt/Load recovery would die with a FAILED TO SET END-OF-FILE ON DB FILE error. This has been 
cor rec t ed . 

PI 806 RECOVERY - TAPE AUDIT HANDLING 

When the audit file is used by RECOVERY during a rebuild or rollback was on tape, the fatal 
error UNEXPECTED AUDIT BLOCK SERIAL NUMBER would sometimes occur erroneously. This would 
happen in the final Halt/Load recovery phase when backing up two control points, if either 
control point was in the last block of the previous audit file. This has been corrected. 

PI 807 RECOVERY - "48" USERS OF RESTART DATA SET 

When more than 47 invokes of the restart data set were active simultaneously, Halt/Load 
recovery and abort recovery and the final phase of rebuild and rollback could get an INVALID OP 
when processing the corresponding section of the audit. This problem has been corrected. 

PI 808 RECOVERY - AUDIT REEL SWITCH 

When the primary audit was on pack, but the actual audit was on tape, Halt/Load recovery and 
rebuild and rollback (if started at the final Halt/Load recovery phase) would get a fatal 
error: AUDIT REEL SWITCH SHOULD NOT BE NECESSARY. This has been corrected. 

PI 809 RECOVERY - INCORRECT TIME PRINTED 

When printing the stop time for a rebuild or rollback, RECOVERY and UTILITY would print the 
seconds incorrectly. RECOVERY printed the wrong seconds; UTILITY printed the wrong fractional 
seconds. The actual time value used was correct, however. RECOVERY now prints the correct 
time truncated to the nearest second; UTILITY now prints the correct time truncated to the 
nearest millisecond. 

P1925 RECOVERY - "ABORT" GETS "WAITING ON ROWLOCKOUTAUDIT" 

If ABORT recovery encountered an error, the ACCESSROUTINES would get an RSVP "WAITING ON 
<db> /ROWLOCKOUTAUDIT" and the data base would hang until it was DSed, because ABORT called the 
ACCESSROUTINES before closing the rowlockout audit file, which had been opened exclusively. 
The problem has been corrected. 

P2013 RECOVERY - AUDIT POSITIONING ERROR 

There is no longer a problem of positioning the audit at the end of the Quickfix prepass on 
partitioned data bases. 

P2014 RECOVERY - CORRECT REBUILD RESTART 

Rebuild recovery no longer goes into a processor loop when restarting. 

P2101 RECOVERY - DATA BASE CORRUPTION BY ROLLBACK 

Rollback no longer corrupts the data base when terminated in the region of an audit where a 
prior Halt/Load recovery had taken place. 

P2102 RECOVERY - REBUILD, ROLLBACK RESTART ERROR 

If RECOVERY were doing a rebuild or rollback and died or was Halt/Loaded between the afterimage 
phase (if a rebuild) or the beforeimage phase (if a rollback) and the Halt/Load recovery phase, 
it would not restart properly and would terminate abnormally. This problem has been corrected. 

P2159 RECOVERY - MAKE "ODT" ARRAY LOCAL TO INTERRUPT 

The array used for displaying messages has been made local to the software interrupt to avoid 
any possible conflict. 

P2186 RECOVERY - OPENERROR MESSAGE IMPROVED 

If RECOVERY gets an open error in opening the data base, the category, subcategory and 
structure number are now displayed. 

P2284 RECOVERY - PREVENT CHECKSUM ERROR 

RECOVERY will no longer terminate with spurious checksum errors when an unordered or random 
data set is extended. 
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When backing out changes to certain structures (I-S, O-L, UO-L, I-R and compact data sets) that 
extended the end of file, RECOVERY would set the end of file one block greater than the actual 
value. This has not caused any problems previously; however, it could cause false checksum and 
address check errors on a III.] UTILITY dump. 

P2413 RECOVERY - ABORT BACKS UP TOO FAR 

ABORT No longer improperly backs up the data base. Formerly, it unconditionally backed out to 
syncpoint when it could have backed up to a null transaction point. 

P2414 RECOVERY - "REBUILD" AND "RECONSTRUCT" BACK UP TOO FAR 

Formerly, when REBUILD and RECONSTRUCT encountered a RECOV record in the audit file while 
applying AIs, they would behave as if they were in the Halt/Load phase of recovery (i e they 
would apply Bis to the last null transaction point preceding the RECOV record, back up two 
control points, and apply AIs up to the last null transaction point before continuing on to 
apply AIs beyond the RECOV record). They no longer unnecessarily back up these two control 
points (and apply AIs to the last null transaction point);, instead, they begin applying AIs 
beyond the RECOV record immediately after applying the Bis to the null transaction point. 

P2449 RECOVERY - "DS" ABORT CAUSES SYSTEM HANG 

Abort RECOVERY no longer hangs the system with a fatal STACK OVERFLOW when DSed. 

P245 8 RECOVERY - BAD RETRY LOGIC 

If the write ring was not in place at the time REBUILD or ROLLBACK attempted to end-of-file the 
audit and the RETRY option was used, then the second attempt to end-of-file the audit would 
fail with an I/O DESCRIPTOR error or possible corruption of the audit. The RETRY will now be 
done cor rec 1 1 y . 

P2459 RECOVERY - TIMING PROBLEM IN "REBUILD/ROLLBACK" RESTART 

If REBUILD or ROLLBACK were DSed when attempting to fix up the last audit block on tape a 
subsequent restart could fail. REBUILD would fail with "MUST REBUILD TO DATE-TIME > END OF 
DUMP OF END OF AUDIT" . 

P2482 RECOVERY - "FAILED TO SET END-OF-FILE" MESSAGE 

RECOVERY no longer terminates with "FAILED TO SET END-OF-FILE ON DB FILE" when attempt ins to 
set end of file on an ORDERED data set. 

P248 3 RECOVERY - QUICKFIX MAY FAIL ON CHECKSUMMED DATA BASE 

Quickfix could fail with a SEG ARRAY error in its prepass if one of the structures being fixed 
had the largest block size in the data base, was checksummed, and had a blocksize one larger 
than a multiple of 30. Data recovery was ignoring the checksum word when computing the maximum 
buffer size to use. 

P2503 RECOVERY - COPE WITH EMPTY AUDIT FILES 

Halt/Load recovery and PRINTAUDIT could fail if an audit contained block zero only and no data 
The problem has been corrected. 

P2505 RECOVERY - RECONSTRUCT IGNORES QUIET POINT 

Upon encountering a recovery point in the audit, Reconstruct could incorrectly apply before 
images. If the restart data set was not being reconstructed, Reconstruct would apply before 
images until a control record was encountered, rather than stopping on a quiet point (a BTR 
record indicating no one in transaction state) as it should. This problem, which could 
potentially corrupt the structure(s) being reconstructed, has been corrected. 

P2640 RECOVERY - "ZOT CURSTAMP" AT END OF AUDIT 

Previously, when READAUDIT encountered the end of a disk audit, it did not always set the audit 
block timestamp check variable to undefined. This caused a subsequent call on READAUDIT to 
report a TIMESTAMP DISCONTINUITY error. READAUDIT now sets this variable to undefined upon 
encountering end of audit. 

P2 641 RECOVERY - "FIXLASTAUDITBLOCK" AUDIT POSITIONING 

Previously, for disk audits FIXLASTAUDITBLOCK left the audit positioned in such a way that, 
U?o^™?. e ,. r ,i5U', n condit 'o n s, a subsequent attempt to read the audit would report a TIMESTAMP 
DISCONTINUITY error. This problem has been corrected. 
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D273 1 REORG - "REORGANIZATION" OPTIMIZATION 

The following enhancements and changes are related to improvements made in 
efficiency of the REORGANIZATION program. 

DEFAULTS OF GENERATION 



the ove rail 



The following defaults apply to the GENERATE statement: 

1. If UPDATE is specified in DASDL, then every " REORGAN I ZEd " indexing structure in the data set 
family which is not explicity generated will have the default generate: 

GENERATE <istrl> USING <istrl>; 

2. If the data set is generated, then all Bit-vectors and manual subsets in the data set family 
will have the default generate: 

GENERATE <istrl> USING < i s t r 1 > ; 

3. If the data set is generated, then all index sequential and ordered list structures in the 
data set family with DUPLICATES allowed, but FIRST or LAST unspecified, will have the 
def aul t generate : 

GENERATE <istrl> USING <istrl>; 

On previous releases the above default was inappropriately taken for index random structures 

in the data set family when the data set was generated and the stated DUPLICATES condition 

existed. This is no longer the case. Such an index random structure will be merely fixed 
up by de f au 1 t . 

CHANGES TO THE DATA COPY SPECIFICATIONS 



The following is the simplified syntax of the <data copy specs>: 



<str> ( COPY TO <medium>- 



COPY BACK 



AT END 



- FINAL MEDIUM 



) ; -I 



The NO COPY option has been eliminated. In addition, COPY specifications can now only be given 
for structures which are generated, either explicitly or by default. An improved NO COPY 
algorithm offering a significant speed up in the fixup process has been implemented which will 
now be automatically employed to do all fixups "in place." 

In order not to immediately invalidate existing specifications, COPY specifications for 
structures requiring fixup will be ignored and a warning message will be issued for this and 
the following release. 

NEW RESTRICTION ON THE GENERATE STATEMENT 



A new restriction has been placed on the GENERATE statement which facilitates better 
optimization of the reorganization processes. If <istrl> is generated USING <istr2>, then 
<istr2> cannot be generated USING <istrl> or using any other index structure generated using 
<istrl>. For example, the following GENERATE statements are invalid: 



GENERATE SI USING S2, 
GENERATE SI USING S2, 



S2 USING SI ; 
S2 USING S3, 



S3 USING SI ; 



NEW CRITERIA FOR SEQUENCING REORGANIZATION PROCESSES 



New criteria is now used to determine the sequence of certain reorganization processes. If 
<istrl> is generated using <istr2>, then any GENERATE or FIXUP required for <istr2> is done 
before the GENERATE for <istrl>. In addition, if <istrl> is generated using <istr2> and the 
data set which these indexes span is generated, then the generation of <istr2> is not done 
simultaneously with the generation of any other index structure which is also generated using 
<istr2>. These criteria facilitate better optimization of the reorganization process and 
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permit the SEQUENCE statement to be completely optional. 

To enforce the new criteria when explicit sequencing is specified, the following new 
restrictions are placed on the SEQUENCE statement: 

1. If <istrl> is not the <prime> set and is generated USING <istr2> and <istr2> is generated or 
fixed up. then <istr2> must appear before <istrl> and cannot be ANDed with <istrl>. 

2. If the data set is generated and <istrl> is generated USING <istr2>, then <istrl> cannot be 
ANDed with any other index structure which is also generated USING < i s t r 2 > . 

As a result of the new sequence criteria, a SEQUENCE statement is no longer required when 
REORGANIZATION specifications similiar to the following are given: 

GENERATE D, SI USING SI, S2 USING SI; 

Assuming D is a data set and SI and S2 are spanning sets, a SET SEQUENCE ERROR was previously 
given forcing either a SEQUENCE statement or <data copy specs> to be specified. The above 
change eliminates the need for this additional specification. 

SPEED UP OF CERTAIN GENERATE PROCESSES 



The new fixup algorithm has been employed to significantly increase the speed of certain 
generate processes. When an index structure is generated USING itself or another index 
structure (i.e., <istrl> USING <istrl> or <istrl> USING <istr2>), the new fixup algorithm is 
now applied when required within the index structure GENERATE process to fixup the USING 
structure (which is usually the old structure) in-place. This occuirs before the actual 
generate of the new index structure begins and provides for improved overall efficiency of the 
reorganization process. 

D2732 REOBG - ELIMINATION OF "REORGPENDING" 

A SYSTEM/DMCONTROL( "UPDATE" ) run is no longer zipped immediately after a DASDL UPDATE run with 
REORGANIZATION specified, nor is the control file marked as " REORGANIZATION PENDING". Thus the 
control file is unchanged by the intended reorganization until the actual run of the 
REORGANIZATION program. 

If the user should execute SYSTEM/DMCONTROL( "UPDATE") immediately after a DASDL REORGANIZATION 
run, a warning is given and the program is terminated normally (i.e., essentially a no-op run 
occurs) . 

This change was made to facilitate continual on-line operation of the data base up until the 
time when the REORGANIZATION program is run. In addition, it facilitates proper dumping of the 
control file and data base files at this point. 

D2736 REORG - DATA BASE REORGANIZATION 

The following represents an updated version of the original documentation on REORGANIZATION 
which appeared in the II. 8 D-Notes. All documentation changes which have occurred since II. 8, 
including III.l changes, have been included. 

PURPOSE 



During the life of a data base, the uses and demands on it may occasionally change. For 
instance, the data base administrator may find it necessary or desirable to: 

REORGANIZATION CAPABILITIES 



1. Reorder data sets according to a specific index set (prime index) if sequential accessing 
through that set involved the greatest number of applications for the data set. 

2. Garbage collect on both data sets and indexing structures. During the normal running of a 
data base, the physical size of a file for a structure does not decrease. Thus, if a data 
set once had a large population and then reverted to a smaller population, the data set 
would still have the physical size equivalent to the largest population. However, it would 
consist of a small population of data records and a large population of deleted (available) 
records. In anticipation that this data set would never increase to the former high 
population (within some reasonable time frame), the available "holes" could be removed to 
return disk or pack space back to the MCP . This process is known as "garbage collection". 

3. Generate sets or automatic subsets if a new method of access is desired for the data set. 

4. Balance index tables and achieve a uniform coarse/fine table distribution to optimize 
accesses through sets. 

5. Change structure physical attributes such as blocksize, areas, population, modulus, load 
f ac tor, etc. 

6. Change records by adding record fields. 

NOTE: If the user wishes to do this, he should first read Section 5 of the DMSII DASDL 
Reference Manual (Form No. 5001480) - "Remaps and Logical Data Bases". 
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To accomplish any of the above obviously requires physical transformations of structures 
Tbese transformations are known as "data base reorganization". 

This document describes the data base reorganization program capabilities. 

USER DESCRIPTION 



Database Reorganization must be per formed wi th the data base off-line. The object of one 

Reorganization run' is to modify at most one data set and its spanning sets. Thus a 

reorganization run may be applied to any data set and any of its spanning sets, or any spannine 

sets with a common data set. 6 
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USER STEPS FOR REORGANIZATION 

The data base administrator must decide which data base structures require reorganization. The 

data base administrator may perform as many "reorganization runs" as necessary to achieve the 

desired resultant data base. A "reorganization run" is the application of this package to at 
most one data set and its spanning structures and consists of the following steps: 

1. If step 2 below is to be done, a backup copy of the DASDL symbolic and description file 
should first be made. 

2. (Optional) DASDL run with UPDATE option set and REORGANIZE clause specified. DASDL UPDATE 
is necessary when physical attributes such as AREASIZE, BLOCKSIZE and TABLESIZE are changed, 
and when new fields are added to records. The new description file will have the update 
level incremented. Only user programs may be compiled against the 
description — ACCES SROUTI NES , etc., will get syntax errors. Such user programs will not run 
with the old (i.e., current) ACCES SROUTI NES , however, because their DASDL UPDATE level is 
greater. Old programs can still run with the old ACCES SROUTI NES to update the data base. 

3. SYSTEM/BUI LDREORG run. The user must create input to the SYSTEM/BUILDREORG program 
specifying the structures to be reorganized. In addition, resource allocation and various 
other options may be given. SYSTEM/BUILDREORG syntax checks this input and if all 
structures specified belong to the family of one data set and its spanning structures and 
other rules are adhered to, then the program will: 

A. Create the "DESCRIPTION/REORGANIZATION/ <dat a base name>" file containing the data 
base description and the reorganization specifications. 

B. Generate a report which shows both the user and default reorganization 
specifications. All structures which will be changed by the reorganization program 
are noted on this report. 

4. DMALGOL compilation of the actual reorganization program, "REORGANIZATION/ <da t a base name>". 
This compilation utilizes "DATABASE/REORGSYMBOLIC" and "DESCRIPTION/REORGANIZATION/ <da t a 
base name>". This compilation may optionally be "zipped" from SYSTEM/BUILDREORG. 

5. A backup copy of the control file and all data base files should be made. If dumping the 
entire data base is impossible, at least the control file and all data files which will be 
reorganized or which require address fixup should be dumped. 

6. "REORGANIZATION/<da t a base name>" run performs the actual data base reorganization. The 
run, which is actually performed in two or three phases, is explained later in more detail. 
(See "REORGANIZATION RUN".) The data base must be taken off-line and the following files 
must be present at some time during this run: 

A. All structures to be reorganized. 

B. If a reorganized structure has a structure with links pointing to it, then all such 
linking structures (for address fixing). 

C. If a reorganized structure is embedded, then its master structure (for root address 
f i xup) . 

This program ignores all FAMILY statements at run time. The reorganization program always 
expects a structure to be present on the FAMILY resulting from the specifications in the 
last DASDL run; thus, when the <disk/pack> option for a structure is changed as a result of 
a DASDL UPDATE run, REORGANIZATION expects to find the structure on the new device. The 
structure can be copied from the old device to the new device using Library Maintenance, or 
the old device can be appropriately relabeled. 

If Step 2. above is done, the REORGANIZATION program immediately runs the control file 
program to update the control file. (Consequently, the description built by BUILDREORG must 
be present at this time, since it is needed by the control file program.) The control file 
is marked as in exclusive use by REORGANIZATION. The new structures are added to the 
control file at this time, and the DASDL UPDATE level is incremented in the control file. 
Until this step, the old ACCES SROUTI NES were able to run. Now, they will get an open error 
on the control file because its DASDL UPDATE level is greater and because it is marked as 
being in exclusive use by REORGANIZATION. The REORGANIZATION program then reorganizes the 
data base. In the (final) remove phase, the REORGANIZATION program unlocks the control file 
from from the "IN EXCLUSIVE USE BY REORG" state. 

7. If Step 2. above is done, then a normal DASDL UPDATE run (with the REORGANIZE clause(s) 
removed) is necessary. The purpose of this run is to take the description file out of 
"reorganize" mode and restore it to a state for running the data base. This also notifies 
DASDL that the "reorganization run" has been successfully completed and allows the new 
ACCES SROUTI NES , etc., to be compiled. The user can then run all programs compiled against 
the current or previous descriptions with the new ACCES SROUTI NES . 

8. A backup copy of the new control file and all data files which were generated or fixed up 
should be made because of the discontinuity created in these files by their reorganization. 
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Reorgani 
s t rue t ur 
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two ste 
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zation is not done in place. Thus, the reorganization program will use an old 
e as input and output a new structure onto the proper medium. For very large 
es there may be severe space problems. Therefore, reorganization provides an optional 
p algorithm which uses an intermediate medium. After input is completed, the 
zation program removes the old structure and copies the new structure from the 
iate medium to the final medium. 



The user must determine which structures should be reorganized to intermediate mediums. 



St rue t ur 
must be 
pi ace . 

No par t i 
data set 



es which are not reorganized but have links which point into reorganized structures 
updated in the reorganization process. These "fixups" are automatically performed in 

tioned structure or structure with a partitioned master may be reorganized nor may any 
being linked to by a partitioned structure be reorganized. 

SPECIFICATION OF THE REORGANIZATION PROCESS (BUILDREORG) 



SYSTEM/BUILDREORG is used to control the reorganization process. The input to BUILDREORG 
specifies which structures are to be reorganized, the intermediate mediums to use, and various 
other opt ions . 

SYNTAX: 



Control program run: 

? RUN SYSTEM/BUILDREORG 

? FILE DASDL=DESCRIPTION/"<data base name>" 

? DATA CARD 

(user specified reorg & 

resource al loc . ) 

? END 

For the following syntax let 

<d> data set 

<s t r> st ructure 

<istr> indexing structure (set or subset) 

< id> ident i f ier 

<db-name> data base name 



-<genera t ion ident i fi cat ion> 




I I 

| -< r eorgan i za t ion global control specs>-| 



<generat:ion i den t i f i cat i on> 

— GENERATE 

I -<d> 

- ORDER BY — <str>- 



< i s t r 1>- 



USING — <istr2>-| 
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(sort environment specs> 

-<str> ( /l\-<extract specs> ) 

-/l\-<sort specs> 

-/l\-<loadf actor specs>- 



PAOE 22 2 



<extract specs> 

— EXTRACT KEYS TO — <medium>- 



<sort specs> 



— SORT USING — — /l\-<integer>— TAPES | 

-/l\-<integer> — SEGMENTS — 

-/1\- FAMILYNAME = DISK - 

- PACK - 
-<id> 



<Ioadfactor specs> 

— LOADFACTOR = — <integer> — | 



<data copy specs> 

<str> ( COPY TO <medium>- 



COPY BACK 



FINAL MEDIUM 



AT END - 



) ; -I 



<procedure sequence specs> 
< AND 

SEQUENCE <str> 



(reorganization global control specs> 



l<- 



-/1\- INTERNAL FILES — ( FAMILYNAME = DISK — ) 

PACK 



-<id> 



-/1\- TASKLIMIT = — <integer>— ; - 
-/1\- ALLOWEDCORE = — <integer> — ; 
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<med iun; 
TAPE - 

- PACK 
DISK 

-<id>- 



1 
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EXAMPLE : 



GENERATE D1A ORDER BY S5 , SI, S2 , S3B USING S3, S5, S7; 

SI (EXTRACT KEYS TO SORTPACK, SORT USING 1000000 SEGMENTS, 
FAM I LYNAME= SORTPACK , LOADFACTOR= 90); 

S2 (EXTRACT KEYS TO SORTPACK, SORT USING 1000000 SEGMENTS , 
FAMILYNAME=SORTPACK) ; 

S3A(SORT USING 40000 SEGMENTS); 

S5(EXTRACT KEYS TO TAPE, SORT USING 3 TAPES, FAM I LYNAME= SORTPACK, 
1000000 SEGMENTS, LOADFACTOR=80) ; 

S7(EXTRACT KEYS TO DISK, SORT USING 8 TAPES); 

DlA(COPY TO TAPE, COPY BACK AT END); 
S1.S2 (COPY TO DISK, COPY BACK); 
S3B(COPY TO FINAL MEDIUM) ; 
S5,S7(COPY TO TAPE, COPY BACK AT END); 
DX,DY(COPY TO PACK, COPY BACK); 
DW,DZ(COPY TO TAPE, COPY BACK); 

SEQUENCE SS, D1A, SI AND S7 AND S3B.S2 AND DX AND DW AND DZ AND DY; 

INTERNAL FILES (FAMILYNAME=SYSPACK) ; 
TASKLIMIT=3; ALLOWEDCORE=300000; 

SEMANTICS : 



SYSTEM/BUILDREORG uses the data base description file and the user card input to create the 
reorganization description file titled '"DESCRIPTION/REORGANIZATION/<data base name>". This 
reorganization description file is used to drive the DMALGOL compiler over the standard 
DATABASE/REORGSYMBOLIC to create the reorganization program. The resultant reorganization 
program is "tailor-made" and suitable for only one reorganization run. 

GENERATION IDENTIFICATION 



The generation identification specifies which structures will be reorganized. The options are 
as fol lows : 

1. GENERATE <d>; 

The reorganization program reads the original data set, and writes a new data set, 
performing complete garbage collection. If a <prime> set for <d> is specified in 
DASDL, then the new data set will be ordered in the key order of the <prime> set. If 
no <prime> set is specified, the original data seta order is maintained. 

2. GENERATE <d> ORDER BY <str>; 

<str> must be <d> or an I-S, U-L, or O-L spanning set of <d> . The system performs 
the same function as (1) but will order on the <str>. If the <str> is <d>, then the 
original data set order is maintained. 

3 . GENERATE < i s t r > ; 

<istr> may be any automatic indexing structure against the data set. The system will 
use the data set as input and completely generate <istr>, performing complete table 
ba 1 anc i ng . 

With this method of generation, it is impossible for the system to determine the 
order in which duplicates were originally entered. Therefore, if "DUPLICATES", 
"DUPLICATES FIRST", or "DUPLICATES LAST" is specified in DASDL, the duplicate entries 
will be entered into the new structure in a random sequence. Also, if there is no 
duplicates condition on the key of <istr> and duplicates is encountered, the 
reorganization program will abort with a "DUPLICATES" exception. 
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GENERATE <istrl> USING <istr2>: 



4 



<istrl> and <istr2> must be spanning sets with the same key, duplicates condition 
where condition, and data in key" against the data set. The system will use <istr2> 
as input and generate <istrl>, performing complete table balancing. The most common 
use of this statement is "GENERATE <istr> USING <istr>", where thS original and final 
structures are the same. This method of generation has two advantages over 
generation of <istrl> from the data set (Option 3): 

A. The order of duplicates will be preserved. 

B. If <istr2> is not an I-R structure, the extraction of keys and key sortine is 
not required. 6 

This syntax also permits newly added sets and subsets to be generated from existing 
ones . ° 

If <istrl> is a manual subset and the data set is GENERATEd, then all key entries 
pointing to deleted records in the data set will be deleted. This prevents these 
keys from pointing past "end of file" or to valid data. 

RESTRICTIONS OF GENERATION 

1. Structures may be generated only once. 

2. If UPDATE with REORGANIZE is specified in DASDL and the data set is specified REORGANIZE 
then it must be explicitly GENERATEd. *»™i»~»., 

3. All generated structures must belong to the family of the data set and its spanning sets. 

If <istrl> is generated USING <istr2>, then cistr2> cannot be generated USING <istrl> or 
rciSS.T§ ny . ? er . Index . structure generated using <istrl>. For example, the following 
GENERATE statements are invalid: «w.i. e 

GENERATE SI USING S2 , S2 USING SI; 

GENERATE SI USING S2, S2 USING S3, S3 USING SI; 

5. Manual subsets must have a "USING" clause. 

6. Embedded indexing structures must have a "USKNG" clause, and <istr2> must be identical to 

7. Restart data sets must not be generated. 

8. Partitioned structures must not be generated. 

9. Structures with partitioned masters or partitioned linking structures must not be generated. 
(See also BUILDREORG note D2775 - "Reorganization Limitations".) 

DEFAULTS OF GENERATION 

1. If UPDATE is specified in DASDL, then every "REORGANIZEd" indexing structure in the data set 
tamily which is not explicitly generated will have the default generate: 

GENERATE <istrl> USING <istrl>; 

2. If the data set is generated, then all Bit-vectors and manual subsets in the data set familv 
will generate: * 

GENERATE <istrl> USING <istrl>; 

3. If the data set is generated, then all index sequential and ordered list structures in the 
data set family with DUPLICATES allowed, but FIRST or LAST unspec i fi ed , will have the 
default generate: 

GENERATE <istrl> USING <istrl>; 

FIXUP (ADDRESS UPDATE) 

A fixup process is done for structures which are not to be reorganized but must be updated in 
the reorganization process. There are three cases: 

1. If the reorganized structure is embedded, then any root word links must be undated in the 
master structure. 

2. If the data set is generated, then all spanning sets which are not generated must have their 
links to the data sets updated. 

3. If a data set is generated, then all structures with DASDL links pointing to it must have 
their links updated. 
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Each such structure is automatically fixed up by the reorganization program. 

SORT ENVIRONMENT SPECIFICATIONS 



The reorganization program uses the Sort Intrinsic. The user can control the sort resources 
via the following specifications: 

1. "EXTRACT KEYS TO <medium>". If an indexing structure is generated from a data set or an I -R 
structure, then the system unconditionally creates a file consisting of the "keys" for that 
indexing structure. Since this "key" file is an "unordered" version of the indexing 
structure, it may be quite large. This statement controls where the key file is written. 
By default, the key file is written to the medium on which the reorganized structure will 
reside. 

2. "SORT USING". This specifies the resources which can be used by the SORT intrinsic. Disk 
(or pack), tape, or a combination of disk (or pack) and tape sorting is permitted. The 
defaults for this specification are as follows: 

a. If this clause is not specified, the total default is "SORT USING 3 TAPES". 

b. If "SORT USING TAPES" is specified, the total sort specification is "SORT USING 
TAPES, FAMILYNAME=<id>, 20000 SEGMENTS", where <id> is the internal files family. (See 
INTERNAL FILES SPECIFICATION). 

c. If "SORT USING <integer> SEGMENTS" is specified, the total sort specification is "SORT 
USING TAPES, FAMILYNAME=<id> , <integer> SEGMENTS", where <id> is the internal files 
f ami ly . 

d. If "SORT USING FAMILYNAME=<id>" is specified, the total sort specification is "SORT USING 
TAPES, FAMILYNAME=<id>, 20000 SEGMENTS " . 

e. If "SORT USING <integer> TAPES, FAMILYNAME=<id>" is specified, the total sort 
specification is "SORT USING <integer> TAPES, FAMILYNAME=< id> , 20000 SEGMENTS". 

f. If "SORT USING <integer> TAPES, <integer> SEGMENTS" is specified, the total sort 
specification is "SORT USING <integer> TAPES, FAMILYNAME=< id> , <integer> SEGMENTS", where 
<id> is the internal files family. 

g. If "SORT USING FAMILYNAME=<id>, <integer> SEGMENTS" is specified, the total sort 
specification is "SORT USING TAPES, FAMILYNAME=< id> , <integer> SEGMENTS". 

3. "LOADFACTOR=<integer>" . This allows the user to override the DASDL loadfactor for 
reorganization only. The LOADFACTOR and "integer" have the same semantics as in DASDL. The 
default is the DASDL LOADFACTOR. 

DATA COPY SPECIFICATIONS 



The copy specifications indicate which medium to reorganize to and whether or not to copy the 

structure back to its final medium. Each generated structure has either a default or explicit 

copy specification. If no copy specifications are given, all generated structures will be 
reorganized to the final medium on which they reside. 

The copy options are the following: 

1. (COPY TO <medium>, COPY BACK) causes the system to reorganize to the specified medium and 
immediately copy the structure(s) back to the final medium. 

2. (COPY TO <medium>, COPY BACK AT END) causes the system to reorganize to the specified medium 
and copy the structure(s) back to the final medium after all structures for this run have 
been reorganized. 

3. (COPY TO <medium>) causes the system to reorganize to the specified medium. Copying the 
structure to the final medium requires a special run of the reorganization program (see 
REORGANIZATION RUN) . 

4. (COPY TO FINAL MEDIUM) is the default for all generated structures and causes the system to 
reorganize to the final medium on which the final structure will reside. No COPY BACK is 
neces sary . 

NOTE: The intermediate files generated by any copy specification are temporary and are not 
intended for archiving purposes. 

RESTRICTIONS OF DATA COPY SPECIFICATIONS 



1. Data copy specifications only apply to structures which are generated, either explicitly via 
the GENERATE statement or by default. 

2. If the data set's "ORDER BY" structure is an index set which is GENERATEd , then it may only 
have one of the following specifications: 

(COPY TO FINAL MEDIUM) 

(COPY TO <medium>, COPY BACK) 
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For all generates 



<str>(COPY TO FINAL MEDIUM); 

PROCEDURE SEQUENCE SPECIFICATION 

Ihirh r ° C nr^!«! eqUenCe s P e c j f ' ca t i on provides the maximum control possible over the order in 
winch processes occur so that resources and throughput can be optimized For mo*t 
application., default sequencing together with the possible spec i f i ca t i on of TASKLIMIT ana 
<sort environment specs>, should provide ample optimization lAMtLlMi I and 




'' JLn h fi, data A Ct iS 8 enerated and '«« "ORDER BY" structure (<prime> set) is a generated set 
then this index set must appear first and may not be ANDed. generated set, 



2. If th 

a 



mus t 
appear 



annear Second "'if* ?P ecified fifSt acc ° rdin §. to rule 1, then the generated data set 
fVrtV ?^ ???; th ?u <pr,me > set ,s not f»r*t. then the generated data set must 
urst. in either case, the generated data set may not be ANDed. 

^kl^i^'' master structure of an embedded generated structure must appear after all of i 
s?ruc d ures gene structures. It may not be ANDed «i ,h any of i t s embedded genera! 



ts 
ed 



4 ffxerf S .U 1> ,i S "°- l h t < P rime> set and J s generated USING <istr2> and <istr2> is generated or 
fixed up, then <istr2> must appear before <istrl> and cannot be ANDed with <istrl>. 

5 lNDED e w da n a fl ^ t „JLf e ?^ ated . and . <iStr ^ *s jienerated USING <istr2>, then <istrl> cannot be 
ANDfeD with any other index structure which is also generated USING <istr2>. 

6. If a structure is not explicitly sequenced, then it will be placed in sequence in accordance 
with the above rules, and will be ANDed as much as possible. sequence in accordance 

INTERNAL FILES SPECIFICATION 



n.el'r^fgTvef-FAMfLYNAMt" 10 " CaUSCS ^ '"'•«•»«*•« P'» f r« to maintain 



i t s internal 



and the 



There are several of these internal files depending on the number of structures • 
fiuf a are a use!J .S'SSr™'?' j nter ? a ! ■l.orl t.hm for a particular reorganization process. These 
upda ing addresses P AH c "* a ' » fun ° " °»? such as program restart, retrieving records and 
n^:;;REORGANI^TION/CONT^oi". °' the " "'" 6X,St " n ,he di "c<ory: "< da ' a base 

This specification is also used in conjunction with the _ „ 
ENV^rSnmInt'SpECIfJcAtTSnSO Whe " " SEGMEm " S " is s P ecified bu « "PAMYEVkAMi" is not. (See SORT 

NOTE: This specification does not determine the default mediums for "COPY TO" files controlled 
^NVIRONME^PEC?^c1t^ ICATI ° NS "° r thC ™"*™ ™" fi.es .™.r..,.. by°?ne°SORT 

TASKLIMIT SPECIFICATION 



SORT ENVIRONMENT SPECIFICATIONS 



IxnMcitlv niZa r i ° n J r? ?ra, ! 1 | Wi 'i»!!! U I ti ~ prOC ! SS ^organization processes which have been either 
-TAori }»!£.. °,, implicitly ANDed together (see PROCEDURE SEQUENCE 

• -r.^rlwJI W,1 J put an "PPer limit on the number of th 
lAsKLIMI r = 1 ; 



SPECIFICATION) . 

lese processes. The default 



The 

i s : 



ALLOWED CORE SPECIFICATIONS 

^^llw!:!! 01 ^ 000 ^" C ' aUS ! c ? ntrols the amount of sort core used by the system. The default 

a 1 owed core in words is approximately 12000 times the number of tasks which can be sorting 

at the same time (controlled by SEQUENCE and TASKLIMIT). wm«,n can oe soriing 

DOLLAR CARD OPTIONS 
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SYSTEM/BUI LDREORG has the following dollar options which are initially "SET": 

1. LIST - When LIST is SET, REORGANIZATION lists the input and the resulting report. 

2. ZIP - When ZIP is SET, the reorganization program compile is is automatically zippd. 

NOTE: Columns 73-80 are ignored by SYSTEM/BU I LDREORG . 

The user may want to "RESET ZIP" and compile the reorganization program separately. The 
compilation deck for the reorganization program is as follows: 

7COMPILE REORGANIZATION/ "<dat a base name>" WITH DMALGOL LIBRARY 

7COMPILER FILE TAPE=DATABASE/REORGSYMBOLIC 

7COMPILER FILE DASDL=DESCRIPTION/REORGANIZATION/"<dat a base name>" 

? COMPILER FILE PROPERTIES -DATABASE/PROPERTIES 

7 DATA CARD 

$ MERGE 

7 END 

REORGANIZATION RUN 



The title of the reorganization program is: 

REORGANIZATION/" <dat a base name>" 

This program may be run with three options: 

1. RUN REORGANIZATION/ "<dat a base name>" ( "GENERATE" ) ; 

This performs the reorganization except for copying back to the final medium for structures 
which spec i fy : 

<str>(COPY TO <medium>); 

2. RUN REORGANIZATION/"<data base name>"("COPY") ; 

This performs only the "copy back" to final medium for structures which specify: 

<str>(COPY TO <medium>); 

This is only necessary if there are structures with this copy specification. It may be used 
more than once. 

If REORGANIZATION is run with this option and there are no structures to copy, then 
REORGANIZATION will go to immediate EOJ . No structure will be copied and no errors will 
result. 

The reorganization control files must be present on the internal file family during the 
copy. 

"<data base name>/REORGANIZATION/CONTROL/=" 

The intermediate files generated by REORGANIZATION must be resident. The title convention 
for these files is as follows: 

a. Tape: IIII...NNN, where the I's are the first alphanumeric part of the structure 
identifier and the N's are the three-digit structure number. 

b. Disk or pack: <data base name > /REORGANIZATION/ <s t ructure id>/ <structure number> 

NOTE: The above files are not intended for archiving purposes and should be copied back as 
soon after the "GENERATE" run as possible. It is also important that any file 
created by the reorganization program should not be purged by the user until it has 
been copied back. To facilitate the scratching and reusing of tapes, the 
reorganization program informs the user via a display when a tape can be scratched. 
Disk files are purged automatically. 

3. RUN REORGANIZATION/" <dat a base nemo" ("REMOVE"); 

This causes REORGANIZATION program to unlock the control file and remove all residual files. 
This option must be used after the "GENERATE" phase and the "COPY" phase, if any, are 
compl et ed . 

Intermediate structure files which are utilized by the "COPY" phase and certain control 
files necessary for restart are left on disk to allow multiple runs of the "COPY" phase in 
case of parity errors on the final structure files. These files are removed to return 
storage space to the MCP and to ensure that a subsequent reorganization program will not try 
to read any residual control files left by this run. 

NOTE: The reorganization program makes a check to ensure that the restart file it picks 
up was created by it and not by another version of the reorganization program. If 
this check fails, the program will terminate with an error when it opens the 
control restart file. a previous program). The error message displayed by the 
reorganization program in this case is: "MISMATCH BETWEEN REORGANIZATION PROGRAM 
AND <data base name>/REORGANIZATION/CONTROL DIRECTORY". 
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The following WFL example illustrates the proper sequence of execution of the reorganization 
program options. 

EXAMPLE : 

?JOB REORGANIZEDB; 
BEGIN 

RUN REORGANIZATION/DB ( "GENERATE" ) [GENTSK] ; 

IF GENTSK ISNT COMPLETEDOK THEN ABORT 
" * * *BAD GENERATE RUN* • * " ; 

RUN REORGANIZATION/DB ( "COPY" ) [COPYTSK] ; 

IF COPYTSK ISNT COMPLETEDOK THEN ABORT 
"••♦BAD COPY RUN***"; 

RUN REORGANIZATION/DB ( "REMOVE ") [REMTSK] ; 

IF REMTSK ISNT COMPLETEDOK THEN ABORT 
" * * *BAD REMOVE RUN* * * " ; 



?END JOB 



REORGANIZATION PROGRAM RESTART 



can 



In the event of a Halt/Load, DS, or various run time error, the reorganization program ,,.„. 
ISA'V-.u" a u proCeSS o^. S ri^w, If a task aborts . th e reorganization program waits for all tasks 
ANDed within the same SEQUENCE to complete, and then terminates itself to allow the user to 
correct the condition. To restart from the point of the abort, run the reorganization program 
with the proper option (1-3 above). It will continue at the latest point possible. 
Successfully completed processes will not be restarted. To achieve this restart, it is 
necessary that <data base name>/REORGANIZATION/CONTROL/=" be resident on the " internal file 
tamily To restart from the very beginning of the generation, remove this directory and 
reload the data base. A parity error on a control file is a fatal error and requires that the 
data base files be re-loaded and the program be started from the beginning. 

D2910 REOUG - "FAMILY" ATTRIBUTE FOR REORGANIZED STRUCTURES 

The reorganization program always expects a structure to be present on the FAMILY resulting 
from the specifications in the last DASDL run. Thus, when the <disk/pack> option for a 
structure is changed as a result of a DASDL UPDATE run, REORGANIZATION will expect to find the 
structure on the new device. The structure can be copied from the old device to the new device 
using Library Maintenance or the old device can be appropriately relabeled 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - REORGANIZATION 



PI 778 REORG - WARNINGS WHEN COMPILING VARIABLE FORMAT 

When compiling REORGANIZATION against a variable format data set with no variable parts, a 
warning is no longer issued. 

PI 827 REORG - "DATAERROR 001" WHEN REORGANIZING GLOBAL DATA 

REORGANIZATION no longer terminates with a DATAERROR 001 fault when new global data items are 
added . 

PI 828 REORG - LINK FIXUP IN VARIABLE FORMAT DATA SETS 

Two problems associated with fixup of links within variable format data sets have been 
corrected. Previously, if links referencing the GENERATEd data set occurred only in the fixed 
format portion of the data set record, an INVALID INDEX occurred when a variable format record 
was processed. If links referencing the GENERATEd data set occurred in both the fixed and 
variable portion of the data set record, only the link in the variable portion of the record 
was "fixed up" for processed records having a variable portion. 

PI 829 REORG - "INVALID INDEX" ON RESTART OF GENERATE PHASE 

If REORGANIZATION/^ data base name> ("GENERATE'') were Halt/Loaded or DSed during the later 

phases of its processing (i.e., after basic reorganization of files is complete and the AT END 

COPY or self-link fixup phase is in progress), an INVALID INDEX would occur on subsequent 
restart. This problem has been corrected. 

PI 902 REORG - COMPACT DATA SETS WITH RECORD RELOCATION 

The following problems associated with compact data sets which contain records relocated from 
the parent, or original, block have been corrected: 

1. If the compact data set was GENERATED and ordered using a spanning set, REORGANIZATION would 
abort with a SEG ARRAY error, or, in some cases, corruption of data in the compact data set 
would occur . 

2. When GENERATing a set from the compact data set, entries in the set for relocated records 
would point at the resident record instead of the parent. Unpredictable results could occur 
later when updating the compact data set. 

3. Fixups of links and spanning sets required as a result of reorganizing the compact data set 
would result in inappropriate NO RECORD errors generated by REOROANIZATON; or, in the case 
of unprotected, verified, or self-correcting links, the link would be inappropriately set to 
nul 1 . 

PI 903 REORG - GENERATION OF MANUAL SUBSETS 

When reorganizing a data set having a spanning manual subset, it was possible that valid 
entries in the spanning subset were deleted. This could occur when the manual subset structure 
contained few blocks (or few blocks per master in the case of an embedded subset) and the new 
AA for a valid set entry was not also a valid old AA. In addition, under these circumstances, 
it was possible that set entries would be updated with an improper AA. These problems has been 
corrected. 

PI 904 REORG - "IOERRORTYPE 7" ON FIXUP OF STANDARD DATA SET 

Previously, it was possible for an IOERRORTYPE of 7 (attempt to exceed disk row or read past 
EOF) to occur during the FIXUP of a standard data set. This would occur when a COPY TO 
specification was given for the data set in BUILDREORG. In addition, for a standard data set 
with variable format records, it was possible for the last words of block zero to be corrupted 
upon FIXUP. This would occur only when a COPY TO <medium> specification was given for the data 
set in BUILDREORG and would cause unpredictable results on subsequent update of the data set. 

PI 926 REORG - BLOCK INITIALIZATION FOR DIRECT DATA SETS 

Unused records existing at the end of the last block of a reorganized DIRECT data set file were 
not properly marked as "INVALID" by REORGANIZATION/ <da t a base name>, thus causing a fatal error 
in the ACCESS ROUTINES when these records are accessed. The problem has been corrected by 
appropriately setting the key values in these records to "UNDEFINED". 

PI 927 REORG - MULTIPLE REEL INTERMEDIATE TAPE MEDIUM 

A fatal IOERROR #6 would result when an intermediate tape medium was specified and multiple 
reels were required. This error would occur on the COPY BACK phase of program operation. On 
the COPY TO, or original output phase, more reels were requested by the program than were 
required. Reel switching is now properly handled by REORGANIZATION and these problems have 
been eliminated. 
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P2103 REORG - FAULTY OUTPUT TO TAPE 

A fatal software error would occur if CHECKSUM were specified in BUILDREORG and blocks of size 
equal to an integral number of 30 words required output to an intermediate tape file. This has 
been corrected. 

P2134 REORG - DUPLICATES OF ORDERED LIST 

If an ordered list indexing structure having DUPLICATES specified but not DUPLICATES FIRST or 
DUPLICATES LAST were generated from a data set or index random structure, the resulting 
structure would contain duplicate entries which were not in the proper sequence. As a result, 
a fatal error (SYSTEMERROR 07) would occur when the ACCESSROUTINES attempted to delete a 
duplicate entry in the ordered list. This same problem also occurred when an index sequential 
structure having DUPLICATES specified but not DUPLICATES FIRST or DUPLICATES LAST was generated 
from an index random structure. This has been corrected. 

P2135 REORG - GENERATE OF INDEX USING DIFFERENT 1INDEX 

If an index structure were generated from a different index structure which was not itself 
being generated or fixed up, syntax errors would occur in the compilation of the reorganization 
program. This problem has been corrected. 

P2136 REORG - UNUSED FOLD WORDS 

Unused fold words were not properly initialized for a generated index random structure. As a 
result, new entries added to an index structure after its reorganization could not be properly 
located. This problem has been corrected. 

P2209 REORG - INVALID FIXUP OF DATA SETS 

Qnly AA words for roots or references which existed in the last physical subblock of the blocks 
of an embedded ordered data set were properly fixed up. Links which existed in other subblocks 
were not fixed up. This could lead to later problems in accessing the referenced data via these 
links. The problem has been corrected. 

P2210 REORG - INDEX RANDOM, RANDOM SHADOW FILE AREASIZE 

The AREASIZE for certain internal shadow files vised in the generate of index random and random 
structures accommodated only 240,000 entries or records in these structure. The AREASIZE has 
been increased to now accommodate over eleven million entries or records. 

P2211 REORG - FIXUP OF EMPTY VARIABLE FORMAT STRUCTURE 

A fatal software error occurred when REORGANIZATION attempted to fixup links in 
format standard data set which contained no records. This has been corrected. 

P2 506 REORG - REORGANIZATION OF COMPACT DATA SET 



var i abl e 



When a compact data set was reorganized with (ITEMS CHANGED) specified in DASDL, the 
REORGANIZATION program would cause any count or population items occurring in the compact data 
set record to be set to zero. This problem has been corrected. 

P2 5 89 REORG - RECORD FORMAT CHANGE 

A SEG ARRAY error could occur or corrupted data could result when a REORGANIZE (ITEMS CHANGED) 
is specified for a compact data set in DASDL and the data set is generated by REORGANIZATION. 

This problem has been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
DMS II - UTILITY 



D2 620 UTIL - MISCELLANEOUS CHANGES 

1. The input request of the WRITE/LIST command will be printed. 

2. Implements the USEMOREPAPER dollar option. 

Up to now the report from the WRITE command would skip to channel 1 prior to every structure 
it was writing, and many of the other reports would skip to channel 1 after printing the 
heading and input command. The new default is to skip 3 lines instead of skipping to 
channel 1, thus possibly saving a great deal of paper where many structures were involved. 
If the old method is preferred, UTILITY may be compiled with the USEMOREPAPER dollar option 
set. 

3. Quotes are now optional in all cases. 

Prior to this most actions which required a structure list absolutely disallowed quotes 
around the structure names and those which required a file list required quotes around 
hyphenated file name nodes. 

The following are now all allowed: 

RUN UTILITY/DB( "WRITE 'D-S'"); 

RUN UTILITY/DB( "WRITE D-S"); 

RUN UTILITY/DB( "DUMP 'D-B' /D-S/'S-l ' TO 'T-N' 

(SERIALNO= , ABC , )") ; 
RUN UTILITY/DB("COPY D-B/'D-S'/= FROM T-N 

(SERIALNO=ABC)"); 
RUN UTILITY/DB(" INITIALIZE 'D-S'"); 
RUN UTILITY/DBC INITIALIZE D-S"); 

4. Some of the reports have been changed to make them more readable and in some cases to add 
more information. 

5. TIME(23) is used to extract the machine type for the heading. 

6. Within the WRITE/LIST command the options (RECORD, HEX, and CONTROL) have been changed 
slightly so that they control what really is reported; i.e., RECORD now gives only the 
RECORD output rather than a mixture of RECORD and CONTROL. If more than one form of report 
is desired (record output with control information), both options must be input to UTILITY; 
eg, 

RUN UTILITY/DB( "WRITE D-S (CONTROL, RECORD) ") ; 

D2621 UTIL - VERIFY "UTILITY" DUMP TAPES REVERSE 

UTILITY will now verify its dump tapes in the reverse direction rather than rewinding and 
verifying in the forward direction. 

D2710 UTIL - "CHECKSUM" AND "I/O" RETRY 

UTILITY I/O handling has been expanded, as follows: 

1. CHECKSUMS and ADDRESSCHECKs are verified when dumping data base files (structures in which 
CHECKSUM and/or ADDRESSCHECK are set). 

2. I/O errors (both hardware and CHECKSUM/ADDRESCHECK) are retried and diagnostic information 
is di spl ayed . 

UTILITY now opens the data base for on-line dumps. This is done to determine end of files for 
CHECKSUM/ ADDRESSCHECK . 

Procedure RETRYIO has been implemented to handle I/O errors and UTILITY detected errors 
(ADDRESSCHECK and CHECKSUM). RETRYIO wi 1 1 display appropriate information regarding the error, 
retry the I/O if called for, display the results of any retries, and, if the retries fail, DS 
that one WORKER. 

Upon entering RETRYIO, two messages are displayed. The first specifies whether the I/O was a 
read or a write, for what structure the I/O was intended, and the file name; e.g., 

DISPLAY: ***READ ERROR ON STR #2, FILE: (DMSI I )DB/D/DATA ON DMS. 

DISPLAY:* "WRITE ERROR ON STR #3, FILE: (DMSI I )DB/D/S ON DMS. 

The second message gives more detailed information about the I/O as follows: 

RSLT - the I/O result descriptor followed by an explanation 
of the error - <buf f er > . IORESULT 
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FAMILYNAME - the family where the file in question resides - 
<f id>.FAMILYNAME 

FAMILYINDEX - the family index of the unit the I/O was 
attempted to - < f i d> ( < row> ) .ROWADDRESS . [ 29 : 8 ] 

ADDRESS - the hardware address of the block 

ROW - the row of the file the I/O was attempted on - <block> 
DIV <fid> .AREAS IZE 

BLOCK - the relative segment number of the first segment of 
the block of the file the I/O was attempted on - <buffer> 
. IORECORDNUM 

Examp 1 es : 

DISPLAY: ***RSLT=CHECKSUM FAILED, FAM I LYNAME==DMS , FAMILYINDEX=2 , 
ADDRESS=108355, ROW=3, BLOCK=42 . 

DISPLAY: • * *RSLT=400002860009 : UNIT NOT READY, FAMILYNAME=DMS , 
FAMILYINDEX=1 , ADDRESS=29 1 7 , ROW=l, BLOCK=l . 

NOTE: Since ADDRESSCHECK and CHECKSUM errors are UTILITY detected after good 
reads, no result descriptor will be displayed. 

Following these displays, the I/O will automatically be retried 1 time. If this retry fails, 
RETRYIO will ask the operator whether the I/O should be retried again or not. If told to 
retry, the I/O will be retried up to MAXRETRIES times, and, if still not successful, RETRYIO 
will repeat its DISPLAY and ACCEPT loop. If the operator responds that retries are not to be 
attempted, that one WORKER will be DSed, but UTILITY may be restarted to recover the work that 
WORKER didn't finish. 

DISPLAY: **»WRITE FOR STR #3 ON DMS HAS BEEN RETRIED 1 TIMES 
WITHOUT SUCCESS. 

ACCEPT :R TO RETRY WRITE FOR STR #3 ON DMS, OR QUIT TO ABORT 
THIS WORKER. 

NOTE: In response to the ACCEPT , anything beginning with the letter "R" will 
be construed to mean RETRY, and anything beginning with the letters "QUIT" to 
mean QUIT. 

DISPLAY: ***WRITE FOR STR #3 ON DMS WAS RETRKED 14 TIMES BEFORE 
SUCCEEDING. 

NOTE: All successful writes will be re-read and compared against the original 
for correctness before the write is considered good. 

Some examples of an entire dialog are: 

1. A CHECKSUM error is detected which is corrected after 1 retry 

DISPLAY: »**READ ERROR ON STR #19, FILE: (DMSI I )DB/D/E/DATA ON DMS. 
DISPLAY: •**RSLT=CHECKSUM FAILED, FAM I LYNAME=DMS , FAM I LY I NDEX= 3 , 

ADDRESS=67I 124, ROW=26, BLOCK=263. 
DISPLAY: ***READ FOR STR #19 ON DMS WAS RETRIED I TIMES BEFORE 

SUCCEEDING. 

2. A transient write error occurs which is corrected on the first retry 

DISPLAY: ***WRITE ERROR ON STR #63, FILE: (DMSI I )DB/D/ISSET ON DMS. 
DISPLAY: •••RSLT=400010B20501 : WRITE LOCK OUT, FAM I LYNAME=DMS , 

FAMILYINDEX=4, ADDRESS=495092 , ROW=4 , BLOCK=4015. 
DISPLAY: *»»WRITE FOR STR #63 ON DMS WAS RETRIED 1 TIMES BEFORE 

SUCCEEDING. 

3. A write error occurs because of a problem which can easily be corrected (reload pack 
firmware or move a pack to a new drive) 

DISPLAY: ***WRITE ERROR ON STR #1, FILE: (DMSI I )DB/DATA ON DMS. 
DISPLAY: ***RSLT=40000784080 1 : MPX OR CONTROLLER ERROR, FAMILYNAME= 

DMS, FAMILYINDEX=1 , ADDRESS=493688 , ROW=0, BLOCK=0 . 
DISPLAY: ** 'WRITE FOR STR #1 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT :R TO RETRY WRITE FOR STR #1 ON DMS, OR QUIT TO ABORT 

THIS WORKER. 

... operator diagnoses and corrects the problem ... 

OPERATOR ENTERED: AX:R. 

DISPLAY: *»*WRITE FOR STR #1 ON DMS WAS RETRIED 2 TIMES BEFORE 
SUCCEEDING. 
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4. A write error occurs because of a problem which cannot be easily diagnosed or corrected 

DISPLAY:** 'WRITE ERROR ON STR #19, FILE : (DMSI I )DB/D/E/DATA ON DMS . 
DISPLAY: ***RSLT=800F1 7824 101 : SECTOR FORMAT ERROR, FAMILYNAME=DMS , 

FAMILYINDEX=3, ADDRESS=688267 , ROW=29, BLOCK=304. 
DISPLAY: ♦* "WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 1 TIMES 

WITHOUT SUCCESS. 
ACCEPT :R TO RETRY WRITE FOR STR # 10 ON DMS, OR QUIT TO ABORT 

THIS WORKER. 

... even if the problem cannot be diagnosed and ... 

... fixed immediately, it is generally a good ... 

... idea to retry a couple of times rather than ... 

... to DS the worker ... 

OPERATOR ENTERED: AX:R. 

DISPLAY:** 'WRITE FOR STR #19 ON DMS HAS BEEN RETRIED 4 TIMES 

WITHOUT SUCCESS. 
ACCEPT :R TO RETRY WRITE FOR STR #19 ON DMS, OR L TO LOCK ROW #29 

AND PROCEED. 
OPERATOR ENTERED: AX: QUIT. 

NOTE: The WORKER handling this I/O will be DSed, but the rest of the active 
workers will continue. If the problem can be corrected, UTILITY may be 
restarted to finish this WORKERs work. 

D2808 UTIL - ELIMINATE "I I. 8" RECONSTRUCT SYNTAX 

The RECONSTRUCT statement has been eliminated as has been promised now for two prior system 
releases. RECONSTRUCT now results in a syntax error. The function of the RECONSTRUCT 
statement has been included in the RECOVER statement. The complete syntax for UTILITY is 
summarized in III.l UTILITY note D2835. 

D2835 UTIL - "UTILITY" FACILITY 

The following represents an updated version of the original documentation on UTILITY which 
appeared in the II. 8 D-Notes. All documentation changes which have occurred since II. 8, 
including III.l changes, have been included. 

UTILITY Statements 



-<cancel statement) 

-<copy statement) 

-<dbd i rectory statement) 

-<dump statement) 

-<initialize statement) 

-<list/write statement) 

-<recover statement) 

-<t apedi rec tory statement) 



CANCEL Clears the offline dump flag in the control file 

following an unsuccessful offline dump. 

COPY Copies data base files from tape to disk. 

DUMP Copies data base files from disk to tape. 

DBDIRECTORY Prints the current status of rows in data base 
files. 

INITIALIZE Initializes data base data files. 

LIST/WRITE Prints the contents of data base files. 

RECOVER Initiates the non-automatic forms of recovery 
for audited data bases. 

TAPEDIRECTORY Prints information about rows written to tape 
by UTILITY DUMP. 
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Common Syntactic Items 

< f ami 1 yname> 

--< ident i f i er> — | 



<f i 1 e name> 



l< / 

I 
— <hyphenated id>- 






<hyphenated id> 

— a sequence of 1 to 17 letters, digits, and hyphens — | 

The first character must be a letter; the last character must not be a hyphen. 
<identifier> 

— a sequence of 1 to 17 letters and digits — | 

The first character must be a letter. 
< i nt eger> 

— a sequence of decimal digits with no embedded blanks — | 

<par t i t ion name> 

— 1 to 17 letters and digits — | 

<range> 



l<- 



< integer> 



<integer> 



If the second integer is present, it must be larger than the first integer. 
<s t r ing6> 

— 1 to 6 letters and digits enclosed in quotes — | 

<structure name> 

— structure name as it appears in DASDL source — | 
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<tape id> 

— <tape name>- 



-/1\- VERSION = <integer> 

-/1\- CYCLE = <integer> 

-/1\- SERIALNO = <integer>- 

I 

| — < s t ring6>- 
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) - 



<tape name> 

— <ident i f i er> — | 

CANCEL Statement 

— CANCEL —I 



In order to perform an OFFLINE dump, the data base must be in exclusive use by UTILITY. In 
order to guarantee this, the data base control file is marked by UTILITY. If for any reason 
UTILITY is DSed before completion of the dump, the control file will have to be unmarked before 
any processing against the data base other than a restart of the OFFLINE dump can proceeed. 
The CANCEL statement may be used to unmark the control file. 

COPY Statement 



I . I 

|-<copy options>-| 



|< ; | 

COPY <copy list> FROM <copy source> | 



<copy opt ions> 

— OPTIONS ( WORKERS = <integer> ) — | 



<copy 1 i s t> 

| < 

1 
<file name> 



' i ! ! ! 

- ( <copy list> ) -| |-<copy selector>-| |-<copy dest>-| 



<copy se 1 ec t or > 
< 



AND 

|<- & 1 

( __ FAMILYINDEX = <range> 

ROW = <range> 

PACKNAME = <familyname> 



) — i 
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< as opt i on> 

— AS < f i 1 e name> 



|- ON <fami lyname> -j 



<ont o opt ion> 

— ONTO <f i le name> 



ON <fami 1 yname> 



<to option> 

— TO ( FAMILYINDEX 



<integer> ) 

I I 

- RETAIN —I 



<copy source> 
<tape id> | 



The COPY statement is primarily used to copy an OFFLINE dump of the entire data base from tape 
to disk. If used for any other reason, the CX)PY statement will change the version date-time 
stamps of the files it copies to pack so that they no longer match the control file. 

It is normally unsafe to override the version date-time stamps. The most; common reason for 
version date-time stamp mismatch is that the user forgot to specify OFFLINE on the DUMP or did 
not reload all of the rows of a structure. 

Ex amp 1 e 



COPY = FROM T 

This copies all data base files from tape T to disk. 
DBDIRECTORY Statement 



DBDIRE'CTORY — <dbdir list > — | 



<dbd i r 1 i s t > 

| < 

I 
<file name> 

I 

|- ( <dbdir list> ) 



I I 

|-<rowselector>-| 
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<rowse 1 ec tor> 

I < 



AND 

|<- & 1 

FAMILYINDEX = <range> 

ROW = <range> 

PACKNAME = <familyname> - — 

I < t 

ROWLOCK = /1\- LOCKEDROW 

-/1\- READERROR 



) —I 



The DBD1RECTORY statement lists the status of rows of data base files. 
Ex amp 1 e 



DBD I RECTORY = ( ROWLOCK=READERROR , LOCKEDROW ) 

This command reports on all rows which are write locked out or have read errors. 
recovery may be used to restore damaged rows. 

DUMP Statement 



Row 



— <dump options> DUMP 

I I 

|- OFFLINE -| 

!' ; 1 

> <dump list> TO <dump tape;. 



<dump opt ions> 



OPTIONS ( WORKERS = <integer> ) 



<dump 1 i s t > 

| < 

I 
<file name> 

I 

| - ( <dump 1 i s t > ) 



j -<rowse 1 ec tor>- 



<rowse 1 ec tor> 

I < 



AND 

|<- & 1 

- FAMILYINDEX = <range> — 

- ROW = <range> 

- PACKNAME = <fami lyname> 



) _. 
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<dump tape> 
— <tape name>- 



- ( 



!<- 



I 



i -<ser i a lno spec>- 



-/1\- TAPES = <integer> ) 



< s e r i a 1 n o spec> 



- - SERIALNO 



( <integer> ) 



< int eger> 
<s t r ing6> 



The DUMP statement is used to copy data base files from disk to tape. Two types of dumps are 
available: offline dumps and online dumps. 

When OFFLINE is specified, the system ensures that no programs which update the data base are 
active during the dump. Offline dumps are useful for backing-up and recovering both audited 
and unaudited data bases. For unaudited data bases, all dumps are offline dumps and OFFLINE 
need not be specified. For audited data bases, OFFLINE must be specified if an offline dump is 
desired. 

Online dumps may be performed while the data base is being updated. Online dumps are only 
permitted for audited data bases because such dumps must be used in conjunction with the audit. 
For audited data bases, all dumps are online dumps unless OFFLINE is specified. 

Only OFFLINE dumps guarantee that the data base will not be updated during the dump. 
LIBRARY /MAINTENANCE dumps taken while the data base is being updated should not be reloaded or 
data corruption may occur. 

The <dump list> designates which rows are to be dumped. The slash equal sign form may be used 
to dump a family of files. The equal sign alone designates all files in the data base. 

If the <rowse 1 ector> is present, the rows are restricted to those designated by the 
<rowse 1 ec tor> . If a <dump list> is enclosed by parentheses and the <rowse 1 ector> is present, 
all files in that <dump list> are restricted by that <rowse 1 ec t or > . Files in a <dump list> 
which already have a < rowse 1 ec tor> have the outer selection constraints "OR"ed to the inner 
selection constraints. 

<dump tape> identifies the tapes to be used for dumping. 

When "TAPES = N" is specified, the data to be dumped is divided inti 




WORKERS controls how many tape will be dumped in parallel. When "WORKERS = M" , UTILITY dumps 
to M tapes concurently. If workers is not specified, TAPES controls the numbers of workers. 

SERIALNO may be used to designate tape serial numbers. "SERIALNO ( < i n t ege r >) " allows the 
serial numbers to be specified for a single cycle of tapes. The <integer> designates the tape 
cycle number. This form is only vaild when the number of cycles is greater than one. 

Ex amp 1 es 



(a) DUMP = TO DBONE020379 

Dumps all rows of the data base to tape "DBONE020379 " . 

(b) DUMP = (FAMILYINDEX=3) TO TAPEX 

Dumps all rows on family index 3 to tape "TAPEX". 

(c) DUMP = TO TAPEX(TAPES=3) 

Divides the data base into three equal parts and dumps one third of it to each tape. Three 
tapes will be written in parallel. The first tape has CYCLE- 1 , VERSION=l; the second tape 
has CYCLE=2, VERSION=l; and the third tape has CYCLE=3, VERSION=l. If the first tape 
overflows, it overflows to a tape with CYCLE=1, VERSION=2, etc. 



<d) 



DUMP = TO TAPEX(SERIALNO=23 1 ,232,233) 
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Dumps the entire data base to tapes with the specified serial numbers. 

(e) DUMP = TO TAPEX(TAPES=2, SERIALNO( 1 )=240 , 250 , 

SERIALNO(2)=2 51 ,252) 

Divides the data base into two equal parts and dumps one half of it to each tape. Two 
tapes will be written in parallel. The first tape has CYCLE= 1 , VERSION=l and SERIALNO=240 . 
The second tape has CYCLE=2, VERSION=l and SERIALNO=25 1 . If the first tape overflows, it 
is labeled CYCLE=1, VERSION=2 and SERIALNO=250 . If the second tape overflows, it is 
labeled CYCLE=2, VERSION=2 and SERIALNO=252 . 

(f) DUMP DB/A TO TAPE1 ; DB/B TO TAPE 2 ; DB/C TO TAPE3 

This example explicitly partitions the files rather than letting UTILITY do it implicitly. 

(g) OPTIONS (WORKERS= 3) DUMP 

= (FAMILYINDEX=1) TO T1(TAPES=3); 
= (FAMILYINDEX=2) TO T2(TAPES=3); 
= (FAMILYINDEX=3) TO T3(TAPES=3) 

UTILITY will dump each family index to a separate set of tapes. The rows on each pack will 
be divided up by UTILITY into three parts, which will be dumped to different cycles of the 
same tape name. Nine tapes could be dumped simultaneously, but WORKERS=3 limits UTILITY to 
three tapes at a time. 

(h) OPTIONS(WORKERS=3) DUMP 

= (FAMILYINDEX=1) TO T1(TAPES=3, 

SERIALNO(1)=100, 101, 

SERIALNO(2)=200,201, 

SERIALNO(3)=300,301); 
= (FAMILYINDEX=2) TO T2(TAPES=3, 

SERIALNO(1)=110, 111, 

SERIALNO(2)=210,211, 

SERIALNO(3)=310,31 1); 
= (FAMILYINDEX=3) TO T3(TAPES=3, 

SERIALNO(1)=120, 121, 

SERIALNO( 2) =220, 221, 

SERIALNO(3)-320,321) 

This example is identical to the previous one except that the tapes have been assigned 
serial numbers. SERIALNO(l) means the first cycle of that tape name. The first reel of 
cycle 1 of Tl will be assigned serial number 100. If it overflows, the second reel (version 
2) of cycle 1 will be assigned number 101, etc. 

(i) DUMP = ( FAMILY I NDEX=1 ,4 AND PACKNAME=DBDATA ) TO TAPEX 

All rows that reside on family indexes 1 or 4 of family DBDATA will be dumped to TAPEX. 

(j) DUMP (DB/A/=, DB/B/=, DB/RDS/= ( PACKNAME=DBDATA ) ) 
(PACKNAME=DBDATAAFAMILYINDEX=1) TO TAPEX 

All rows in files DB/A/= and DB/B/- which are on FAMILYINDEX 1 of pack DBDATA will be 
dumped. The rows of DB/RDS/= will be dumped if they satisfy either the inner condition 
PACKNAME=DBDATA or the outer condition that PACKNAME is DBDATA and FAMILYINDEX=1 . Since 
the first condition is less restrictive, all the rows of DB/RDS/= on DBDATA will meet it 
and be dumped. 

INITIALIZE Statement 



INITIALIZE 



l< . I 

I I 
<structure name> — 

INITIALIZE creates empty data base data files. Following the initialize, the structure's 
file-state field in the control file is assigned the value CFAUDINZ for audited data bases or 
CFFILENORMAL for unaudited data bases. 

UTILITY ensures that there are no dangling pointers (sets, root words, or links) which refer to 
initialized structures. 

When a disjoint data set is initialized, all sets which refer to it and all embedded structures 
within it are automatically initialized. If a disjoint structure for which a population item 
exists in global data is initialized, all such structures must be initialized along with the 
global data record. If a structure containing a counted link is initialized, the structure 
referenced by the link must also be initialized. 
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Disjoint automatic sets can only be initialized when the data set they reference is also 
initialized. Disjoint manual subsets may be initialized without initializing the data sets 
they reference. 

While UTILITY is initializing structures, it locks the control file to ensure that it has 
exclusive use of the data base. Initialization can be executed in several steps. Different 
structures may be initialized in each step. Initialization may be repeated if it is 
interrupted by a halt/load or other failure. 

LIST/WRITE Statement 



LIST - 
WRITE 



l<- 



-<structure spec>- 



i 



| -<forma t >- 



-<block range>- 



<structuire spec> 

<structure spec> 

|- / <partition name> - 

(database name> /CONTROL 

ALL 



< forma t > 

__ ( HEX 

RECORD — 
CONTROL - 



-- ) 



<block range> 

— <hex block address> 



j- - <hex block address: 



LIST and WRITE display the contents of data base files. LIST directs output to the terminal; 
WRITE sends output to the printer. CONTROL can be used to list control information only. 

RECOVER Statement 



RECOVER ( <recover rows> ) > 

-<recover options>-| J-<recover whole db>-| 



j-<recover filelist>- 



-<sourcelist: 
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< recove r op t i ons> 

i 

-- OPTIONS ( /1\- NOZIP 

-/1\- FLUSHDB = <integer> 

-/1\- WORKERS = <integer> 



- MIN 



) "I 
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(recover rows> 



— ROWS USING BACKUP 

I I I 

j- IN PLACE -J |- USING AUDIT ONLY , <limit> 



< 1 imi t > 
— LIMIT = 



- <integer> CONTROL 

I- SYNC 1 

- THRU AUDIT <integer> 

-<date-t ime> 

<integer> : <min> 



POINTS | 



I 



<integer> AUDIT FILES 



(recover whole db> 



— ROLLBACK THRU AUDIT <integer> — 

I ! I 

j- REBUILD — j |- TO <boj/eoj point> 

I 

| -<da t e- t ime point>- 



<boj/eoj point> 

BOJ OF <job no> / <task no> 

I I 
I- EOJ -j 



- ON <date-time> 



<dat e-t ime poin t > 

GEQ <date-time> — I 

I I 
I- LEQ -| 



<da t e-t ime> 

— <month> <day> AT <hrs> : <min> 

I I 

| - , <year> - | 



<fsec> - 



<job no> 

Mix number for job. Unsigned integer of not more than 4 digits. 

< t ask no> 

Mix number for task. Unsigned integer of not more than 4 digit! 

<mon th> 
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JAN, J ANUARY , FEB , FEBRUARY , etc. 



<day> 

Day of month. Unsigned integer of not more than 2 digits. 

<year> 

Year. Unsigned integer of not more than 4 digits. 

<hrs> 

Hours. Unsigned integer of not more than 2 digits. 

<min> 

Minutes. Unsigned integer of not more than 2 digits. 

<sec> 

Seconds. Unsigned integer of not more than 2 digits. 

< f sec> 

Fractional seconds. Unsigned integer of not more than 3 digits. 

<recove r f i 1 e 1 i s t > 

< file name> i 

j- (<recover filelist>) -| | -<rowsel ector>- | |-<recover dest>- 



<rowse 1 ec t or > 
< 



— ( 



AND 

|<_ & —I 

- FAMILYINDEX = <range> — 

- PACKNAME = <fami lyname> 

- ROW = <range> 



l< , 

ROWLOCK = /1\- LOCKEDROW — 

-/1\- READERROR - 



) —I 



<recover dest> 
-<as opt ion>- 



|-<to option>- 



-<onto option>- 
-<to option> 



<as opt i on> 

— AS <f i 1 e name> 



ON < f ami lyname> -| 



<on to opt; l on> 

— ONTO < f i 1 e name> 



ON < f ami 1 yname> -| 



< t o op t i on> 

~ TO ( FAMILYINDEX = <integer> ) — | 

I- RETAIN — 
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FROM 



-< tape id> | 



Res t r i c t i ons : 



Some forms of the RECOVER statement 
others do not. The following table 

Recovery Statement 



requi re both a 
summar ises these 

Fi lei i st 



RECOVER (ROWS USING BACKUP) 

RECOVER (ROWS IN PLACE USING BACKUP) 

RECOVER(ROWS USING AUDIT ONLY ) 

RECOVER ( ROLLBACK ) 

RECOVER (REBUILD ) 



(recover filelist> and a <source I i s t > ; 
requi rement s . 

Sourcel i s t 



Requi red * 
Requ i red ** 
Not Permitted 
Not Permitted 
Not Required *** 



Requi red 
Requi red 
Not Permi t ted 
Not Permitted 
Requi red 



* If "ONTO <file name>" or "AS <file name>" is used, the <file name> must not be the 
same as any data base file name in this or any other data base. 

** <recover dest> is not permitted. 

•** "ONTO <file name>" and "AS <file name>" are not permitted. 

The RECOVER statement is used to initiate all manual forms of recovery for audited data bases 
(i.e., all forms except halt/load and abort recovery, which are initiated automatically). 
Manual forms of recovery fall into two classes: those that recover damaged rows, and those that 
recover the entire data base. 



"RECOVER(ROWS ..." is used to recover rows of data base files. The data base 
rinrini mil r.r-nvpru UTILITY starts row recovery; Reconstruct comple 

ine called Datarecovery which reads Uc kuuil iiaii aim 
is zipped by UTILITY unless NOZIP is specified. NOZIP 

ntrolled by a single WFL job. 



J,-,.,, ,„„.-, „. „«,„ *,*.*■. ...„„. ..... „„.» „„„. may be in use 

during row recovery. UTILITY starts row recovery; Reconstruct completes 

* ~ .. ■• rt .. * i n a r* n 1 1 *. A T\n t n r a *. s\ »/ £k r «, n»h 1/.I1 ,* a a A c thp '. 



during row recovery. uiilih suns i uw ictuvcij; «vcuuna i i u^ i tumpicica the process 
Reconstruct processes an external coroutine called Datarecov_ery which reads the audit \ ral } 
>--- ••-- audit images. Reconstruct • * •»'— = •* •»•> in " 



and 



cor 



applies the „„„.. -~. 

permits the entire row recovery to be 

" RECOVER (REBU I LD. .. " moves the entire data base forward in time. The data base must not be in 
use during rebuild. UTILITY begins the rebuild by copying the entire data base from one or 
more sets of dump tapes. Then the application of audit trail images is performed by 
RECOVERY/<data base name> . RECOVERY is ZIPped automatically by UTILITY unless NOZIP is 
specified. If rebuild is not successful, the last resort is to reload a backup copy of the 
data base and rerun all updates. 

" RECOVER ( ROLLBACK. .. " moves the entire data base backwards in time. Rollback must have 

exclusive use of the data base. Rollback does not copy in a backup dump of the data base 

files — the current files are used. During rollback, RECOVERY reads the audit trail and applies 

the audit images. RECOVERY is automatically initiated unless the NOZIP option is used. 

Unlike rebuild, rollback cannot be used to recover from data corruption. It can potentially 
save time over rebuild, however, to correct logical errors such as running an update program 
with incorrect input. 

The FLUSHDB option controls how often a restart point is taken by Datarecovery or RECOVERY. 
The default is 20 minutes. Thus, by default at most 20 minutes of processing can be lost due 
to a system crash while Datarecovery or RECOVERY is running. 

The WORKERS option controls how many dump tapes are processed in parallel for those forms of 
recovery which require the use of such tapes. 

Exampl e 



OPTIONS (NOZIP) RECOVER (ROWS USING BACKUP) 

= (ROWLOCK = LOCKEDROW, READERROR) 
FROM Tl ,T2,T3,T4,T5,T6,T7,T8 

All rows which have write errors ( ROWLOCK = LOCKEDROW) or read errors ( ROWLOCK=READERROR ) 
will be recovered using the data in the dumps plus the changes recorded in the audit trail 
since the dumps. Since the WORKERS=< i n t ege r> construct is not used, UTILITY will process 
each dump serially, and process the cycles of each dump in parallel. The number of cycles 
is specified when the dump is taken. 
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Exampl e 



OPTIONS (NOZIP,WORKERS= 3) RECOVER (ROWS USING BACKUP) 
= (ROWLOCK = LOCKEDROW, READERROR) 
FROM Tl ) T2,T3 > T4,T5,T6,T7,T8 

This example is the same as the previous one except for the WORKERS option which causes 
three reels to be processed at a time. If, for example, a worker finishes its part of dump 
Tl , it will go on to T2 , even if the other two workers have not finished their parts of Tl . 

Ex amp 1 e 



RECOVER (ROWS USING BACKUP) 

= (ROWLOCK=READERROR, LOCKEDROW AND 

PACKNAME=DBDATA AND 

FAMILYINDEX=l-3,5) 
FROM TAPEX 

If there are S packs in the DBDATA family numbered 1-5, none of the rows on familyindex 4 
will be selected for row recovery. All of the rows of familyindex 1,2,3 or 5 that either 
have a READERROR or are LOCKED OUT will be row-recovered. 

Ex amp 1 e 

RECOVER(ROWS USING AUDIT ONLY, LIMIT = * - 1:30) 

This form of row recovery is often referred to as "quickfix". The three previous examples 
required the use of backup dump tapes. In those examples, UTILITY began by copying old 
versions of the rows to be repaired from backup dumps to temporary files. Datarecovery 
then applied the audit images to the rows in the temporary files. Finally the recovered 
rows were exchanged from the temporary files to the data base files. The advantage of that 
form of row recovery is that, barring irrecoverable I/O errors, it always works. The 
disadvantage is the time consumed locating the proper dump tapes, loading the rows, and 
processing all the audit images from the tine of the dump to the end of the audit trail. 

Quickfix reduces the time required for row recovery. It may not, however, always be able 
to repair all locked out rows. Quickfix starts by scanning the audit in reverse starting 
from the end of the audit. The user specifies a limit to this reverse scan using the LIMIT 
syntax. The example limits the reverse scan to audit records created at most one and one 
half hours before the time in the last audit record. At the end of the reverse scan, 
DATARECOVERY determines if any rows can be repaired. If so, it reverses directions in the 
audit trail and performs a normal row recovery. The backward scan will stop short of the 
<limit> if the recoverabi 1 i ty status of all locked rows is determined prior to reaching the 
< 1 i m i t > . 

For all forms of row recovery, if "IN PLACE" is used, the audit images are applied to the 
data base files directly. This requires that they be locked out by UTILITY if they are not 
already locked out. If "IN PLACE" is not used, the audit images are applied to temporary 
files, and the appropriate rows are EXCHANGEd into the data base files upon completion of 
image application. 

If "USING BACKUP" is specified and "IN PLACE" is not specified, any recovered rows which 
initially have a ROWLOCK value of (normal) will be changed to a value of 2 (READERROR) by 
UTILITY. This is done so that in the event of a halt/load during the EXCHANGE phase, 
Datarecovery can tell which rows have been exchanged and which have not. The ROWLOCK value 
of READERROR will not inhibit normal processing, dumping, or recovering of those rows in 
any way. 

Quickfix IN PLACE is not as powerful as normal quickfix because it cannot recover rows 
damaged by irrecoverable errors in the magnetic recording media. 

Ex amp 1 e 



RECOVER (REBUILD THRU AUDIT 4567) = FROM Tl 
The entire data base is loaded from dump Tl and brought forward to the end of audit 4567. 
Ex amp 1 e 



RECOVER (ROLLBACK TO BO J OF 1234/1235) 

This rolls the current data base files back to the beginning of task 1234/1235. 

Both rollback and rebuild perform a halt/load recovery before they terminate. This 
produces a discontinuity in the audit and it may cause some of the original audit to be 
discarded. Thus, care must be taken not to confuse the audit which has been discarded with 
the new audit which will be created. 
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Consider a data 
file 5888 then 
begin at the end of audit 



base for which 
any o Id cop i e s 



the last audit is 6000. If rollback terminates in audit 
of audit files 5888 through 6000 are invalid. Auditing will 
file 5888 when normal updating resumes. 



TAPEDIRECTORY Statement 



TAPED 1 RECTORY 



< tape id> 



The TAPEDIRECTORY statement lists the tape directory written by UTILITY at the beginning of 
each dump tape. Directories of successive reels are cumulative; thus, a directory of the last 
reel provides information about all rows dumped by UTILITY. This information is useful during 
recovery. From it, UTILITY can be told exactly which tapes contain the rows of interest; this 
eliminates extra search time. 

Exampl e 



TAPEDIRECTORY DBNAMEO10279(CYCLE=2 , VERSION=3) 



Operator Interface to UTILITY 

The number of workers can be changed while UTILITY is running by entering an accept message. 
The syntax for the message is: 

<mixno> AX WORKERS = <integer> 

This can be entered even if the WORKERS construct was not used in the original input. The mix 
number must be that of the main UTILITY stack. 

Restart ing UTILITY 



UTILITY may be restarted if it is DSed while processing a DUMP or RECOVER request, or reading 
or writing tape. It may be restarted whether it was DSed internally due to a fatal I/O errors 
or was DSed by the operator. UTILITY restarts with the tape being processed when it 
completed tapes are not reprocessed. Since UTILITY does not rescan its input during 
the input string may be empty. The job number of the UTILITY run to be restarted is 
a negative value via the taskvalue attribute. 

Ex amp 1 e 



was DSed; 
a restart, 
passed as 



RUN UTILITY/TEST (" "); VALUE = -1025 

UTILITY restarts using the HLDUMPINFO files created by the original run of UTILITY. The 
HLDUMPINFO file is titled <data base name>/HLDUMPINFO/<job number>. In addition each tape 
or dump worker that was active has its own HLDUMPINFO file titled <data base 
name>/HLDUMPINFO/< job numbe r >/<worke r number>. All of these files must be present or 
UTILITY will not restart. 

To avoid conflicting restart file titles, only one copy of UTILITY should be run in a 
single WFL j ob. 

Continuing UTILITY 



UTILITY runs which "RECOVER(ROWS . . . " and " RECOVER ( REBU I LD ... " may be continued when needed 
files are not loaded from tape due to I/O errors or errors in the UTILITY input. A special 
option allows the missing files and rows to be added before RECOVERY is initiated. 

A taskvalue of 8 identifies a continued UTILITY run. The RECOVER request must not be changed 
for the continued run. Only the filelist or tapelist may be changed to add the necessary 
files. UTILITY will use the RECONSTRUCT INFO or REBUILDINFO file created by the previous UTILITY 
run and simply add to it. This file must be present. 

Examp 1 e 

Assume the data base was dumped to four tapes (Tl thru T4). Then a rebuild was attempted 
as f o 1 1 ows : 

RUN UTILITY/TEST (" RECOVER ( REBU I LD THRU AUDIT 5) FROM T1.T2.T4 ") 
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Since a REBUILD must load the entire data base, UTILITY would notice that the files from T3 
were missing and would prevent the rebuild. Using the continue request, the missing tape 
could be loaded without loading the other tapes. Following this RECOVERY would be 
initiated normally. 

RUN UTILITY/TEST ( "RECOVER( REBUILD THRU AUDIT 5) FROM T3 "); 

VALUE=8 

I/O Errors During Dump 

UTILITY handles both hard I/O errors and timeouts while writing to tape. An appropriate error 
message is displayed and the tape on which the error occurred is labeled "BADTAPE" and closed. 
The following message is then displayed: 

AX "OK" FOR RETRY OR NEWTAPE 

The operator may enter "AX:OK" or DS the job. "OK" causes UTILITY to re-dump the tape which 
failed. When a failure occurs, the operator can switch tapes, clean the tape in error, change 
tape drives, etc. Other UTILITY workers can proceed with their dumping while this worker is 
wa i t i ng . 

I/O errors that occur while UTILITY is reading from disk are fatal. UTILITY cannot 
successfully complete a dump unless all the rows that are specified in the dumplist are dumped. 
The row in error must be recovered before it can be dumped. UTILITY will DS itself in this 
case, leaving its restart files present so that it can restart the dump where it left off. 

I/O Errors Processing RECOVER 

If UTILITY encounters hard I/O errors or timeouts while reading tape, an error message is 
printed and the following message is displayed: 

AX 'RETRY' OR 'SKIP ROW OR 'QUIT TAPE' 

If "RETRY" is entered, UTILITY starts over at the beginning of the tape, and attempt to read it 
again. "SKIP ROW" causes the row on the tape that got the I/O error to be passed over and that 
row is omitted from the recovery operation. If UTILITY skips a row in this manner, RECOVERY is 
not automatically ZIPped. This allows the row to be reloaded via a UTILITY continue request 
before RECOVERY is initiated. 

"QUIT TAPE" causes the rest of the rows on this and any subsequent reels to be skipped. If 
there are other input tapes, UTILITY wi 1 1 load these tapes. As with "SKIP", RECOVERY is not 
ZIPped. This allows the missing rows to be loaded from other tapes. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - UTILITY 



PI 600 UTIL - HALT/LOAD INFORMATION 

1. If a Halt/Load occurs when a worker, other than the first, is putting its information into 
the RECON file, the RECON file is removed and information from all previous workers is lost. 

2. If a Halt/Load occurs after a worker is done with the RECON file but before a HLDUMPINFO 
file is created for the worker, after the Halt/Load the worker will again try to put its 
information into the RECON file; however, since all its information is already in the 
RECONSTRUCT file, it will think that it has nothing to do. 

Both these problems have been corrected. 

PI 757 UTIL - PRINT PATCH LEVEL IN HEADING 

UTILITY now prints its patch level in the heading on listings rather than its internal version 
I eve 1 . 

P1779 UTIL - "INVALID INDEX" PRINTING ORDERED DATA SET 

UTILITY terminated with an INVALID INDEX while printing block zero of an ORDERED data set 
containing subblocks. This failure only occurred when the data set record size was one word. 
This has been corrected. 

PI 780 UTIL - ALLOW RECONSTRUCTION OF NEW ROWS SINCE DUMP 

If all rows to be reconstructed in a run of UTILITY were new since the dump, UTILITY would fail 
to create the temporary reconstruct files and datarecovery would end up waiting on a "NO FILE". 
This has been corrected. 

PI 809 UTIL - INCORRECT TIME PRINTED 

When printing the stop time for a rebuild or rollback, RECOVERY and UTILITY would print the 
seconds incorrectly. RECOVERY printed the wrong seconds; UTILITY printed the wrong fractional 
seconds. The actual time value used was correct, however. RECOVERY now prints the correct 
time truncated to the nearest second; UTILITY now prints the correct time truncated to the 
nearest millisecond. 

P1810 UTIL - REMOVE "ROWLOCKOUTAUDIT" AT START OF "REBUILD" 

UTILITY now removes the ROWLOCKOUTAUDIT file at the start of REBUILD. This file is normally 
removed at the end of a successful recovery run, if it is ever present at all. If recovery 
fails, however, it may be left on disk. Its presence could cause a rebuild to erroneously lock 
out some rows upon completion because of the prior unsuccessful recovery run. Removing it at 
the start of a rebuild prevents this problem. 

PI 868 UTIL - LOCATE "H/L" FILE FOR UNAUDITED DATA BASE 

UTILITY placed HLDUMPINFO files for an unaudited data base on a family pack. When looking for 
HLDUMPINFO files for an unaudited data base, the code did not set up the pack name to the 
family of the user and so looked for files on disk. As a result, UTILITY could not find 
HLDUMPINFO files for the unaudited data base. This has been corrected. 

PI 869 UTIL - "DBDIR" WITH "ROWLOCK" OPTION 

If any row in a structure was DMROWLOCKed or if any row(s) in a structure was specified to be 
printed, structure information was printed. 

However, row information for a structure was printed only if specified by the user, whether or 
not it was DMROWLOCKed. This problem has been corrected. 

PI 871 UTIL - MISSING ENTRY IN "HL" FILE 

UTILITY will issue an error when it cannot find an entry in the HLDUMPINFO file only for a 
dump. It is possible that a UTILITY recover function would search an entire reel of tape and 
do a reelswitch without having found anything to load from the previous reel, and no entry for 
it would have been made in the file. This problem has been corrected. 

PI 884 UTIL - "TDATABEGIN" FIELD NOT INITIALIZED 

If an IOERROR occurs while a data base dump is being checked, bad data may be written in bits 
47:20 of word zero of each tape block. This may cause UTILITY to fail later with an INVALID 
INDEX. This problem has been corrected. 
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PI 92 8 UTIL - TAPE BLOCK COUNT NOT PROPERLY STORED 

When a reel switch occurred under the following conditions, the information in the Halt/Load 
file was not updated accurately, thus causing an INVALID INDEX after a Halt/Load occurs: 

1. The data on the new reel starts at the beginning of a row. 

2. Using any version of the directory for the tapes that shows where the row actually lives. 
This has been corrected. 

PI 929 UTIL - CORRECT FAMILY NOT SET 

If the FAMILY statement is being used, then after a Halt/Load the correct family is not set up 
for the tapeworker hi dump info files. This causes UTILITY to look in the wrong place for the 
Halt/Load file; therefore, it does not use the information from those files. This has been 
corrected. 

PI 930 UTIL - REEL VERSION LOCATION OF ROW 

During a dump, a reelswitch that causes the next version to start at the beginning of a row 
does not update the tape directory properly. The directory value (DKOWREEL) for the row that 
starts at the beginning of the next version is not updated to show that 'I; is being placed on 
the next version. This has been corrected. 

PI 931 UTIL - CYCLE "9" AND ABOVE MAY NOT RESTART 

Information as to which cycles and versions of tapes are required after a Halt/Load is not 
complete starting with Cycle 9. Cycle 9 may restart depending on version. Cycle 10 and above 
will not restart. This has been corrected. 

PI 932 UTIL - "IOERROR" ON TAPE 

If an I/O error occurred before UTILITY had a chance to save the variables needed for 
restarting, software errors could occur. This has been corrected. 

PI 948 UTIL - "CANCEL" OPTION CAUSES ATTRIBUTE ERROR 

The procedure to perform the cancel function was not setting up the title for the control file 
before trying to open it. This has been corrected. 

P1949 UTIL - HALT/LOAD FILE TITLE 

After a Halt/Load, the file title was not properly set up, causing an attribute error. This 
has been corrected. 

P1950 UTIL - "LIST" FORMAT ERROR 

For LIST, if five words of data were printed on one line, the number of characters exceeded the 
number allowed (80). This has been corrected. 

PI 95 1 UTIL - INVALID STRUCTURE NAME 

In a LIST/WRITE function, although <data base name>/CONTROL was a valid option, it was getting 
an INVALID STRUCTURE NAME error. This has been corrected. 

P2015 UTIL - "DUMPTIME" TAKEN AT WRONG TIME 

The DUMPTIME telling RECOVERY wh e r e to start in the audit was taken after the data files were 
opened and the number of rows determined. This created a timing window that has been closed. 

P2016 UTIL - "CONTINUE" REQUEST DOES NOT RECREATE FILES 

When doing a CONTINUE request, UTILITY was recreating the file to be loaded to in some cases 
thus losing data from the previous load. This has been corrected. 

P2017 UTIL - RESETS "DATABEGIN" FOLLOWING RESTART 

TDATABEGIN was not being saved in the Halt/Load file and was not reset to its original value 
following a UTILITY restart. This has been corrected. 

P20 18 UTIL - ERASE RECPNINFO FOR ROWS SKIPPED 

Rather than altering the r econs t rue t i n f o files as soon as a row is skipped on a tape, it is 
done at the end of a reel. Thus, if a restart happens and the rows are loaded successfully on 
the second try, the information about the row is still left in the reconinfo file. 
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P2019 UTIL - CORRECTS "TIMESTAMP" COMPARES 

UTILITY was incorrectly comparing TIMESTAMPS as reals, which would result in an incorrect 
comparison being made when there were bits turned on in the exponent field and the sign of the 
exponent was negative. This situation will occur on NOVEMBER 15, 1978. This has been 
corrected. 

P2104 UTIL - MULTIPROCESSOR PROBLEMS 

The following problems have been corrected: 

1. Locking problems caused UTILITY to try to initiate an already-active task when firing up its 
read/write volumes. 

2. When processing more than one tapeworker, UTILITY may get an INVALID INDEX after a Halt/Load 
when trying to restore its worker information. 

P2137 UTIL - CONTINUATION REQUEST FOR "COPY" 

A continuation request for a COPY did not work correctly and resulted in a NO FILE on 
RECONSTRUCT INFO. Now COPY does not expect to find a pre-existing RECONSTRUCT INFO file when it 
i s cont inued. 

P2138 UTIL - "FILELISTREQUIRED" ON RESTART 

If a Rebuild had to restart and there was a filelist provided in the input, Rebuild could scan 
the wrong thing. This problem has been corrected. 

P2139 UTIL - TIMING PROBLEM IN SCANNER 

Scanning the input could become confusing if both UTILITY and a tapeworker were scanning the 
input at the same time. This has been corrected. 

P2216 UTIL - "TAPEDIRECTORY" COMMAND PROBLEMS 

The following problems have been corrected: 

1. A tape name containing "=" was not giving a syntax error. 

2. The TAPEDIRECTORY command was not printing the report. 
P2390 UTIL - "CFNAME" ARRAY SIZE INCREASED 

The size of the CFNAME array has been increased to contain the entire title including the 
packname . 

P2398 UTIL - INCORRECT SELECTION OF STRUCTURES 

If a data base resides on families PACKX and PACKXY, a UTILITY request with a file selection 
based on PACKNAME= PACKX would cause the request to be performed with families PACKX and PACKXY. 
This problem has been corrected. 

P2415 UTIL - REPORT ON NEW QUICKFIX LIMITS 

UTILITY'S report showing the recovery syntax now correctly displays the new Quickfix limits. 
P2416 UTIL - PRINT NEW CONTROL FILE INFORMATION 

UTILITY now prints the control file information which was added on the III.l release. 
P2417 UTIL - "FLUSHDB" OPTION CORRECTION 

When FLUSHDB is given in the OPTIONS list, UTILITY would incorrectly pass the default value of 
20 minutes to recovery. 

Beginning with system release 3.2, UTILITY will no longer allow FLUSHDB in the (recover 
spec i fi cat ion> . It will only be permitted in the <options list>. 

P2460 UTIL - "END OF FILE" ERRORS ON DUMPS 

UTILITY no longer incurs end-of-file errors. Formerly, this could happen for on-line dumps when 
RECOVERY was required. 

P2461 UTIL - "COPY AS" ERROR 

When a 'COPY AS' is done that includes the control file, UTILITY gets a software error in the 
control file module. This problem has been corrected. 
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P2484 UTIL - "INITIALIZE" OF GLOBAL DATA 



INITIALIZE of global data was erroneously stating that all structures in the data base must be 
initialized along with the global data. This has been corrected. 

P2642 UTIL - FAILURE TO DUMP PARTITIONS 

UTILITY failed to dump partitioned structures for data bases not under u usercode. Partitions 
stored under a usercode were dumped correctly. Attempts to exp»i ci t ly dump par t i t ioned 
structures resulted in the message "NO DATABASE FILES MATCH THIS IDENTIFIER". This problem has 

been corrected. 
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P2507 TFL - "TFL" UPDATE 

The TFL update level will only change when formats and sub forma is are affected by the update. 
Changes to subbases, journals and globals do not increment the update level. 

P2527 TFL - SCANNER PROBLEMS 

Problems in scanning both usercodes and global options have been corrected. 

P25 50 TFL - DEFAULT TEXT 

TFL was improperly copying the usercode and packname text when specified for the default 
journal. Any subsequent journals specified in TFL should pick up the text from the default 
journal unless a usercode or packname was specified. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - TRUTILITY 



P2462 TRUTILITY - MISCELLANEOUS CORRECTIONS 

Miscellaneous problems in the original implementation have been corrected. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - HOSTLIB 



P2418 HOSTLIB - MISCELLANEOUS CORRECTIONS 

Miscellaneous problems have been corrected. 
P2548 HOSTLIB - READING, WRITING OVER ROWS 

Various problems in reading and writing blocks near the end of a row have been corrected. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 DMS II - HOSTLIB 



PAGE 25 5 
MARIS 3.1 



SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - HOST INTERFACE 



P2547 HOSTINTFACE - "INCLUDE" "PROPERTIES" 
The HOSTINTERFACE will now include defines from TRPROPERTIES . 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 DMS II - HOSTINTERFACE 



PAGE 256 
MARK 3. 1 



SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - TRPROPERTIES 



P2551 TRPROPERTY - FIELDS IN "PORT" MESSAGE 

The layout of the PORT message used by the Remote Library and Hos t inter face is now defined 
the TRPROPERTIES. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - ODDASDL 



P2613 DDDASDL - MAINTAIN LEVEL NUMBER AND OCCURRENCES 

The COBOL level number and number of occurrences are now maintained in the Data Dictionary for 
each item. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DMS II - DDUPDATE 



P2614 DDUPDATE - TEXT FILES WITHOUT VALID HEADER 

DDUPDATE will now produce an appropriate error message if a text file which does not contain 
valid header is INSERTed. Previously, DDUPATE died with an INV OP at 30412000. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DUMPALL 



PI 766 DUMPALL - "UL" OPTION CORRECTION 

DUMPALL now asks for an unlabeled tape when the input file title is "UL" . 

PI 767 DUMPALL - "ROUTINE" AND "COPY" STATEMENTS REWRITTEN 

DUMPALL's "ROUTINE" procedure (described in the output from the TEACH verb) has been rewritten, 

thus correcting many problems relating to the "PACK=<packname> " and "SKIPTM< i n t eger> " phrases 

for the ROUTINE statement. The syntax and semantics of the ROUTINE statement and the COPY 
statement remain unchanged. 

PI 768 DUMPALL - "DMPMT" SHORT RECORDS 

The DMPMT" verb now dumps the entire record when the UL input file type is specified. 
PI 769 DUMPALL - EQUAL SIGN IN FILE TITLE 

DUMPALL will now accept file title with embedded equal signs. 

P2261 DUMPALL - "INTMODE" OF "HEX" OR "SINGLE" 

DUMPALL will now handle files with INTMODEs of HEX or SINGLE and UNITS of CHARACTERS when using 
the LIST, LISTAN or LAN options. 

P2343 DUMPALL - UNALLOCATED ROWS 

When DUMPALL is listing fixed record length disk files, the unallocated rows will not be listed 
or allocated. The following message is written to the printer for all unallocated rows: 

"♦••ROW NUMBER <nn> NOT ALLOCATED***" 

P2442 DUMPALL - LOOP IN "DMPMT" IF FILE FOUND ON DISK 

DUMPALL will now no longer loop dumping the same file over and over when the DMPMT option is 
used but a file on disk with the same title as the requested tape is found. The input file in 
the DMPMI" routine now has KIND=TAPE. 

P244 3 DUMPALL - NO FILE WHEN EQUATING TAPE TO "LIST" OPTION 

DUMPALL will now handle LIST requests where the input file has been equated to KIND=TAPE. 

P2528 DUMPALL - "NEWFILE" VS. OLD FILE 

DUMPALL now sets the NEWFILE attribute for all output disk and pack files to cause the creation 
of a new file and not to update an old file with the same title. 

P2 5 29 DUMPALL - ERROR MESSAGES 

DUMPALL will now output error messages that are more consistent with the error. 

Ex amp 1 e : 

Input : "L MYFILE DLB" 

"DLB" was input instead of "DBL" 

New Error Message: "EXTRANEOUS CHARACTERS IN INPUT STRING" 

Old Error Message: "OUTPUT PARAMETERS NOT ALLOWED FOR COPY" 
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DOCUMENT CHANGES NOTES (D NOTES) 
DUMP ANALYZER 



D2 451 DUMPANALY - NEW "IOCB" WORD, REMOTE BACKUP FILES 

The new IOCB word RDEXTENSIONWORD has been added to the DUMP ANALYZER . 

The new file type REMOTE BACKUP has been added to the DUMP ANALYZER . FIB" s of this type will be 
analyzed correctly. 

D245 3 DUMPANALY - "HELP" COMMAND IMPROVEMENTS 

The HELP command has been expanded to provide a railroad syntax diagram and a brief summary of 
the various DUMPANALYZER commands. The new syntax for the HELP command is: 



— HELP 

-<dumpana 1 yze r command;.- 
-<meta item> 



As before, entering "HELP" provides a list of available commands. Entering "HELP <dumpanalyzer 
command>" provides a summary of the requested command. Entering "HELP <meta item>" provides 
the meta syntactic items used in the syntax of the commands. 

D2551 DUMPANALY - "STANDARD" COMMAND 

A new command, STANDARD, has been added to the DUMPANALYZER. This command, effective in both 
interactive and ODT mode, allows the user to revert to the noninteract i ve analysis method; 
i.e., the user may give up an interactive analysis and analyze a dump by the old methods. 

Syn t ax : 

— STANDARD — | 

The command must be verified by entering YES when asked. The user may then enter the card-mode 
images at the terminal or ODT, followed by end of file (?END). 

D2S93 DUMPANALY - "STACK" BOUNDS 

The syntax of the STACK request in the Interactive Dumpanalyzer has been extended to permit 
specification of a lower-bound offset as an optional third number. 

Ex amp 1 e : 

STACK 3E 2F7 2A0 

This example will dump stack number 3E, starting at offset 2F7 and stopping after offset 2A0 . 

The upper bound is effectively unrestricted; the lower bound must not exceed the upper. 

D263 5 DUMPANALY - PORT AND SIGNAL ANALYSIS 

Analysis of ports and signals may be invoked via the batch options "PORT" or "SIG" . Setting 
either option will cause analysis of both ports and signals. 

DUMPANALYZER will recognize modes of "PORT" or "SIG". This allows syntax such as the following: 

MODE + PORT 

PV M[03BAC] PORT 

As with batch analysis, "PORT" and "SIG" are synonymous and setting either one will cause 
analysis of both ports and signals. 

D2656 DUMPANALY - DUMP ANALYZER CHANGES 

Several changes in the structure of the III.l MCP have necessitated changes in the 
DUMPANALYZER, including some new and altered syntax in its control statements. 

STRUCTURAL CHANGES 

Task and Stack Structure 

The stackvector has been rearranged, with genuine process stacks and segment dictionaries at 
the bottom and other things at the top end. These other things include the diskfile header 
"stack", the DCALGOL queue "stack", and the memory-spanning pseudos tacks . 
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The "TASK" variable associated with a process stack is now called a PIB (Program Information 
Bl ock) . 

The descriptors for active PIBs no longer live in the base of the process stack; instead they 
are in a SPIBVECTOR parallel to STACKVECTOR. 

Boxes 



Each memory subsystem in a B6800 Multiprocessor (tightly-coupled) system is called a "box": the 
Global memory subsystem is box 1; the local memory subsystems are numbered with the associated 
processor id+1. The box number for each memory word is recorded on the dump tape as the tape is 
written. Global memory addresses are unique; they are all above f i rs t-word-address-of-global . 
Local memory addresses are ambiguous, since each local memory subsystem has addresses beginning 
a t zero . 

The memory subsystem for each stack is displayed in the first column of the SUMMARY output for 
a B6800 Multiprocessor system: G for global, 1 for processor 1 (box 2), etc. The column is 
blank for a stack whose box is not currently assigned. Box and/or processor numbers appear in 
the heading for each stack dump, for the area dump from each box and for the descriptor 
ana lysis. 

NON- INTERACTIVE SYNTAX 

Two new option keywords have been added to the STANDARD-mode input: 

HDR causes the disk-file header stack (and its associated locks) to be printed. 

QUE causes the DCALGOL queue stack to be printed. 

The MIX=ALL specification will continue to print these "stacks", but STK= 1 1 will no longer get 
the header stack, for example. 

INTERACTIVE SYNTAX 

The <simple loc> construct no longer includes the forms 

STK <stack number > TASK <attr name;, 
and STK <stack number > TASK # <offset> 

These have been replaced with the new <simple loc> constructs 



PIB <stack number > <attr name> 
and PIB <stack number > # <offset> 



Ex amp 1 es : 

MD PIB 2E7 SERIAL 

MD PIB 2E7 # 5F 

These examples print information from the TASK variable associated with stack number 2E7 . The 
first prints the SERIAL word; the second prints word 5F (zero-relative). 

Several new commands are available: 

BOX <;number> 

causes the dump analyzer to interpret all non-global addresses as being in the specified 
box. The box specification is also changed by a STACK command for a stack in a local 
box, to designate that box. The command "BOX" with no <number> shows the current 
se 1 1 l ng . 

BOX INFO 

prints (as raw arrays) the BOXINFO array for each box in the system. 
PIB <stack number> 

prints the task assocated with the specified stack. 
PIB <s impl e loc> 

prints the task whose descriptor is at the specified location. 
QUE prints all the DCALGOL queues. 
QUE <number> 

prints the queue whose queue number is specified. 

The HDR <number> command (and its variations) has been modified to print the single diskfile 
header whose header index is specified. 
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The SEARCH command operates on only one memory subsystem in a tightly-coupled system. The BOX 
command may be used to select the subsystem to be searched. 

D2720 DUMPANALY - NETWORK ANALYSIS 

The standard option NETWORK will now print an analysis of the network if the dumping host was 
part of a network at the time of the dump. 

Two new interactive commands have been implemented. 

HOST INFO 

— HOSTINFO —| 

The HOSTINFO command displays information about all network hosts. 
SHAREMEM 

-- SHAREMEM | 

I I 

|-<logical mod #>-| 

The SHAREMEM command is used to get the status of shared memory on a loosely-coupled system. 

D2 845 DUMPANALY - "MCP" NAME HANDLING 

The dump analyzer handling of names for MCP stack locations has been redesigned. Noticeable 
effects of the change are the following: 

1. The LINE INFO/NAMES portion of dump analyzer initialization is much faster. 

2. All aliases for MCP stack cells are retained and will be returned by the WHO command and 
recognized by the WHERE command. 

3. Interpretation of code addresses from RCWs or PCWs has been improved as follows: 

a. The UNKNOWN/INNER BLOCK designation will no longer appear. In most cases a name is 
known and will be displayed; if no name is known, none will appear. 

b. The SUSERSEGMENT designation will no longer appear. Instead, the name of the first 
procedure in the segment will be used, suffixed by ",ETC". 

c. When several outer-block procedures have code in the same segment, the name of the 
particular procedure containing the addressed code will be displayed. (This feature was 
formerly available only for segment-5 procedures, and was often inaccurate.) When inner 
procedures reside in the same code segment as the containing block, the name of the 
containing block will be displayed, as before. 

4. The NONAMES specification will stop production of the tables of names and addresses in a 
non-interactive dump, but will not prevent initialization of the name data and its display 
in association with stack blocks, memory areas, etc. 

5. When a table of names and addresses is produced, either non-i nt erac t i ve 1 y or in response to 
the NAMES command, the SORT intrinsics is invoked to sort the names alphabetically. During 
this time, the HI response is "SORTING MCP NAMES". There is no longer any sorting during 
initialization, so in general the interactive dump analyzer working set is substantially 
reduced . 

D2846 DUMPANALY - AREA DUMP HEADINGS 

The information in the in-use-area headings for an areadump have been modified. Such headings 
may comprise three lines: If the mom address for the area is in the MCP DO stack and the name 
of that cell is available, the name is printed as the first line. The next line is the basic 
heading for the area. The final line is optional under the linkdump option; it displays the 
three links before and the link after the area. 

The DO-item name, if any, is now right-justified in the blank line which separates adjacent 

area listings. 

The heading line for an in/use area has been revised: 

The first word is SAVE for a permanent 1 y-save area, 
CSAVE for a cur rent 1 y-save area, 
OLAY for an overlayable area. 

The second word is CODE for a code segment, 

DATA for a normal data area, 
R/O for a read-only data area. 

Minor punctuation changes have been made in the same line. 
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The memory-link line for an in-use area has been revised: 

The USE-nnn field has been eliminated and the line left justified. (The USAOEF field is the 
second quarter of the second word of links. Parts of this field are already interpreted on 
the heading line in deriving the notations SAVE, CODE, R/O, and type (FIBMARK, DOPEVECT, 

e t c . ) . 

The LINKC word of most areas is an RCW that indicates where the area was made present. If 
the RCW is DO-r e 1 a t i ve , the line number and name of the MCP code segment is displayed. Such 
interpretation will be invalid for some areas at some times, as when an IOCW is in place for 
overlay. The interpretation is not attempted for FIBs , SIBs or Direct Arrays, since these 
never have an RCW in LINKC. The interpretation is also suppressed for code segments, to 
avo id clutter. 

D2 8 56 DUMPANALY - INTERACTIVE SYNTAX ERRORS 

The syntax of the interactive request 10 has been corrected. The following diagram should 
replace the syntax diagram for the HELP command on Page 14-38 of the System Software 
Operational Guide, Vol. 1 (Form No. 5001563). 

<un it pair t > 



- ACTIVE 

- UNIT — <simple value>- 

The following paragraph should replace the first full paragraph of semantics on Page 14-38. 

"The 110 (input output) command invokes I/O analysis. (See figure 5.) If the <unit part> is 
empty, all units are analyzed. If a particular unit is specified, only that unit is 
analyzed; otherwise, all units satisfying the condition specified are analyzed. An active 
unit is one whose I/O queue is non-empty; it may also be assigned to an MCP stack, etc." 

1)2939 DUMPANALY - CODE DUMP 

If the CODE option is not set, DUMPANALYZER does not print code areas. Now read-only data 
areas are suppressed under the same option. 

DUMPANALYZER will no longer scan code areas to verify tag=3 for each word. Previously, it 
forced printing of such areas and recorded them as having bad memory links; however, such 
instances are not usually pathological. 

D2 944 DUMPANALY - INTERACTIVE MODE 

The initial options when DUMPANALYZER is run are: 

SELECT RUN MODE: STANDARD OR INTERACTIVE 

The minimum acceptable response is "S" or "I". For compatibility with previous versions, the 
response "EXTEN" is synonymous with "I". 

If DUMPANALYZER is run with an odd task VALUE, the query is skipped, INTERACTIVE mode is 
selected, and the "HELPful" list of commands is omitted. 

D2945 DUMPANALY - "IO" UNIT SELECTION 

The criteria for printing I/O units have been revised to print fewer non-existing units when 
the interactive I/O command is used or when DUMPANALYZER is run in STANDARD mode. 

When the interactive analyzer is given an "10 UNIT <n>" command, the unit information is 
supplied for any <n> in the unit-table range. (Non-existent peripheral controls are designated 
"pseudo reade r " . ) 

In addition to a decimal integer, the following catalog pseudo-unit names are accepted: 

CATUNIT 
0FFL1NEUNIT 
VOLUNIT 
TAPEUNIT 

The first syllable is sufficient as an abbreviation. 

1)2949 DUMPANALY - DESCRIPTOR ANALYSIS 

FORMATTING 

The report has been reformatted for increased readability. The old format appeared as follows* 
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AREA LENGTH DESCRIPTOR AT DESCRIPTOR AT 
SV 020F9-02E7F (03463) 8000D8 4020F9 (5E087) E25000 0023AD (023CB) 
OV 0358E-03599 (00114) C00000 C0358E (02F38) 

In the new format, the parentheses are eliminated, the decimal length is shown with leading 
zeros suppressed, the locations precede the descriptors: 

AREA LENGTH LOC DESCRIPTOR LOC DESCRIPTOR 
SV O20F9-02E7F 3463 5E087 8000D84020F9 023CB E250000023AD 
OV 0358E-03599 114 02F38 COOOOOC0358E 

In a B6800 multiprocessor (Tightly-Coupled) system, a separate report is printed for the 
descriptors in each memory subsystem, and the box number precedes each descriptor location. 
For examp 1 e : 



============= GLOBAL MEMORY (BOX 1)=========== 

AREA LENGTH BX LOC DESCRIPTOR BX LOC DESCRIPTOR 

SV 820F9-82E7F 3463 1 5E087 8000D84820F9 3 023CB E250000823AD 
CS 9358E-93599 114 2 02F38 C00000C9358E 

Note that the box number, not the processor id, is shown. Note also that a descriptor in 
Global memory which contains a local address is ambiguous; it cannot be matched uniquely with 
an area in a particular box. Such descriptors will be listed in the final "MISC DESCRIPTOR" 
repor t . 

OTHER CHANGES 

DUMPANALYZER capacity has been increased from 5000 areas and 14999 descriptors to 15000 areas 
and 50000 descriptors. Should these limits be exceeded, DUMPANALYZER will disregard the excess 
data and report the number of areas/descriptors not printed. (Formerly, the program got 
invalid-index faults when the arrays were exceeded.) 

Code areas are no longer considered in the descriptor analysis. Each area is now reported as 
SV, CS or OV for save, current-save or overlayable memory, respectively. 

D29 50 DUMPANALY - LOCKS, EVENTS, "DEADLOCK" ANALYSIS 

DUMPANALYZER handling of locks and EVENTs has been revised. 

LOCKS 

The LOCKS command is available in interactive mode, or invoked automatically in standard mode. 
Several changes have been made: 

1. The "hard" locks are no longer reported. 

2. All EVENTs and EVENT ARRAYs declared in the MCP outer block are now considered; only those 
which have been PROCUREd or are being awaited are listed. 

3. The "ABNORMAL" qualifier has been eliminated from the LOCKS command. 
DEADLOCK 

The DEADLOCK command is available in interactive mode, or invoked automatically in standard 
mode. Its output has been reformatted, error checking has been improved, and it now considers 
all EVENTs and EVENT ARRAYs in the MCP outer block. It no longer considers the "hard" locks. 

HDR 

The HDR command is available in interactive mode, or invoked in standard mode by the HDR option 
or MIX=ALL specification. The resulting report no longer shows the HEADERLOCK event, since 
these are reported by the LOCKS and DEADLOCK commands. Therefore, the LOCKS and LOCKS ABNORMAL 
qualifiers have been deleted from the HDR command. 

EVENT Analysis 

The analysis of EVENTs has been abbreviated by stating only present conditions. Thus, for 
example, an EVENT may be marked HAPPENED or UNAVAILABLE; it will no longer be marked NOT 
HAPPENED or AVAILABLE (the default conditions). 

Warni ng 

The MCP global EVENTs and EVENT arrays are located from (BINDINFO) data in the MCP code file. 
If the analyzed code file does not match the dumping MCP code file, the event analysis may be 
garbage . 
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D2966 DUMPANALY - "NOIO AND UINFO" OPTIONS 

Some options have been changed for DUMP ANALYZER ' s STANDARD mode. 

A new option, NOIO, will suppress the analysis of I/O units that is produced by default 
DATACOMONLY and DMSIIONLY implicitly set NOIO. ""u<. = u oy aeraun. 

The UINFO option no longer analyzes the long arrays which hang off the UINFO array thus UINFO 

(which is set by default) is synonymous with QUICKUINFO. A new option, UINFOALL, will cause 

these arrays to be analyzed; that option is not set by default. (As before, NOUINFO wi 1 1 reset 
the UINFO option and suppress UINFO analysis.) 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
DUMP ANALYZER 



PI 109 DUMPANALY - HARD LOCK AND "RCW" ANALYSIS 

Whenever the DUMPANALYZER encounters an RCW referring to the MCP stack, the procedure name is 
printed if available. 

If the READLOCK MCP option were set, hard locks were BUZZ'd with a value which could be treated 
as an RCW; now, these locks are shown with sequence number and procedure name. The displays 
affected include "PV ... LOCK". 

PI 110 DUMPANALY - "MCP" TITLE FROM HEADER 

The DUMPANALYZER now uses the title of the MCP code file derived from its header, not the value 
passed on the dump tape from MCPINFO. 

The change means that a correct file name will be displayed and used as the default MCPCODEFILE 
title in cases where MCPINFO is wrong or incomplete, such as after a CM# or with duplicated 
MCP. 

P1213 DUMPANALY - "SEARCH" COMMAND ACCELERATION 

The SEARCH command has been accelerated considerably. It should be noted that the search now 
occurs from the high end of memory toward 0, so that memory indices printed in response to "?AX 
WHERE" will decrease. 

PI 520 DUMPANALY - "IO" DEADLOCK ANALYSIS 

The analysis of deadlock has been refined for stacks waiting on I/O, as follows: A stack will 
be reported as waiting for unit/path only when actually waiting, not just because it has I/O 
reques ted . 

PI 707 DUMPANALY - UNKNOWN RUN TIME OPTIONS IN "MCP" 

A problem which could cause truncation of the listing of an "* 'UNKNOWN* * " option in the list of 
run-time MCP options has been corrected. 

P1708 DUMPANALY - "MOD 63" GIVES FALSE TAPE ERROR MESSAGE 

A problem has been corrected in which having a memory module #63 in the system when a dump is 
taken leads to an extraneous "BAD TAPE INFORMATION..." error message. 

PI 79 3 DUMPANALY - MISCELLANEOUS CORRECTIONS 

A problem has been corrected in which a dangling "STACK" specification card could cause a 
fa i lure . 

Other problems relative to III.] implementation have been corrected. 

PI 893 DUMPANALY - "SIRW" ANALYSIS 

SIRWs in stacks are now analyzed correctly. Previously, extraneous bits not in the DELTA field 
could cause the offset to be off. 

P208 3 DUMPANALY - SEQUENCE NUMBERS FROM "RCW" 

RCWs are now correctly converted to line numbers. 
P2084 DUMPANALY - FAULT HANDLING 

The reasons displayed for DUMPANALYZER faults will now be correct. 

P2321 DUMPANALY - CLOSE INTERACTIVE "OPTIONS" FILE 

When running from a terminal in STANDARD mode, DUMPANALYZER will now close its remote I/O file 
when it detects EOF (as ?END is entered) before it possibly tries to write error message to 
that file; thus, any message will reopen the file instead of being rejected. 

P2432 DUMPANALY - COPE WITH "FIB" INDEX ARRAY NOT YET SETUP 

If a tape dump is taken during Halt/Load initialization before the MCP has set up the 
FIBINDEXARRAY, DUMPANALYZER will fault during initialization. This fault is now trapped, 
appropriate messages displayed, and the dump analysis continues without the table (which 
provides names for words in the FIB). There are no FIBs at this point anyway. 
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P2515 DUMPANALY - "DCC" AND "DCP" STATION INFO 

DUMPANALYZER will now print the correct data for the DCC station table; these data have been 
incorrectly displayed since the II. 9 release. 

Only the first six words of DCP station information are now displayed for each station on each 
valid line. These words have the same structure for all stations on all systems. Subsequent 
words vary in number and content for various stations and various systems, and will not be 
displayed by DUMPANALYZER. (On earlier systems, the seventh and eighth words were sometimes 
displayed as sequence parameters.) 

P2 5 20 DUMPANALY - SAVE FILE "AREASIZE" 

The AREASIZE of the NEWTAPE file (used for SAVE) has been reduced from 40 to 15 records (2000 
to 750 segment s ) . 

P2 521 DUMPANALY - BREAK ON OUTPUT 

The handling of Break on Output has been improved in DUMPANALYZER. In particular, a break 
during i ni t i a 1 i a t i on will no longer cause part of initialization to be skipped. 

P2523 DUMPANALY - SPECIAL ARRAYS 

The analysis and display of special-type arrays in a stackdump have been corrected and 
improved, as follows: 

1. If the array is a GETAREA area (such as a DCALGOL MESSAGE), it will be noted as such and not 
confused with a GETSPACE area. 

2. All GETSPACE areas with ODDBALLF non-zero are identified as to type, not just as FIBs . 
P2 5 24 DUMPANALY - REMOTE LINE WIDTH 

The handling of line width for the remote terminal has been improved, as follows: 

1. The station is attached to the remote file before the station attributes are sensed, so the 
specification in a CANDE TERM command will be effective. 

2. The full line width is used for hard-copy terminals, one less for screen devices. 
(Formerly, one was subtracted for all terminals.) 

P2 540 DUMPANALY - IMPROVED INITIALIZATION AND FILENAME HANDLING 

DUMPANALYZER stack-information handling has been reorganized. The most noticeable effects are 
the f o 1 1 owi ng : 

1. Dumps taken with a large mix initialize faster. 

2. Complete file names are kept, regardless of length; complete names are displayed (on 
multiple lines if necessary) except in tabular output. 

3. Long MCP names will no longer cause attribute errors on MCPCODEFILE. 

4. If DUMPANALYZER is running with FAMILY substitution in effect, it looks for MCP and program 
code files first without and then with the FAMILY specifications. 

P2565 DUMPANALY - "TAG 4" AND "TAG 6" ANALYSIS 

DUMPANALYZER now indicates library template markers in TAG 6 words, and distinguishes various 
types of TAG 4 words by their FAULTMARKF field. 

P2581 DUMPANALY - "PV" AND STACKDUMP OPERANDS 

The formatting of decimal operand values is now more flexible; integer, fixed-point and 
exponential notation will be used as appropriate. 

EBCDIC operands are so printed only if all characters are graphics; however, if an operand 
contains right-justified EBCDIC characters with NULL fill, the EBCDIC characters will be 

pr i nt ed . 

In the construct "PV M[a] . . .", if M[a] and M[a+1] are both Tag-2 words, they will be 
analyzed together as a double operand. This is effective in DEC, OCT, BCL, EBC and LOCK mode. 

P9248 DUMPANALY - STANDARD MODE FROM THE TERMINAL GETS ERRORS 

A problem has been corrected which could sometimes cause the DUMPANALYZER to erroneously issue 
a "BAD DUMPANALYZER INPUT CARDS" message when run in STANDARD mode from a terminal. 
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MESSAGE 

MCP INCOMPATIBLE WITH DUMP ANALYZER " 



The problem which caused the "CANNOT ANALYZE - MCP INCOMPATIBLE WITH DUMP ANALYZER " message to 
be truncated has been corrected. 

P9277 DUMPANALY - SUPPLY INFORMATION ON INCOMPATIBILITY "DS" 

More information will now be supplied when a situation is encountered which results in the 
message "UNABLE TO ANALYZE— MCP NOT COMPATIBLE WITH DUMP ANALYZER " . The version level word, 
which is an indicator of the general MCP-DUMPANALYZER compatibility, will be printed along with 
the specific MCP level word from the dump tape. If the DEBUG option is set, the debug 
information, consisting of the first 130 words of the dump tape, will now be printed; 
previously, it was not. The formatting of this information has been improved. 
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D2595 ESPOLINTRN - COMPILING "ESPOL" INTRINSICS 

An "INFO/MCP" file is no longer required for compiling the ESPOL intrinsics. Instead, a few 

"w'n.'. Cal deflnes from "SYMBOL/MCP" are included during the compile, using the ESPOL file named 
MCP 

D2680 ESPOLINTRN - FREEFIELD OUTPUT FOR COMPLEX VALUES 

Named output for complex expressions and variables in ALGOL have been implemented The named 
output for complex values in FORTRAN has been changed. 

ALGOL: 

The statement 

WRITE (F,M,COMPLEX(3,4)) 

generates the following output: 

COMPLEX(3,4) :R=3, : 1=4 

FORTRAN : 

The program 

COMPLEX CI ,C2,CA(2) 
WRITE (1 , *1),C1*C2,CA 
STOP 

END 

now generates the following output: 

<exp>:R=0.0, : I=0.0,CA(1) :R=0.0, : 1=0.0 
CA(2) :R=0.0, : 1=0.0 

D28I7 ESPOLINTRN - "BASIC," BLOCKING OF DISK FILES 

The blocking of BASIC disk files created after a margin statement has been redesigned to 
provide for better disk and memory usage and readability through CANDE. The redesign attempts 
to block the disk file so that block fits exactly on a disk segment boundary and occupies as 
close to and not exceeding 3060 characters as possible. If this is impossible, the blocking 
will be allocated so that block fits on a word boundary and does not exceed 3060 characters 
If this is impossible, the file will be blocked six records per block. 

D28 18 ESPOLINTRN - "BASIC," FILE HANDLING CHANGES 

If a file is declared in a BASIC program, unreferenced and 

non-existent, an empty file will no longer be created at the end of the program. 

D28 19 ESPOLINTRN - NEW DISPLAY OF FORMAT ERRORS 

The display of format errors has been changed. The non-binary display has been enhanced by 
including an English description of the error, the filename, the record number from the file, 
and the character position at which the formatting intrinsics were editing. The binary display 
will include the words FORMAT ERROR before the already-existing English description, and a 
format error number, the filename, the record number and the character position. 

The new display of format errors is as follows: 

<task number> FORMAT ERROR (<error message>) #<error number>: 
<filename> § REC #<number>, CHAR #<number> 

Ex amp 1 e : 

5367 FORMAT ERROR (RECORD OVERFLOW) #217: FILEF % REC #13 
CHAR #72 

This error message would indicate that the task number 5367 had a format error number 217 
which is a RECORD OVERFLOW, while reading the file FILEF at record number 13 and at character 

pos i 1 i on 72 . 

If the task is reading or writing to an array row rather than a file, the record number 
displayed will be zero; instead of a filename, "ARRAY ROW" will be displayed. The display of 
format errors pertaining to format specifications in arrays will not include the record number 
and character position, and FORMAT SYNTAX ERROR will be displayed in place of FORMAT ERROR. 

The new format error display will not include the display of the history. Such a display was 

un i nf orma t i ve because it contained no LINEINFO, and the address specified was simply an address 

within the intrinsics. It would also be redundant due to the fact that after the format is 

encountered and the program is DSed, the user receives a complete stack history at the time of 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
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P1453 ESPOLINTRN - "STATISTICS" OPTION 

The intrinsic which prints timing information for the STATISTICS option now uses the TIME(12) 
(process time) instead of the TIME( 1 1 ) function in improving upon the times noted with 
asterisks. 

PI 841 ESPOLINTRN - "BASIC" BINARY FILES 

Attempting to create a binary file with the BASIC FILE statement no longer causes an INVALID 
INDEX termination in the BASIC file manipulation intrinsic. 

P2141 ESPOLINTRN - CORRECT "R" FORMATS 

A problem with the following format has been corrected: 

wRf.d where w is a constant 
d i s a * 

P2142 ESPOLINTRN - ELIMINATE LOOP ON INVALID CHARACTER 

The intrinsic FORTALGFORMATENCODER wi 1 1 no longer loop *hen trying to evaluate an invalid 
character as a number. 

P2143 ESPOLINTRN - DETERMINE LENGTH OF CHARACTER ARRAYS 

A problem has been corrected that occurred when doing a read or write using a non-indexed 
character array as the file part. The number of characters in the array was incorrectly 
ca 1 cu 1 a t ed . 

P2144 ESPOLINTRN - CORRECT INVALID INDEX 

Previously, F3 . and F4 . formats would get an INVALID INDEX in the intrinsics if the number 
did not fit in the fields specified. Now, asterisks are placed in the field. 

P2145 ESPOLINTRN - "BASIC," BINARY FILES 

Binary files will now be created with records of the correct size (i.e., 14 words). 

P2146 ESPOLINTRN - "MONITOR" DOUBLE VARIABLE 

The MONITOR intrinsics will no longer get an exponent overflow when formatting a very large 
double precision numbers. 

P2147 ESPOLINTRN - CORRECT "E" FORMAT 

Values approaching one will be formatted properly for output from the following format: 

Ew.d with d greater than 22 for ALGOL 

d greater than 24 for FORTRAN 

P2148 ESPOLINTRN - "BASIC," CORRECT BUFFER FLUSHING 

BASIC file buffers will no longer be flushed inappropriately at wrap-up. 

P2149 ESPOLINTRN - CORRECT NUMERIC REPLACE 

A problem in which the intrinsic OUTPUTCONVERT would incorrectly print the least significant 
part of a double precision number has been eliminated. 

P2150 ESPOLINTRN - PREVENT EXTRA PRINTING 

A FORTRAN format ending with a "/" being written to a file with UN ITS CHARACTERS and with a 
MAXRECSIZE divisible by 6 will no longer output a character left over in the buffer instead of 
a b 1 ank line. 

P2151 ESPOLINTRN - "BASIC, PRINTUSING" 

PRINTUSING will now correctly print an integer if the integer field is all of the following: 

1. preceded by a S, and 

2. the last element in the image, and 

3. the image is declared via the format 

<line number> <image element> 
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or in an image declared via the format 

< string exp> "<image element)" 

where there is no space or other character between the integer field and trailing quote. 

P2152 ESPOLINTRN - "BASIC," EMPTY FILES 

The following BASIC construct has been corrected: 

FILE £ <number>, "*" 

Previously, if a file were created in the progiam, closed in this manner, and never again used, 
an empty file would result. An example of such a program is the following: 

FILES DEF 

SCRATCH #1 

WRITE #1 , "ANYTHING" 

FILE #1 , "*" 

Upon execution of the FILE statement, the file DEF was closed, containing "ANYTHING". At the 
end of the program, file #1 was automatically closed, with an empty file replacing the previous 
file DEF. The additional closing at the end of the program was erroneous. Now a valid file 
will not be replaced by an empty file in this situation. 

P2 153 ESPOLINTRN - TASK "DS" 

A task that is DSed from the ESPOLINTRINSICS will now have the task history word properly set 
up indicating the reason for the error termination. In addition, the task will be recorded and 
displayed as P-DS . The following program-caused DS reasons have been added: 

INVALIDPARAMV 8 2 

FORTRANERRV 8 3 

PLIRUNTIMEERRV 84 

MATHERRV 8 6 

INTRINSICSERRV 85 

FORMATERRV 8 7 

P2 154 ESPOLINTRN - MONITOR DOUBLE ARRAYS 

Double precision arrays are now monitored correctly, 

P2 155 ESPOLINTRN - SCALE FORMAT PHRASE 

Scaled formats via the "S" format phrase will now produce correct results. Incorrect results 
depended upon input field position. 

P2156 ESPOLINTRN - FREE FIELD OUTPUT 

Incorrect subscripts (in the range of 65536 to 99999) will no longer be printed for writes such 

as the f o 1 I owi ng : 

WRITE(F,*//,A[66000]). 
P2 157 ESPOLINTRN - BINARY WRITE QUESTION MARKS 

Question marks were incorrectly being printed for certain cases of binary I/O. An example of 

such a case if the following: 

WRITE(F [SPACE 2] ,*,A). 

P2 160 ESPOLINTRN - "BASIC," RESIZE FORMAT BUFFER 

ESPOLINTRINSICS will now properly resize the format buffer. Previously, the intrinsics 
BASICINEI, BASICOUTEI and BASICPRINTUSING made the occasionally incorrect assumption that the 
MAXRECSIZE of the file was in terms of characters. 

P2 162 ESPOLINTRN - "BASIC," STRING COMPARISONS 

An extremely rare problem has been corrected where a BASIC program doing string comparisons 
could cause a system failure due to manipulation of absolute memory addresses in normal state. 

P2542 ESPOLINTRN - FORMATTING INTRINSICS 

The formatting intrinsics no longer incorrectly call the FORGETSPACE procedure of the MCP . 
Previously, a dump by BLOCKEXIT MOM could have been caused if a task were DSed when an 
intrinsic had just called FORGETSPACE for a local array. 
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P2 543 ESPOLINTRN - "GMM" ROUTINES 



The P2 and P3 values returned by global intrinsics GMMSCAN and GLOBALMEMORYTEST were swapped; 
they are now correct. 

P2591 ESPOLINTRN - "FORTRAN BCL" FORMATTING 

The use of BCL strings in run-time formats no longer produces spurious results. 
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FILECOPY 



D2 826 FILECOPY 



'I I. 9 WFL" 



It should be noted that if the WFL deck is punched by FILECOPY and then read into a SECURED 
READER, an error will abort the WFL. A user card must be added to the punched deck. 

D2941 FILECOPY - TIME VALUE OF SECOND TIMESTAMP IN "BETWEEN" 

FILECOPY will now correctly copy files when the UPDATED modifier BETWEEN is used and no time 

part is supplied with the t imes t amps (or TODAY is used). The problem was caused by the time 

field of the file's timestamp being greater than the time field of the second timestamp of the 
BETWEEN statement. 

D2946 FILECOPY - VOLUME SPECIFICATION NOT ALLOWED FOR "DISK" 

FILECOPY will now give a syntax error when volume specifications (e.g., KIND=PACK) are supplied 
for media names of DISK or PACK. The error messages reads as follows: 

"NO VOLUME SPEC. ALLOWED FOR DISK OR PACK" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
FILECOPY 



PI 847 FILECOPY - "I I. 9 WFL" 

The WFL decks that are punched or zipped by FILECOPY will now be in II. 9 WFL form. 
P2188 FILECOPY - PUNCHED OUTPUT 

FILECOPY will now create its punched output decks without the error INCOMPAT BLOCK I NG : T 1 OUTPUT . 

P2555 FILECOPY - "(X)" VS. *X IN "EXCLUDE" LIST 

FILECOPY was not distinguishing between system (*) files and user ( ) files in the EXCLUDE 
list. When the first directory identifier of a system file in an EXCLUDE list was identical to 
a USERCODE identifier in a FILE list, the USERCODE would be EXCLUDEd . This problem has been 
corrected. 
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D2876 FILEDATA - "FILEORGANIZATION" ATTRIBUTE 

A new attribute, FILEORGANIZATION, has been added to the valid attributes for FILEDATA. It 
will only be shown of "data" files; i.e., files with FILEKIND > OR - VALUE(DATA) . 

The System Software Operational Guide, Volume 1 (Form No. 5001563), should be changed as 
fol lows : 

Page 5-1-8: 

The syntax diagram should be changed to read as follows: 

— ATTRIBUTES 1 



- ABBREVIATED 

- ALL 

- CATALOGUE 

- DOUBLE 

-<file attribute> 

- LASTACCESSDATE 

- LEVEL — = <integer> 

- NAMESONLY 

- NEWDATABASE — = <f i let i 1 1 e> 
_/l\ PRINTER 

PUNCH 

SCREEN 

- DATABASE = <file title> 

- DIRECTORY -| 

- PACKNAME — = <identifier> — 

- TAPE — = <tape name> 

|-<unit no> 

- TIMESTAMP 



Page 5-1-9: 

The description of <file attributes> should be replaced by the following syntax diagram: 
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<file a t t r ibut e> 

AREAS 

- AREAS IZE 

- BLOCKS IZE 

- CREATIONDATE 

- CRUNCHED 

- CYCLE 

- FILEKIND 

- FILEORGANIZATION 

- FILETYPE 

- INTMODE 

- LASTRECORD 

- MAXRECSIZE 

- SAVEFACTOR 

- SECURITY 

- UNITS 

- VERSION 



Page 5-1-21: 

Add the following description of FILEORGANIZATION: 

"FILEORGANIZATION 
FILEORGANIZATION is the organization under which the file was opened. 
FILEORGANIZATION is shown only if FILEKIND > OR = VALUE(DATA) . " 
Page 5-1-23: 

Add the following description of TIMESTAMP: 

"TIMESTAMP 
The date and time the last alteration was made to the file." 
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PI 364 FILEDATA - ACCESSCODE 

SECURITVTYPE CONTROLLED (CLASSC) is now recognized. 

P2 296 FILEDATA - ALLOW "CANDE" "LFILES" WITH NO DISK SYSTEM 

A CANDE request for LFILES <filename> ON <packname> on a system with no disk no longer hangs on 
a "REQUIRES DK DISK". Note that the system will still mention "NO FAMILY DISK" in passing. 

P2468 FILEDATA - "6250 BPI " TAPES RECOGNIZED 

FILEDATA obtains tape density information from GETSTATUS, which it then uses to index a value 
array for report headings. An entry has been added to that value array for the 6250 BPI 
density setting. 
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1)25 32 FORTRAN - COMPILER FILE LINE 

Table 18-1 of the FORTRAN Manual (Form 5000458) should be corrected. The COMMENTS for file 
LINE shou Id say : 

"Optional and 1 abe 1 -equa t ab 1 e to REMOTE file produced 
when either the compiler option LIST or TIME is set." 

1)2 821 FORTRAN - FORMAT-REPEAT COUNT 

If a repeat count greater than 65535 is used, a warning is issued and a repeat count of 65535 
is used . 

D2822 FORTRAN - BINDING AND STATISTICS 

It is not possible to bind programs with DEBUG STATISTICS. If a DEBUG STATISTICS statement is 
encountered, no bind information will be generated. If SEPARATE, LIBRARY or AUTOBIND is set, 
an error will be flagged; otherwise, if NOBINDINFO is not already set, a warning will state 
that no bind information will be generated. 
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PI 842 FORTRAN - INVALID SYNTAX, "IMPLICIT" STATEMENT 

It was possible for an invalid type specification in an IMPLICIT statement to pass syntax. An 
appropriate error message will now be generated. 

PI 84 3 FORTRAN - DOUBLE PRECISION CONSTANTS "OPT= 1 " 

Double Precision constants whose magnitudes were less than 2**16 were being interpreted as 
single precision in OPT=l, causing a loss of accuracy when dividing. This has been corrected. 

PI 844 FORTRAN - INVALID TYPE CHECKING OF SUBROUTINES 

When the name of a subroutine, which was passed as a parameter, was included in the scope of an 
IMPLICIT statement, a spurious syntax error was generated. 

Exampl e : 

IMPLICIT DOUBLE PRECISION (A-Z) 

EXTERNAL SUB2 

CALL SUB1(SUB2) 

END 

SUBROUTINE SUB1 

CALL PI 

END 

SUBROUTINE SUB2 

END 

This has been corrected. 

PI 84 5 FORTRAN - MONITOR BINDER INTERFACE 

If the binding of a subroutine caused the addition of D2 stack cells and the subroutine used 
the monitor debug facility, erroneous assignment of stack cell locations could result. This 
has been corrected. 

PI 848 FORTRAN - RUN-TIME GROUP REPEAT 

If the run-time FORMAT option asterisk (*) appeared as a repeat count and control reverted to 
the asterisk, the group would be repeated indefinitely with no list item accessed to replace 
the asterisk. This has been corrected. 

PI 849 FORTRAN - BAD "PCW" ON ACTION LABEL 

In subroutines which occupy more than one segment, the compiler failed to properly generate a 
PCW for an I/O exception branch. This would typically result in program termination with 
INVALID PROGRAM SYLLABLE. This has been corrected. 

PI 850 FORTRAN - MULTIPLE ENTRY POINTS WITH "OPT=l" 

When a subroutine contained several ENTRY points, the possibility existed of bad code being 
emitted or a COMPILER ERROR being generated. This occurred ony with OPT= 1 . This has been 
corrected. 

PI 874 FORTRAN - BINDING "FORTRAN" AND "ALGOL" 

The BINDINFO generated by the III.O FORTRAN compiler for some intrinsics (such as 
FORMATTEDOUTPUT) was not compatible with the BINDINFO generated by the ALGOL compiler or the 
BINDINFO generated by the FORTRAN compiler before III.O. This caused i n t e r 1 anguage binding and 
binding of III.O FORTRAN to previous levels to fail in some cases. This has been corrected. 

P1934 FORTRAN - INVALID SYNTAX IN DATA LISTS 

When the letter O is used in a data list for arrays, followed by a comma and another list 
element, the next element is taken as an actual digit and an incorrect error is produced. The 
correct error, ILLEGAL CONSTANT IN DATA OR INITIAL VALUE LIST, is now flagged. 

PI 93 5 FORTRAN - REPEAT COUNT, LEADING ZEROS 

Leading zeros in repeat counts of a format phrase were being treated as significant digits, 
resulting in syntax errors under some circumstances. This situation has been corrected. 

PI 936 FORTRAN - "FREE" FORMAT VS. "INCLUDE" 

The compiler structures for manipulating INCLUDES and handling FREE formatting have been 
cleaned up, thus resolving contention problems' for the previously shared structure which could 
sometimes lead to spurious syntax errors. 
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PI 937 FORTRAN - "INVALID INDEX," SUBROUTINE CALL 

When a subroutine is incorrectly called with no parameters, it is correctly flagged as an 
error; but, if the same subroutine is then correctly called, the compiler faults with an 
INVALID INDEX. This has been corrected. 

PI 93 8 FORTRAN - INTERNAL COMPILER FIELDS EXCEEDED WITH "OPT=l" 

When large programs were being compiled with OPT= 1 , it was possible to get a compiler error if 
the internal compiler fields were exceeded. An error will now be generated if the internal 
compiler fields are exceeded. In addition, the fields involved have been expanded such that. 
if the FORTRAN compiler is compiled with compiler generation option BIGOPTJOB set, larger 
program units can be compiled. 

PI 939 FORTRAN - RUN TIME PROBLEMS WITH VERY LARGE PROGRAMS 

It was possible for various run-time problems to occur when a program was compiled with mors 
than 2047 variables at lex level 2. The execution of a program with many COMMON blocks and OWN 
arrays may have resulted in a problem such as an INVALID INDEX or a system loop. This has been 
corrected . 

P2302 FORTRAN - INVALID "PARAMETER MISMATCH" 

A PARAMETER MISMATCH occurred when a subroutine, call it SUB1 , had an array name as a dummy 
argument, and it was called with an array element as an actual argument, and the call occurred 
in a subroutine to which SUB1 was a dummy argument. 

Ex amp 1 e : 

EXTERNAL SUB1 

CALL SUB2 (SUB1) 

END 

SUBROUTINE SUB2 (SUB1) 

REAL A(20) 

CALL SUB2 (A(5)) 

END 

SUBROUTINE SUB1 (Y) 

END 

This problem has been corrected. 

P2 322 FORTRAN - "FORTRAN XREF" 

The following problems, which occurred in the FORTRAN XREF, have been corrected: 

Items were erroneously xreffed (e.g., beginning of DO statements, 

internal compiler labels, etc.) 
Items had missing occurrences 
Items had extra occurrences 
Items were not xreffed 

Items were xreffed with the incorrect type 
Labels on DO statements had no "OCCURS AT" clause 
References to variables which occurred on the left of assignment 

statements for OPT=l were not marked with asterisks. 

P2592 FORTRAN - CORE ESTIMATE WITH "$SET SEPARATE" 

The estimate core usage for the first subroutine was used for all subsequent subroutines when 
compiling with the dollar option SEPARATE set. This problem has been corrected by calculating 
an individual core estimate for each separate SUBROUTINE. 
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D2494 GUARDFILE - ACCESSCODE 

GUARDFILE has been modified so that the type of access (NO, RO, WO, RW, XO) may be determined 
by usercode, program name, accesscode or any combination of these three items. 

Syntax Changes : 

<entry type> ::= USERCODE//PROGRAM/ /ACCESSCODE 

qualification info> ::= <us ercode>//<progr am name>//<acces scode> 

For multiple users with the same usercode, it is necessary to provide additional security to 
the guardfile. This can be accomplished by creating a guardfile with SECURITYTYPE=CONTROLLED 
and having itself as its guardfile, or having a special guardfile for all guardfiles (including 
itself) which restricts access to only the creator's usercode and accesscode. 

Exampl e 



Consider a group of three users (USER1 , USER2 , USER3) with the same usercode UA. Consider also 
a fourth user (USER4) with usercode UB. The USERDATAFILE could be set up as follows: 

Usercode Passwords Accesscodes/Passwords 

UA PA1, PA2, PA3 AA1/AP1, AA2/AP2, AA3/AP3 
UB PB AB/BP 

Each user (person) in usercode UA can be assigned his own usercode password and his accesscode 
and corresponding accesscode password. 

Note: Any valid user under usercode UA could use any of the accesscodes AA1 , AA2 , AA3 as long 
as he also knows the corresponding accesscode password API, AP2 , AP3 . 

Assume the following: 

USER1I is told UA/PA1 and AA1/API only 

USER2 is told UA/PA2 and AA2/AP2 only 

USER3 is told UA/PA3 and AA3/AP3 only 

USER4 is told UB/PB and AB/PB only 

Consider four files with the following access requirements: 

Access Requirements for 
Filename USER1 USER2 USER3 USER4 

(UA)F1 RW RW RW NO 

(UA)F2 RW RW RW RW 

(UB)F3 RO RO RO RW 

(UA)F4 RW RO NO WO 

These files can be set up with the following security: 

(UA)F1 SECURITYTYPE=PRIVATE IO 

(UA)F2 SECURITYTYPE=PUBLIC IO 

(UB)F3 SECURITYTYPE=GUARDED, GUARDF I LE . DEFAULT=NO , USERCODE UA = RO 

(UA)F4 SECURITYTYPE=CONTROLLED, GUARDFILE: DEFAULT=NO, USERCODE US USING ACCESSCODE AA1=RW 
AA2=RO, AA3=NO; USERCODE UB=WO. 

The above demonstrates the ability to restrict access to files between different users (people) 
with the same usercode. Note also that accesscodes could be required in any case (e.g. for 
F3 ) to ensure validity of access. 

If USER3 obtained USERl's accesscode AA1 , he would still need to find the corresponding 
accesscode password API before obtaining RW access to F4 , even though USER3 can sign on under 
the creating usercode UA. 

Assume the "owner" of F4 is USER1 (accesscode AA1), the guardfile for F4 should have its 
SECURITYTYPE=CONTROLLED and either itself as its guardfile or a s e I f-guarded guard f i 1 e 
containing the following: 

DEFAULT=NO ; 

USERCODE UA USING ACCESSCODE AA1=RW. 
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Otherwise, any user with usercode UA could change F4 ' s guardfile (and thus gain 
cont rol of the file). 
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to and 



Note: This self-guarded guardfile allowing access only to usercode 
could serve to guard all of USER1 ' s guardfiles. 



UA with accesscode AA 1 



Each individual user can change his accesscode's password at any time, using the "APASSWORD" in 
CANDE or the WFL "ACCESS PASSWORD" statement. The owner of a file (the owner of the guardfile) 
can change the contents of the guardfile to change who is allowed access and what kind of 
access. Note that the file owner only knows the accesscode of the potential users, not their 
accesscode passwords. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
HOSTSERVICES 



P2403 HOSTSERVICES - CORRECT ATTRIBUTE SETTING 
The attribute setting for BOT and EOT status change messages has been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
INPUT-OUTPUT 



D2640 IN-OUTPUT - UPDATE "I/O" IMPLEMENTATION CHANGED 

Update I/O used to be performed by the MCP logical I/O routines (FIBSTACK) with the assistance 
of the MCP physical I/O routines (IOEXCEPTION and PACKPARITYRETRY) . In the future, the 
FIBSTACK update disk release routines will handle update I/O all by themselves. In order to 
retain the efficiency gained via update I/O, the default number of buffers for a file with 
UPDATEF I LE=TRUE is now three instead of two. Having less than three buffers results in 
FIBSTACK waiting for look-ahead reads to complete. 

D2646 IN-OUTPUT - "SERIALNO" ATTRIBUTE VALIDITY CHECK 

The SERIALNO attribute may be assigned a REAL value via an ALGOL statement or file declaration; 
the value may be the following: 

1) An integer value from 1 through 999999 

2) One to six EBCDIC alphanumeric characters, 1 e f t- j us t i f i ed with blank fills 

3) Normal zero (the null value for SERIALNO). 

The following ALGOL and WFL text specify the same SERIALNO values: 
ALGOL WFL SERIALNO 



F. SERIALNO 
F. SERIALNO 
F. SERIALNO 



=123 F(SERIALNO=123) 



"AB " F(SERIALNO="AB") [AB ] 



"AB" F(SERIALNO=49602) 



000123] 



049602] 



Th e third line illustrates an easy mistake, since ALGOL short strings are right-justified with 
NUL fill and thus have integer values. 

These rules are now strictly enforced; any violation will produce an attribute error. It is no 
longer possible to cause an integer overflow fault in ATTR I BUTEHANDLER by an invalid value. 

D27 83 IN-OUTPUT - "I/O" ERROR MESSAGES 

File open, I/O and close error messages are now generated with the same format, as follows: 



FILE < t i t 1 e > OPEN ERROR 
FILE < t i t 1 e> I/O ERROR 
FILE <title> CLOSE ERROR 



< error message) 
<error messago 
<error messago 



All of the errors are fatal, including the CLOSE errors, which previously were displayed for 
informal ion onl y . 

Previously undocumented messages related to direct I/O have been replaced, as follows: 

Previous Message New Message 



I/O ERROR #17 BUFFER IN USE 
I/O ERROR #18 UP-LEVEL EVENT 
I/O ERROR #19 SECURITY ERROR 

D2785 IN-OUTPUT - "HOSTNAME" FILE ATTRIBUTE 

The file attribute HOSTNAME has been implemented. HOSTNAME is a pointer valued attribute used 
during file assignment to select the host on which the file resides. 

HOSTNAME may be set when the file is closed and unassigned. 

HOSTNAME may be read at any time. If the file is closed and unassigned and the attribute has 
never been set, it will return a null (".") value. If the file is assigned, HOSTNAME will 
return the name of the host at which the file resides. 

D2809 IN-OUTPUT - "READ" ON THE "B5500" VS. THE "B670O" 

The B7000/B6000 I/O Subsystem Reference Manual (Form No. 5001779), Page 3-42 under "RECORD", 
should be corrected by adding the following between the second and third lines of the 
paragraph : 

"or if the file was opened with a READ [ NO ] operation," 
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D2 8 66 IN-OUTPUT - RELATIVE "I/O" 



Add the following new field for the STATE attribute on Page 3-5 1 of the I/O Subsystem Reference 
Manual (Form No. 5001779): 

"[5:1] If this bit is on, a deleted or duplicated record was referenced in file whose 
F I LEORGAN I ZAT ION is REL AT I VE . " 

Add the following new attribute to the I/O Subsystem Reference Manual: 

" F I LEORGAN I ZAT I ON 

Disk only, read/write, anytime/closed, Integer 

The F I LEORGAN I ZAT I ON attribute is available so that files may be restricted as to the 
organization under which they were opened. The attribute must be set to the value used when 
the file was created in order to open the file, unless the file is direct. The currently 
defined values, mnemonics, and meanings of F 11 LEORGAN I ZATON are as follows: 

NOTRESTRICTED The file does not adhere to any F I LEORGAN I ZAT I ON restrictions. 

1 RELATIVE The file was created under a RELATIVE file organization and adheres 

to the restrictions of such. This organization is derived from 
COBOL74. 

The default value is NOTRESTRICTED." 

D28 8 3 IN-OUTPUT - COUNT LOGICAL "I/O" REQUESTS 

This feature causes requests made on logical I/O read and write procedures to be counted. Each 
call will cause a count kept in the FIB to be incremented. This count will be logged at file 
close time, and the results printed by log requests. This feature supercedes recording the 
current record number in the log; consequently, the log value will now reflect the actual 
number of requests and not the number of the last record read/wr i t t en/seeked . 

D2902 IN-OUTPUT - "NEWFILE" VS. TAPE LABELS 

Tape labels are now written when a tape is opened with NEWFILE=TRUE and MYUSE not specified. 
Also, if MYUSE is unspecified and NEWFILE is true and the device is an I/O device (TAPE or 
DISK), then MYUSE is set to OUT. 

D2952 IN-OUTPUT - NEW TASK, FILE ATTRIBUTES 

Values for the task attributes HISTORYTYPE, HISTORYCAUSE and HISTORYREASON may now be 
referenced innemon i cal 1 y , as follows: 

HISTORYTYPE: 

NORMALV 

DUMP1INGV 

QTEDV 

STEDV 

DSEDV 

NORMALEOTV 

SYNTAXERRORV 

UNKNOWNEOTV 

UNINITIATEDV 

HISTORYCAUSE: 

OPERATORCAUSEV 

PROGRAMCAUSEV 

RESOURCECAUSEV 

FAULTCAUSEV 

SYSTEMCAUSEV 

DCERRCAUSEV 

DCERRV = DCERRCAUSEV 

IOERRCAUSEV 

IOERRV = IOERRCAUSEV 

SOFT I OERRCAUSEV 

SOFTIOERRV = SOFTI OERRCAUSEV 

NEW I OERRCAUSEV 

NEW IOERRV = NEWIOERRCAUSEV 

UN IMPLEMENTEDCAUSEV 

UNSPECIFIEDCAUSEV 

EBDMSERRCAUSEV 

EBDSMERRV = EBDMSERRCAUSEV 

NETWORKCAUSEV 
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HISTORYREASON: 

DSed for OPERATORCAUSE : 

RSVPV 

CLEARUNITV 

JUSTDSEDV 

DSed for PROGRAMCAUSE : 



M I S S I NGCODEF I LENAMEV 

MISSINGCODEFILEV 

INITACTIVETASKV 

NOEXTERNALRUNV 

I NVAL I DACCES SCODEV 

DEATHINFAMILYV 

CRITICALBLOCKV 

BADGOTOV 

NOTEXECUTABLEV 

UNMATCHEDPARAMSV 

INVCX)MPILERW 

SECURITYERRORV 

LIBMAINTV 

BADRES I ZEDEALLOCV 

MISSINGINTRINSICV 

I NCOMPAT I BLELEVELV 

INFANTICIDEV 

NOTBOUNDV 

I LLEGALOWNARRAYV 

DIMSIZERRORV 

UPLEVELATTACHV 

ILLEGALSWAPV 

SWAPDOES NTALLOWV 

BADTASKATTR I BUTEV 

M I S S I NGCARDDECKV 

BADRESTARTV 

BADEVENTUSAGEV 

BADGIVELOCKV 

BADGETLOCKV 

COMPILERSONLYV 

TAS KL I M I TEXCEEDEDV 

AXBADARRAYV 

RUNTIMEWFLV 

COMPILERERRORV 

LIBMISSINGNAMEV 

L I BTYPEM I SMATCHV 

L I BD I RECTORYNOTFOUNDV 

CYCLICPROVISIONV 

PREV I OU S LYFROZENL I BV 

L I B I MP LEMENTAT I ONERRORV 

BADPTRLIBV 

NONUNIQLIBV 

NOIN1TPARAMV 

SWAPJOBCANTBELIBV 

GLOBALLIBSONLYV 

INVALIDLIBREFV 

L I BFEATURENOT I MPLEMENTEDV 

BADCOMP I LER I NDEXV 

L I BNOTPROCES SEDORRUNV 

L I BMUSTBESEPARATESTACKV 

STed for PROGRAMCAUSE: 
RESPONSEREQUI REDV 
DSed for RESOURCECAUSE : 



PROCES S EXCEEDEDV 

IOEXCEEDEDV 

STACKEXCEEDEDV 

PRINTEXCEEDEDV 

PUNCHEXCEEDEDV 

CARDREADEXCEEDEDV 

MEMORYEXCEEDEDV 

D I RECTOR YEXCEEDEDV 

TAPEEXCEEDEDV 

WA I TEXCEEDEDV 

ELAPSEDEXCEEDEDV 

DI SKL I M I TEXCEEDEDV 

STR I NGPOOLEXCEEDEDV 
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DSed for FAULTCAUSE: 

DIVIDEBYZEROV 

EXPOVERFLOWV 

EXPUNDERFLOWV 

INVALIDINDEXV 

I NTEGEROVERFLOWV 

INACTIVEQV 

MEMORYPROTECTV 

INVALIDOPV 

IXX>PV 

MEMORYPARITYV 

SCANPARITYV 

INVALIDADDRESSV 

STACKOVERFLOWV 

STRINGPROTECTV 

PROGRAMMEDOPV 

BOTTOMOFSTACKV 

SEQUENCEERRORV 

INVALIDPCWV 

STACKUNDERFLOWV 

ZAPPEDV 

DISKPARITYV 

DSed for SYSTEMCAUSE: 

NOMEMV 

PARITYONPBITV 

ARRAYTOOLARGEV 

STed for SYSTEMCAUSE: 

WS S I ZEEXCEEDEDV 
DSed for UNIMPLEMENTEDCAUSE: 

DYNAM I COWNARRAYV 

DSed for NETWORKCAUSE : 

NOHOSTV 

HOSTNOTREACHABLEV 

HOSTHALTLOADEDV 

STed for NETWORKCAUSE: 

DISCONNECTEDV 
SUSPENDEDV 

Several new file attributes have been added to support upgrading to III.l Libraries and BNA, as 
fol lows : 

FILEUSE: 

A new file attribute, FILEUSE, is now available. This attribute is based on the MYUSE 
attribute, except as follows: 

1. It is restrictive; i.e., if an output operation is attempted on a file whose FILEUSE is 
declared IN, an error occurs, and vice versa. 

2. The default value is 10. 

3. The value CLOSED is not available. 

4. The value is retained during file operations. 

5. It does not cause the creation of a new file when a search for an output file is being 
conducted; it has no other side effects with respect to file search or creation - it is 
strictly a usage limitation. 

6. It is readable at any time; it is only settable when closed (including close with 
ret en t ion) . 

7. The error given when FILEUSE is violated is "WRITE ON INPUT FILE" or "READ ON OUTPUT FILE". 
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DENSITY: 

The following mnemonics are now the "preferred" mnemonics for the DENSITY file attribute: 

BPI200 

BPI556 

BPI800 

BPI1600 

BPI6250 

The mnemonic BPI6250 is for the new GCR tape facility. 

The old mnemonics for the DENSITY attribute will continue to be supported as synonyms to the 
above, as follows: 

LOW = BPI200 

MEDIUM = BPI556 

HIGH = BPI800 

SUPER = BPI1600 

NEWFILE: 

A new file attribute, NEWFILE, has been implemented to specify whether a new file is to be 
created or an existing file is to be accessed. 

Its usage and access specifications are: 

General, read/write, anytime/closed, Boolean 

The attribute actually has three states: never-set, TRUE and FALSE. If the attribute has never 
been set, then it has no effect: a new file will be created or a permanent file sought 
depending upon the interaction of the MYUSE, AREASIZE and KIND attributes. If NEWFILE is set 
to TRUE, then a new file will be created irrespective of the settings of other attributes In 
the case of DISK and PACK files, a default AREASIZE will be chosen by the MCP if none was 
specified. If NEWFILE is set FALSE, then an existing file will be sought, regardless of the 
settings of other attributes. A file-open error results if NEWFILE is set incompatibly with 
the device type, such as FALSE for a PRINTER or TRUE for a READER. 

The NEWFILE attribute may be read at any time: the value is TRUE if NEWFILE has been explicitly 
set TRUE and FALSE otherwise. If the attribute has not been set, the value is FALSE whether or 
not a new file was created according to the default criteria. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
INPUT-OUTPUT 



PI 030 IN-OUTPUT - CHANGE "INTNAME" 

Setting the INTNAME file attribute via a multiple file attribute assignment will now cause 
label-equation statements for the new INTNAME to be processed. The following example will now 
attempt to open a disk file: 

Exampl e : 

7COMPILE X ALGOL GO; 

7FILE NEWINT (KIND=DISK); 

7DATA 

BEGIN 

FILE F (KIND=TAPE); 

F (MAXRECSIZE=22, I NTNAME=" NEWINT. ") ; 

F.OPEN:=TRUE; 

END. 

?END 

PI 128 IN-OUTPUT - "CHECKCOUNT" VS. "5500" TAPES 

Block count errors on B5S00 data tapes will now be reported by CLOSE. 
PI 136 IN-OUTPUT - TAPE CLOSE VS. "MYUSE" 

When closing an output tape, MYUSE will now be left as output. 

PI 603 IN-OUTPUT - EXTRACT IOCBS FROM BUFFERS 

I/O control blocks are now disjoint from logical I/O buffers. They are linked to the buffers, 
and continue to be displayed by PROGRAMDUMP and DUMP ANALYZER . 

PI 736 IN-OUTPUT - NEGATIVE BOOLEAN 

Boolean file attributes will no longer cause an attribute error if set to a negative value. 
PI 781 IN-OUTPUT - "CANCEL/DIRECTDCREAD" 

CANCEL/DIRECTDCREAD will now check to be sure there is an IRW before cancelling the READ. 

PI 856 IN-OUTPUT - LOG VS. TITLE 

Log open and close records will now show the title of the file actually opened, even if the 
operator IL' s a "no file" RSVP. Previously, log open and close records showed the title of the 
file requested, which was not always the title of the file that was actually used. 

P1860 IN-OUTPUT - "FIBEOF" 

Sometimes the MCP would give EOF when user programs attempted to read from a small disk file. 
This has been corrected. 

PI 891 IN-OUTPUT - BADLY BLOCKED UPDATE "I/O" 

Certain combinations of update I/Os, when applied to a badly blocked file, could result in the 
data being incorrectly written. This has been corrected. 

P9024 IN-OUTPUT - "FIBLOCK" AND "TIMESTAMP" 

1. Binary disk I/O will no longer hang. 

2. READ(F,*,A) will no longer change the disk file TIMESTAMP. 

P9167 IN-OUTPUT - "NORESOURCEWAIT" FILE ATTRIBUTE CORRECTION 

The NORESOURCEWAIT direct file attribute may now be reset as well as set. Formerly, the 
following ALGOL statement would set the attribute (the value of the Boolean expression was 
i gnored) : 

F . NORESOURCEWAIT : =FALSE 

P922 8 IN-OUTPUT - "AVAILABLE" 

<FILE> .AVAILABLE will now return a value of 2 (no file) in cases where the file cannot be 
opened because of incompatible blocksizes, etc. 
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P9272 IN-OUTPUT - "FIBLOCKSNR" 

A COBOL program can reference file attributes when executing in the "USE AFTER STANDARD LABEL" 
declarative procedure, even if the FIB is IPC capable. (Formerly, the program would hang in 
the user's label procedure when an IPC-capable FIB was accessed.) 

P9 27 3 IN-OUTPUT - " PROGRAMDUMP , " NEW "IOCB" 

The output of the file section of PROGRAMDUMP has been modified to correctly identify the new 
words in the IOCB. 

Tape labels now contain four-digit system serial numbers. The USYSID field in the HDR2.EOF2 
label now begins at character number 45 (starting at character one). The old three-digit 
field, beginning at character 37, will contain the lower three digits of the system serial 
number until the III.l release, at which time the three-digit field will change to blanks. The 
tape level value (characters 35 and 36 of the VOL1 label) has been changed to 3. 

P92 74 IN-OUTPUT - "CLOSE HERE" ON EMPTY TAPE FILE 

A COBOL CLOSE HERE statement executed upon an empty tape file will no longer either cause a 
block count error or an incorrect number of records being written on the tape. 

P9275 IN-OUTPUT - "EVEN" PARITY VS. "EOF1" 

CLOSE was unable to recognize EOF labels written with EVEN parity causing extraneous "I/O ERR 
IN CLOSE" messages. This problem has been corrected. 
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INTERACT I VEXREF 



D2476 IXREF - " INTERACT I VEXREF" ENHANCEMENTS 

Text lines from the symbol file used by I NTERACT I VEXREF may now be sent to a disk file, 
revised syntax and semantics of the commands affected by this option are explained below. 

<identifier spec i fi cat ion> 

— < i dent i f i er> | 

I -< iden t i f i e r qual i f icat ion>- | 



The 



<identifier qualification 

- AT FIRST 

AT — (sequence number> 

IN — <procedure speci f icat ion> 

OF — (procedure spec i fi cat ion> 

AT — (sequence number> — IN — (procedure specification;.- 



(procedure specification 

|< OF | 

I I 
(procedure identifier) | 



(range spec> 



-<sub range spec>- 



(sub range spec> 

| < , 

I 

-(procedure spec> 

|- THRU (procedure spec> 

- ( (procedure spec> ) 



I 



-(sequence no>- 



(sequence no> 
END 
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REFERENCES 
— REFERENCES 



-/1\- 

-/1\- 
-/1\— 



dcntifier specification 

— RANGE — <range spec> 

— CHANGED 

— ALIASES 

— TEXT 

I -< i nt eger> 

: — ENVIRONMENTS 

I- ONLY 
: — GLOBALENVIRONMENTS 



- ONLY 



-/1\- 
-/1\- 



— PRINTER 

— REMOTE 

— FILE — <file name>- 



SEMANTICS: 

References to the specified identifier will be listed. If no identifier is specified, and the 

previous command was LOCATE, REFERENCES, EXPAND or SUMMARY, then the identifier specified in 

that command will be used. This identifier, which is remembered from command to command, is 
known as the "work identifier". 

Unless modified by some of the options described below, the references will be printed in the 
form familiar from printed XREFs . The eight digit sequence number of each line where the 
identifier is referenced will be printed. It will be preceeded by an asterisk (*) if the value 
might be changed by the statement, and followed by a pound sign (#) if the reference occurred 
as part of an expanded define. The available options are: 



RANGE 



CHANGED 



ALIASES 



allows the user to restrict the range over which references are to 
be printed. If this option is not specified, then the default 
reference range, as specified by the RANGE command, will be used. 
The default value of the default reference range is the entire 
program. 



only those references where the value of the 
changed by the statement will be listed. 



identifier might be 



causes a merged list of references to the identifier and all of its 
aliases (if any) to be listed. Those sequence numbers where an 
alias is referenced will be marked with "+" . Currently, only ESPOL 
keeps track of aliases. 

TEXT causes the text from the symbol file to be printed with each 

reference. If an integer is specified with this option, a sample of 
that many lines of text, centered at the line containing the 
reference, will be printed with each reference. Note that the 
symbol file must be loaded to use this option. 

ENVIRONMENTS causes the names of the environments (procedures and blocks) where 
the references occur to be printed, appropriately interleaved with 
the references. If modified by "ONLY", then only the environments, 
and not the references, will be printed. Note that ENVIRONMENTS 
ONLY and TEXT are mutually exclusive. 

GLOBALENVIRONMENTS similar to ENVIRONMENTS, except that references are broken down 
only by global environment (global procedure). Note that 
GLOBALENVIRONMENTS ONLY and TEXT are mutually exclusive. 



PRINTER 

REMOTE 

FILE 



causes output to 
internal ly named 



go to 
"LINE". 



the line printer, by way of a file 



for use when one wishes output to go to both the line 
the terminal . 



printer and 



causes all referenced text lines from the symbol file to be output 
to the user specified disk file; this file cannot already exist. 
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It will be made with the same filetype as the file loaded 
SYMBOL command. I f no symbol file is loaded, an error me 
output to the terminal. 
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by the 

ssage i s 



MERGE/CO I NC I DENCE 



MERGE 



l<- 



I 

|- COINCIDENCE 



— /I *\ < identifier specification>- 

-/I\- : — RANGE — <rang<: spec> 

-/1\- : — CHANGED 

-/1\- : — ALIASES 

_/l\_ : __ TEXT 

| -< i nt eger> 

-/1\ : __ ENVIRONMENTS 

I- ONLY 
: — GLOBALENVIRONMENTS 



ONLY - 



-/1\- 
-/1\- 



— PRINTER 

— REMOTE 

— FILE — < f i 1 e name>- 



SEMANTICS : 

A merged list of the references to the specified identifiers will be produced. To avoid 
confusion The work identifier" will be nullified. All of the options described under the 
command REFERENCES apply. 

DECLARATIONS 

— DECLARATIONS % 

I -< ident i f i er> — 

- -<ident i f i er> - 

LITERAL 
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l<- 



-/1\- 
Vl\- 



— DECLARED — <range spec> 

: — USED 

: — UNUSED -| |-<range speo- 

— ONLYUSED — < range speo 



-/1\- 
-/1\- 

-/1\- 
-/1\- 

-/1\- 
-/1\- 



CLASS <alpha identifier) 

KEYWORD — <alpha identifier) 

— LEVELS — <hex int> 

|- - <hex int> 

— DISPLACEMENTS — <hex int> 

|- - <hex int> 

— IDSONLY 

I -< i n t ege r> 

— (references) 

— <expand> 

— SUMMARY 

~ SHORT 

— <sort> 

— PRINTER 

— REMOTE 

— FILE — <file name> 



<ref erences> 
— REFERENCES 



| < 

I 
/1\_ . 

-/1\- . 

-/1\ 



— CHANGED 

— ALIASES 

— TEXT 

I -<integer> 

. __ ENVIRONMENTS 

I- ONLY 
. — GLOBALENVIRONMENTS 



ONLY 



-/1\- 



RANGE — <range speo- 
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— /1\- 
/1\- 
/1\- 



- FULL 

- BLOCKED - 
-< int eger>- 



<sor t > 



— SORT /1\- SEQNUMBER 

-/1\- ADDRESSCOUPLE - 
-/1\- ALPHABETICAL — 



SEMANTICS : 

A specified set of declarations is isolated and listed along with optional information. The 
options available fall into three categories: those which select the set of declarations; those 
which specify the output to be produced for each selected declaration; and those which specify 
the order and destination of the output. To avoid confusion, the "work identifier" will be 
nu 1 1 i f i ed . 

The defaults, if no options are specified, are as follows: all declarations are included; the 
header line (name, environment where declared, compiler class, sequence number where declared, 
aliases, et cetera) will be printed for each declaration; the output will be ordered 
alphabetically by identifier name, and will come to the terminal. 

Options which control the selection of the set of declarations are: 

<identifier> restricts the set to the occurrences of a given indentifer. 

<ident i f i er>-< ident i f i er> restricts the set to a given alphabetic range. The identifier 

pair must be ordered alphabetically. 



<identifier> :LITERAL 

DECLARED 

USED 

UNUSED 

ONLYUSED 
CLASS 



CLASS - 
KEYWORD 

KEYWORD - 



restricts the set to those identifiers 

specified identifier as a substring. 

restricts the set to 

speci f i ed range . 



which contain this 
those identifiers declared within the 



if no range specification is included, restricts the set to 
those identifiers referenced somewhere in the program. If a 
range is specified, restricts the set to those referenced 
within the range. 

if no range specification is included, restricts the set to 
those identifiers which are declared but never referenced; 
otherwise, restricts the set to those which are not referenced 
within the specified range. 



restricts the set to those identifiers which are only 
within the specific range and not referenced elsewhere. 



used 



restricts the set to a particular compiler class or group of 
compiler classes. The compiler class must appear exactly as it 
does in a headeir line, e.g., BOOLEAN ARRAY, INTEGER, FORMAL 
NAME REAL, et cetera. Only one compiler class may be specified 
for each CLASS option, though the compiler class may contain 
more than one <alpha identifier^ e.g., REAL PROCEDURE. Note 
from the syntax diagram that CLASS may be specified as often as 
desired, thus specifying a group of classes. 



restricts the set to all compiler classes except 
specified in the alpha identifier list. 



those 



restricts the set to a group of compiler classes which contain 
the specified alpha identifier. For example, KEY BOOLEAN would 
cause BOOLEAN, BOOLEAN ARRAY, BOOLEAN PROCEDURE, et cetera, to 
be included. KEYWORD and CLASS may be specified as often as 
desired to generate the desired group of classes. 

selects a group of compiler classes which do not contain the 
specified alpha identifier. For example, KEY- BOOLEAN would 
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include exactly the complement of the classes included by KEY 
BOOLEAN . 



LEVELS 
DISPLACEMENTS 



stack cells 
stack cells 



restricts the set to those identifiers which have 
with lex levels as specified. 

restricts the set to those identifiers which have 
with displacements as specified. 

Options which specify the output to be produced for each selected declaration are: 

IDSONLY displays only identifier names and not any of the other header information. 
The output is displayed in ascending alphanumeric order, with a default 
field width of 20. The field width may be altered by specifying an optional 
f i e 1 d wi dth . 

REFERENCES references to the selected declaration will be listed. This option may 
itself be modified by any of the options listed under the REFERENCE command, 
except PRINTER or REMOTE, with the same effects. 

EXPAND the text of the selected declaration will be written out (expanded) if the 
identifier is an item such as a define, array or file, which has text 
associated with its declaration. This option may itself be modified by the 
options FULL and BLOCKED, as described under the command EXPAND. Note that 
only the first or the final expansion may be obtained. (If a full expansion 
of a define is requested, it will be done in the context of its first use.) 
EXPAND may be modified by an integer, which allows specification of an 
approximate limit on lines of text printed for each declaration. The default 
is ten. 

SUMMARY a summary of the number and kinds of references to the selected declaration 
will be printed. 

SHORT the aliases of the selected declaration will not be printed. Currently, only 
ESPOL keeps track of aliases; for other languages, SHORT has no effect. 

Options which specify the order and destination of output are: 

SORT controls the order in which the selected declarations will be printed. When 
SORT is followed by SEQNUMBER, the output will show the declarations sorted on 
sequence number where declared. When SORT is followed by ADDRESS COUPLE, the 
output will show the declarations sorted first on address couple (lex level and 
displacement of stack cell), then on sequence number where declared. When SORT 
is followed by ALPHABETICAL, the output will show the declarations sorted first 
alphabetically, then in order of occurrence. (This is the same output that 
would be produced if SORT were not specified). When SORT is followed by more 
than one item, then multiple sets of output will be produced. 



PRINTER causes output to go to the line printer, by way of 
"LINE" . 



f i 1 



REMOTE 
FILE 



causes output to come to the terminal, even if it is also 
printer. 



the FILE option is only valid when used with the REFERENCE option 
semantics are explained with the REFERENCE command. 



e internally named 
going to the line 
Its 



LIST 

— LIST > 

> | 

I 



-/1\- 



-<seq no>- 



-< in t eger>- 



— <seq no>- 
— END 



-/1\- 
-/1\- 
-/1V 



-<procedure id> 

-<interface id> 

— PRINTER 

— REMOTE 

— FILE — < f i 1 e name>- 
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SEMANTICS : 



Tex is listed from the symbol file. If no sequence numbers are specified, the entire file is 
»,!i k i ■ I . se S" ence . numb e r (0 and/or sequence number pair(s) are specified, only those lines 
will be listed. When the sequence number, or first sequence number of a pair, is followed by 
< and an integer, the command will back up that many records before beginning to list. 
Entire procedures and interfaces may be listed by using the procedure or interface identifiers 
in place of the sequence range. 

The available options are: 

PRINTER causes output to go to the line printer, by way of a file internally named 
L I NE . 

REMOTE causes output to come to the terminal, even if it is also going to the line 
printer. 

FILE causes all lines in the sequence range or all lines of the requested procedures 
or interfaces to be written to the user requested disk file; this file cannot 

a i re 2S. 3 L e ? ,st • lt W1 " be made with the saine filetype as the file loaded by 
the SYMBOL command. 

D2 523 IXREF - IMPROVE QUALFICATION 

Previously <procedure specif ication> had to be specified all the way to a global procedure- 
i.e., HARRY OF JOE was an acceptable specification if JOE was a global procedure and HARRY 
was a procedure declared within JOE. HARRY by itself, however, was only acceptable if there 
was a global procedure HARRY. 

The (procedure spec i f i ca t i on> now only need be long enough so that its outermost environment is 
tne best candidate of the possible environments specified by that identifier. The "best 
candidate is defined as follows: 

1. If there exists only one environment (i.e., MODULE or procedure) with this name, use it. 

2. If more than one environment exist for this name, limit the possible candidates to the most 

global. 

3 If there are equally global environments for this name, use the first. 

If more than one environment exist for a specified name, a warning of possible ambiguity and 
the chosen environment are output. 

Examp 1 e : 

JOE 

HARRY 
HARRY 
FRANK 

TOM 

STEVE 
BOB 

STEVE 

HARRY 

The environments are the following: 

JOE 

HARRY OF JOE 

HARRY 

FRANK 

TOM OF FRANK 

STEVE OF TOM OF FRANK 

BOB OF FRANK 

STEVE OF BOB OF FRANK 

HARRY OF STEVE OF BOB OF FRANK 

"TOM" would locate "TOM OF FRANK". TOM is a unique environment. 

"STEVE" would locate " STEVE OF TOM OF FRANK " . Since both STEVE's are at the same level the 
tirst is used and a warning is emitted. 

"STEVE OF BOB" would locate "STEVE OF BOB OF FRANK". BOB is a unique environment. 

"HARRY" would locate "HARRY"; i.e., it is the most global, and a warning would be emitted. 

"HARRY OF STEVE" would be an error. The environment used for STEVE is "STEVE OF TOM OF FRANK" 
(i.e., the first of the STEVE' s on the same level) and there is no HARRY in that environment. 

"HARRY OF STEVE OF BOB" would locate "HARRY OF STEVE OF BOB OF FRANK". BOB is a uniaue 

environment. s c 
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"HARRY OF JOE" would locate "HARRY OF JOE". JOE is unique. 

D2 5 24 IXREF - ENVIRONMENT IMPROVEMENT 

The ENVIRONMENTS option to the REFERENCE, MERGE, COINCIDENCE and DECLARATION commands has been 
modified so that any level of environments can be listed by specifying the level. Previously, 
only global environments (through the GLOBALENV I RONMENTS option), or the complete list of 
environments (through the ENVIRONMENTS option) could be obtained. The new syntax for the 
ENVIRONMENTS option is the following: 



ENVIRONMENTS 



-<number>- 



I- ONLY -I 



■I 



<number> specifies the maximum number of environments to be listed. 

D2555 IXREF - RECOGNIZE LOWER CASE INPUT 

INTERACT I VEXREF now translates to upper case all lower case characters in a line of input read 
from a remote terminal. 



D2823 IXREF 



•BREAK* 



Previously, whenever INTERACT I VEXREF was waiting for a null input as the signal to transmit the 
next page of output, any nonblank string was discarded and a "'BREAK*" response was given. 
INTERACT I VEXREF will now process any nonblank "break string". If the "break string" is not a 
recognized command, the normal "*BREAK*" is given; otherwise, the command will be processed. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
INTERACT I VEXREF 



PI 652 IXREF - FILES FROM "NEWP" COMPILER 
INTERACT I VEXREF files generated by the NEWP compiler are now accepted and used. 
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DOCUMENT CHANGES NOTES (D NOTES) 
JOB FORMATTER 



Word . 


[47 


8 




• 


39 


8 






31 


8 




• 


14 


15] 


Word 1 




Words 2-t 


i 







1)263 7 JOBFORMAT - REASON FOR QUEUE "DS" 

The system will now display the reason for queue insertion failure. 

This message is passed to the MCS if ORGWANTSMSG is TRUE. The message has the following 
format : 

21 Controller result 

6 Miscellaneous message 

3 Queue reject notice 
LSN 

Length of message in characters 
Text 

D2967 JOBFORMAT - LOG BOXES FOR JOBS 

The MCP now maintains a list of "boxes" that a task/job has occupied during the life of its 
execution, as well as a list of "boxes" that the task/job could have occupied. These lists are 
logged in the EOT and EOJ log records in the "EOTBOXNOX" word. EOTBOXNOX contains four 8-bit 
fields which are the following BOX lists: DATA ALLOWED, CODE ALLOWED, DATA OCCUPIED and CODE 
OCCUPIED. 

JOBFORMATTER (and LOGANALYZER) will now display two new lines in the EOT/EOJ record print out, 
as f o 1 1 ows : 

DATA ALLOWED IN XXX; CODE ALLOWED IN XXX 
DATA OCCUPIED XXX; CODE OCCUPIED XXX 

where XXX is a list of BOX names (GLOBAL, LOCAL 1 , LOCAL2 , etc.) or "NO BOX" (which is used when 
the "box" list is empty). 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
JOB FORMATTER 



PI 074 JOBFORMAT - " JOBFORMATTER** LOOP 

It was possible for JOBFORMATTER to loop while printing the I/O error summary of a job. This 
problem has been corrected. 

PI 123 JOBFORMAT - "SEG ARRAY" PRINTING "MCS" STRING 

JOBFORMATTER will no longer be DS'ed with a SEG ARRAY error when trying to print a long (more 
than 80 characters) MCS MESSAGE RECORD. 8 P 8 (.more 

PI 709 JOBFORMAT - INCLUDES "LSN" FOR JOB SUMMARY 

JOBFORMATTER will now only include the LSN to the block character printout of a job summary if 
the BCLSNF bit is set in the pnntmask. ' 

P2271 JOBFORMAT - ADD CASE "22, LP" 

Case 22 has been added to JOBFORMATTER to accomnoda t e the LP command. 

P2272 JOBFORMAT - "SCR" JOBS GENERATE " JOBFORMATrER" FAULT 

I^r??f! AT Tl^p? il F "?? h - ndl ?^i^9S S " that d ° " 0t have a mi entrv - This was causing an 
INVALID INDEX fault in JOBFORMAT on systems with OPEN set when trying to print the block 
character heading of an SCR job. 

P2323 JOBFORMAT - NOT SKIPPING BAD RECORDS 

JOBFORMATTER wi 1 1 no longer, under certain circumstances, allow bad records to slip through. 
P2 3 24 JOBFORMAT - PREVENT "INTEGER OVERFLOW" 

™££in J ™ FOR, ! , ^ TTER , is convertin 8 a very large data memory integral to display form, an INTEGER 
OVERFLOW will no longer occur. 

P238 2 JOBFORMAT - "CLOSE" TYPES 

JOBFORMATTER (and LOGANALYZER) will now display the correct CLOSE types. 

P23 83 JOBFORMAT - "JOB ENTERED SYSTEM" TIME 

The "JOB ENTERED SYSTEM" message will now only be printed for WFL jobs, not tasks that look 
like jobs (TASKNUMBER=JOBNUMBER) or tasks run by the ALGOL compiler ( XREFANALYZER ) Also the 
values and descriptions used by JOBFORMATTER for TASK TYPE now match those used by the MCp! 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
LCOBOL 



P2005 LCOBOL - "TU" FIRMWARE BUFFER LENGTHS 

The word in the codefile which contains the lengths of the TU Firmware buffers was incorrect in 
some cases. This has been corrected. 

P224 5 LCOBOL - "IF" STATEMENT WITH "OPTIM" CORRECTION 

Incorrect code was being generated in some cases for the IF statement when the dollar option 
OPTIM was set. This problem has been corrected. 

P2 246 LCOBOL - "DISPLAY" STATEMENT CORRECTION 

Incorrect code was being generated in some cases for the DISPLAY statement. This problem has 
been corrected. 

P2463 LCOBOL - INCORRECT CODE, INVALID SYNTAX ERROR 

1. It was possible to get an invalid syntax error "DUPLICATE LABEL" for labels *>«" similar 
names or for no error to be generated for a statement such as: "GO TO <label>.", where the 
label did not occur in the program. 

2. It was also possible for incorrect code to be generated or for the compiler to loop 
following a statement of the form: 

WRITE <record> BEFORE <integer> LINE> 

3. The SRR instruction was sometimes generated as three bytes long instead of two bytes. 
These problems have been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
LOADER 



D2572 LOADER - DISALLOW "PRINTERLABELS" OPTION 

The PRIOTERLABELS option (option 24) has been removed from the MCP and all related software. 
"PRINTERLABELS" is no longer a valid option name for SET and RESET statements. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
LOADER 



PI 07 8 LOADER - THREE-MULTIPLEXOR SYSTEM 

LOADER will now properly handle 3-mu 1 t i p 1 exor systems. Previously, an attempt to do I/O via 
Multiplexor C would abort the load. 

PI 155 LOADER - "LOADER" VS. "IV" 

The LOADER IV routine will now relocate sectors in error. 
PI 178 LOADER - BINARY DISK ADDRESSING 

The LOADER can now handle diskpacks that need binary addresses. 
PI 388 LOADER - CHANGE "ODT, " PANEL DISPLAYS 

The ODT BOJ message has been changed to indicate the appropriate B6700/B6800 system. 

The processor panel display has been changed to show the correct LOADER level. 
PI 770 LOADER - "OLAYROW" GREATER THAN "1200" 

LOADER can now handle OLAYROW sizes greater than 1200 segments. The maximum row size depends 
on the amount of disk available for this function. 

PI 8 18 LOADER - "LOADER" VS. "GMM" 

The LOADER now may run with global memory on line. The LOADER will run entirely in local 
memory and will neither interfere with other systems nor be bothered by other systems. Care 
should be taken not to CM to the LOADER with global memory on line. 

PI 8 52 LOADER - "TD8 50 ODT" 

The LOADER will now work with TD850 ODTs . 
P2006 LOADER - UNIT DISPLAY 

The LOADER will no longer fault if more than 43 disks or packs are on line. 
P2194 LOADER - "BX387" FIRMWARE LOAD 

SYSTEM/LOADER can now load diskpack FIRMWARE files. The format of the command is the 
foil owi ng : 

LH PK<nnn> MPX<m> PATH<p> <filename> FROM <tapename> 

P2577 LOADER - "B9246" DRUM PRINTER IN DUMP 

The memory dump of LOADER has been corrected to handle B9246 drum printers. 
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"LOG IOCONDITION" RESULT DESCRIPTORS 
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indicate retries 



A new maintenance log entry subtype=9 has been added to log I/O results that 
that were not errors (diskpack read and write 4"C801" and read 4"0C01"). 

These entries will be printed in response to a LOG MAINT or a LOG IOCONDITION request; they 
will not be printed for a LOG IOERROR request. 

These diskpack result descriptors are accepted as successful I/Os and are not retried. 

D2 841 LOGANALY - "MAJOR TYPE=2 MINOR TYPE=5" VS. BAD LOG TYPE 

LOGANALYZER will no longer consider MAJOR TYPE=2 MINOR TYPE=5 log records as being bad. These 
records are output from several SCR maintenance routines and have no meaning for LOGANALYZER. 
The RADAR software item is designed to use these records. 



D2 842 LOGANALY 



"ABORT, ERRORS" VS. OTHER OPTIONS 



The ABORT, ERRORS and DATE options cannot be used with any of the other LOGANALYZER options due 
to conflicts in the manner in which the data is manipulated. The following error message will 
result if one of these options is used with any other option: 

"DATE, ABORT, ERRORS CANNOT BE USED WITH ANY OTHER OPTION" 

The following syntax diagram should replace the diagram in the System Sofware Operational 
Guide, Vol 2 (Form No. 5001688), Page 6-1-1. 



LOG 



- / <INTEGER> 

- " — <logname> — 



j-<t ime> 

-<dat e>- 



I 

| - TO ■ — < t ime>- 



-<da t e>- 



- ABORT 

- ERRORS 

- DATE 

-< logana I yzer options>- 



I 



<loganalyzer options> 

|< 

- ALL 

- BOJ 

BOT 

- EOT ■ 

EOJ 

10 

MSG 

MCS 

_/l\ job " — <filename>- 

SESSION - 
TASK 



/ --■■ -\ 



-< int eger>- 



THRU <integer> 



-/1\- MIX 



i -< int eger>- 



THRU <integer> 



HL 
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MAINT 

IOERROR 

IOCONDITION - 




DUMP 

SECURITY 

COMMENT 

SORTS I ZE — 

UNSORTED 

CPUERROR 



Also, change the seventh example on Page 6-1-2 to read as follows: 
"LOG 1200 5/11/76 TO 1700 5/11/76 MIX 345" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
LOO ANALYZER 



PI 370 LOGANALY - ACCESSCODE 
The log file will store the accesscode (without password) in the following log records: 



BOT/BOJ 

EOT/EOJ 

FILE OPEN 

BEGINNING OF MCS SESSION 

END OF MCS SESSION 

SECURITY VIOLATION 



item #1 1) 
item #25) 
item # 8) 
item #11) 
i tern #25) 
i tern # 7) 



LOGANALYZER will include the accesscode whenever it is not null when analyzing any of the log 
records listed above. LOGANALYZER may be used to obtain information concerning accesscodes 
using CONTROLLED files from the FILE OPEN records. 

P1812 LOGANALY - SYSTEM SERIAL NUMBER IS * DIGITS 

As part of the effort to expand system serial numbers, LOGANALYZER now constructs file names 
with system serial number length of * digits. 

PI 859 LOGANALY - "DT" 

LOGANALYZER will now analyze DISKETTE I/O error retries found in log. 
PI 940 LOGANALY - FIRMWARE "ID" IN "LH ODT" COMMAND 

LOGANALYZER will now display the <firmware id> of the LH ODT command (if one was supplied). 
P2189 LOGANALY - CARDNUMBER VS. "P3" WORD 

On a B6800 system, LOGANALYZER will now only display the "CARD NO:" for PROM CARD PARITY and 
RAM CARD PARITY errors and not take a fault on the other error conditions. 

P2193 LOGANALY - HALT/LOAD RECORDS 

LOGANALYZER will now display the system serial number correctly for HALT/LOAD log entries, 
four digits of the serial number will be displayed for system with 4-digit serial numbers. 

P22 62 LOGANALY - GARBAGE OUTPUT ON "UNSORTED" 

LOGANALYZER occasionally produced extra or garbage outputs when the UNSORTED option was used. 
This problem has been corrected. 

P2378 LOGANALY - CHARACTER COUNT ON LOG TITLE 

LOGANALYZER will now handle quoted log titles correctly. 

P2586 LOGANALY - FAMILY SUBSTITUTION VS. "READK(LOCHDR) " 

LOGANALYZER will now be able to find SYSTEM/ SUMLOG on DISK when run with the following FAMILY 
stat emen t : 

FAMILY DISK=PACK OTHERWISE ANOTHERPACK. 



Al 1 
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DOCUMENT CHANGES NOTES (D NOTES) 
LOGGER 



D2502 LOGGER - ACCESSCODE 

The log file will now store the accesscodc (without password) in the following log records: 

BOT/BOJ (item #11) 

EOT/EOJ (item #25) 

FILE OPEN (item # 8) 

BEGINNING OF MCS SESSION (item #11) 

END OF MCS SESSION (item #25) 

SECURITY VIOLATION (item # 7) 

LOGGER will allow "ACCESSCODE" as a data type for record selection or reporting. The 
accesscodc is stored as a string item in the JOBSUMMARY file created by LOGGER, and may be used 
as any other string item by LOGGER. It is not stored in the FILEIODATA file since this is 
generated using only the FILE CLOSE records, which do not contain the accesscode (the 
accesscode of a task may be changed between file open and file close time). 

D2843 LOGGER - SUMMARY REPORTS 

LOGGER will now produce correct summary reports when more than one item is specified in a BREAK 
s tat ement . 

Exampl e : 

BREAK ON UNITNO, KIND TOTALING IOTIME 

The totals for the BREAK items in the detailed reports will also be correct and not totaled 
under the last BREAK item. 

D2844 LOGGER - LAST "STATISTICS" INTERVAL SAVED 

LOGGER would not write the last statistics interval to the STATISTICS file at EOF of the last 
input log file. This problem has been corrected. 
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LOGGER 



PI 8 13 LOGGER - ITEMS EXTENDING PAST COLUMN "72" 

LOGGER will now give a syntax error for input items extending past column 
record . 

P2263 LOGGER - ELAPSED TIME FOR RESTART "MCS" SESSIONS 



72 of 



LOGGER will now compute the ELAPSEDTIME value for RESTART MCS sessions from the 
LOGOFF log records instead of using the ELAPSEDTIME value in the LOGOFF record 
correct several cases of incorrect ELAPSEDTIME Hogging. 

P2264 LOGGER - ELAPSED TIME OF JOBS RUN THROUGH MIDNIGHT 

LOGON will now correctly compute the ELAPSEDTIME of jobs that run through midnight. 

P2 3 84 LOGGER - "YTDFILE" UPDATE 



LOGGER will now allow the "YEAR TO DATE" file to run longer than one calendar year 
stored i n each of the YTDFILE records is now in Julian form (YYDDD) . All old 
still compatible with this version of LOGGER. 
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the 



i npu t 



LOGON and 
Th i s will 



The date 
d YTDFILEs are 



P2556 LOGGER - "ALINK" VS. "MATCHM" "(BOJ.EOJ)" 

The size of the linked list (ALINK) used by the procedure MATCHM to store BOJ and EOJ record 
pairs has been increased to handle very large log files with jobs that run for a very lone 
t ime . " 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
LTTABLEGEN 



PI 124 LTTABLEGEN - USER SPECIFIED TABLES 

SYSTEM/TRAINTABLES will now be properly modified to reflect user specified train tables. 

PI 130 LTTABLEGEN - "450/750 LPM" TRAIN PRINTERS 

450/750 LPM train printers will now have appropriate train tables loaded for the following 
trains: 

16 char EBCDIC-3 -TRAINID=1 
64 char EBCDIC-3 -TRAINID=5 
64 char SWEDEN OCR-B -TRAINID=14 

Note: Although the appropriate tables are loaded for TRAINID' s 1 and 5, they will show 
respectively as EBCDIC18 and EBCDIC72 instead of EBCDIC16 and EBCDIC64. This 
discrepancy will be resolved later. 
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DOCUMENT CHANGES NOTES (D NOTES) 

MAKEUSER 

D2 5 03 MAKEUSER - ACCESSCODE 

MAKEUSER and USERDATAREBUILD have been modified to handle the ACCPSW LIST nodes, node type 25, 
including handling the crunching of the accesscode password. An accesscode may be added to a 
usercode's entry in the USERDATAFILE through MAKEUSER, using the node id "ACCESSCODELIST" . The 
syntax is the same as for any other list item in MAKEUSER. An ACCESSCODELIST item consists of 
either an accesscode alone, or an accesscode followed by a slash followed by an accesscode 
password. If a password is desired, one must be supplied when the accesscode is created, or 
one may be supplied later only through MAKEUSER. If an accesscode is created with a password, 
the password may only be deleted through MAKEUSER. The password on an accesscode may be 
changed (through CANDE or WFL) , but a password may not be added on an accesscode created 
without one, or deleted from an accesscode created with a password (unless a privileged user is 
running MAKEUSER). If an accesscode already exists for a usercode, with or without a password, 
when MAKEUSER tries to create it, the old one will be deleted and the new one inserted in the 
USERDATAFILE. This is done to avoid accidentally defining the same accesscode with and without 
a password or with different passwords. MAKEUSER passes the accesscode password to 
USERDATAREBUILD uncrunched; USERDATAREBUILD them crunches it the same way the usercode password 
is crunched and stores the accesscode and crunched password (if any) in the USERDATAFILE. 

The "ACCESSCODENEEDED" bit may be set or reset through MAKEUSER, using the same syntax as for 
any other bit item in the USERDATAFILE. 

D2964 MAKEUSER - ENHANCEMENTS FOR "DL USERDATA" 

MAKEUSER has been modified to read and write the *SYSTEM/USERDATAFILE on whatever disk/pack 
family has been specified via the ODT Disk Location command DL USERDATA (see GENERAL note 

D2535). 

The automatic family selection for an input file (via OLDFILE) or an output file (via USERFILE) 
will be bypassed if either FAMILYNAME (PACKNAME) or TITLE has been equated for that file. 

The System Software Operational Guide, Volume 2 (Form No. 5001688), should be changed as 
follows with respect to label equation of these files: 

for OLDFILE: discard the clause " but in this case, the disposition options ... 

lost if a new one is locked". 

for USERFILE: Add a new second sentence: 

"If the USERFILE is equated during a COPY NEW, then upon completion 
the same TITLE and FAMILYNAME is applied to OLDFILE; any subsequent 
COPY commands will use the equated OLDFILE." 
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DOCUMENT CHANGES NOTES (D NOTES) 
MCP-GENERAL 



D2935 MCP-GENERAL - "MCP" GENERAL INFORMATION 

New features have been added to the ODT messages as a result of the following: 

B6800 Multiprocessor Systems 
Global Memory Systems 
Inter-Process Communication 
Libraries 
Disk Lo cation 
7A Tape Con t ro 1 

See GENERAL note D2535, "Revised ODT Messages", for complete syntax and semantics. 
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1 


Date 






2 


Time 






3 


Type 


31 


16 






15 


16 


4 


MCPID 


47 


12 






35 


12 






23 


12 






1 1 


12 
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DOCUMENT CHANGES NOTES (D NOTES) 
MCP 

D2246 MCP - "B6800 MCP" 
New hardware interrupt literals are now recognized, and, where appropriate, logged. 
The format of log records reporting B6800 processor errors or diagnostic interrupts is as 

fol I OWS : 

Word Contents 



2 (LOGMAJMAINT) 
15 (MLCONFIDENCEERROR) 
Sy s t em Ser i al # 
Mark Digit 
Mark Level 
12 = Patch Level 

5 ProcessorlD, WHOI Value 

6 PI Parameter, PI Interrupt Parameter with Tag set to 

7 P3 Parameter, P3 Interrupt Parameter with Tag set to 

8 P2 Parameter Tag 

9 P2 Parameter, P2 Interrupt Parameter with Tag set to 

The interpretation of PI, P2 and P3 is based on B6800 processor specifications. 
D2249 MCP - "OF" OF "GETSTATUS" WAITING ON <FILENAME> 

OF has been added to the possible replies of the MCP GETSTATUS RSVP of "WAITING ON <filename>" 
The possible replies are now "OK", "DS" and "OF". 

D2268 MCP - IGNORE UNKNOWN UNIT TYPES 

The MCP will now ignore units which are present at Halt/Load time but have a unit type (as 
supplied by the PC encoder card) which is greater than any type the MCP is programmed to 
handle. Previously, presence of such a unit on the system would cause Halt/Load initialization 
to fail with ah INVALID INDEX. 

Note that it is still not possible to Halt/Load with an unknown unit that uses a status-change 
interrupt, since the MCP must correctly map these by control and unit. For example, this change 
makes it possible for an older MCP to ignore diskette but not model 235 diskpacks. 

D2269 MCP - "RESERVE" ENHANCEMENTS 

The operational characteristics of RESERVEDISK have been improved. Previously, RESERVEDISK 
would hang waiting for exclusive use of a file before attempting to copy it. This caused 
delays - some of quite extended duration - during the pass of the permanent files residing in 
the area being reserved. RESERVEDISK may now continue through the list, and later recycle 
through it on operator request, presumably after some action has been taken to correct the 
blockage. If the operator is unable to correct the hangup, he may "QT" RESERVEDISK, which will 
create a new directory of XDISK titled "RESDISK". 

RESDISK is an XDISK file which is titled in the same way as "BADDISK": 

RESDISK/FMLYINX<fami ly index no . >/UNIT<un i t no>/AD<address> . 

If a RESDISK file is encountered on a subsequent reserve, it will be removed The effect of 
this is that any part of the old RESDISK which intersects with the new RESERVEDISK 
specification is absorbed into the new set of reserved disk, and the non-intersecting part is 
released as available for system use. The rationale of this operation is that it is a simple 
solution to an otherwise complex naming problem. 

RESERVEDISK, at the end of a pass through the permanent files which intersect the area being 
reserved, will inform the operator of any files which could not be moved. The operator may 
then take one of three actions, as follows: 

DS Releases all space reserved during this run of RESERVEDISK. This is equivalent to II 7 
act ion. 

OK Causes another pass through the permanent intersecting files. If any are still blocking the 
reserve, they will be displayed. If no blockage now exists, RESERVEDISK wi 1 1 proceed to 
handle temporary files. 

QT Causes creation of RESDISK files out of areas which would otherwise be released, and then 
send the reserve to end-of-job. This option may be used to cut off the RESERVEDISK 
overhead, while preventing the subsequent allocation to areas which Inter may be required by 
areserve. 
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RESERVEDISK will move executable and intrinsic files (except JOBCODE) even if they are open. 
Access to the headers is obtained with a "conditional exclusive" request and is gained if the 
file is not being used; otherwise, the file is opened as "shared". This may prove valuable for 
files such as CANDE and intrinsics, which are accessed via PRESENCEBIT and not logical I/O; 
therefore, disk addresses will not be left floating in buffers. Since they are read-only 
files, no WRITE to the wrong area after copying will occur. If a datafile is encountered open 
with only inactive rows intersecting the reserve area, these rows will be moved up to the first 
active row encountered. 

The job number of the first stack to open a temporary file is displayed, if the stack is still 
alive, which should assist the operator in identifying which job is blocking the reserve. At 
this time (during a hang on scanning for the existence of temporary files), the operator may do 
a QT, the effects of which are described above. 

Old BADDISK files are retained in the directory, even though the rows are released, if a 
subsequent RESERVEDISK absorbs them. The rowsize is set to zero, identifying the situation to 
the operator on a "PD" message. 

If a BADDISK file exists and a reserve is done overlapping its high order address end, 
RESERVEDISK will no longer hang on a duplicate name. 

D2271 MCP - "GETSTATUS MCSNAME" 

The following are examples of GETSTATUS calls to convert MCSNAME to MCSNUMBER and MCSNUMBER to 
MCSNAME. 

Name to number : 

A[0] := 2; 
A[l] := 0; 

REPLACE POINTER(A[3]) BY <mcsname in display form>, NULL; 
GETSTATUS(0 ftl [46:1] ft 2 [7:8] ft 1 [15:8], 0, 
ft 1 [37:1], A); 

The MCSNUMBER is returned in A[2+37+l]. 

Errors are returned in the normal GETSTATUS method if 
there is no MCS by that name or if the DCP is not is 
not running. 



Number to name: 



A[0] 
A[l] 
A[3] 



= 2; 
= 0; 

<mcsnumber> ; 



GETSTATUS(0 ft 2 [7:8] ft 1 [15:8], 0, ft 1 [37:1], A); 

The MCSNAME is returned in standardform in 
A[2 + A[2+37+l]. [32:17]]. 

Errors are returned in the normal GETSTATUS method if 
there is no MCSNAME by that number or if the DCP is 
not running. 

D2273 MCP - "IV" VS "235" 

The IV routines for 235 diskpacks have been changed. 235 packs come from the factory already 
initialized. If the packs are damaged, they must be returned to the factory to be 
reini t ia 1 i zed. 

The INITIALIZE and VERIFY routines in the MCP or LOADER must be used to put a label on 235 
packs. However, these routines will not reinitialize any cylinders on the 235 packs. 

D2430 MCP - "MCP" RESTRUCTURING 

Several changes have been made to improve the maintainability of the MCP on the III.l release, 
as f o 1 1 ows : 

The MCP has been converted from ESPOL to NEWP. Details of the relevant language features 
are described in the following notes: 

NEWP Note D2804 - "Implementation of NEWP" 
MCP Note P2288 - "MCP Conversion to NEWP" 

The MCP has been grouped into logical modules. Each global item belongs to a particular 
module. Various "interfacing" defines have been added for accessing data from other 
mo d u 1 e s . 

Several external procedures which used MCP data structures have been moved into the MCP 
symbolic. These include SORT, MAINTENANCE, Reader/Sorter routines and some of the 
intrinsics which had previously been written in ESPOL. 
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These changes have affected the way in which an MCP is generated, as follows: 
Comp i 1 a t i on in NEWP 

DUMPINFO and LOADINFO are not supported. 

Dollars cards not beginning with SET or RESET will not affect unmcntioned options. To 
reset all options, SCLEAR can be used. 

The compiler produces its own cross-reference; SYSTEM/XREFANALYZER need not be run. 

A MAKEHOST and a SEPCOMP facility exist similar to ALGOL, except that NEWP does its own 
bi ndi ng . 

Symbolic Consolidation 



SORT and MAINTENANCE need not, and cannot, be separately compiled and bound. They can, 
however, be changed using SEPCOMP. 

The DCALGOL components of the MCP are compiled and bound as before. 

The ESPOL and PLI intrinsics no longer do a LOADINFO from the MCP. 

SAMPLE HOST COMPILE DECK. 



JOB NEWP/MCP; 
BEGIN 

PT( STATUS ==0) ; 

PROCESS SYSTEM/PATCH [FT] ; 
FILE TAPE = SYMBOL/MCP, 

PATCH = PATCH/NEWPMCP ; 
DATA 

$. COMP ARE MARK 
$# 

SCLEAR MERGE LINEINFO MCP MAKEHOST 
<pat ches> 
? % END PATCH INPUT 

WAIT(PT(VALUE)=1); 

(F PT( VALUE) NEQ 1 THEN ABORT "BAD PATCH"; 

COMPILE NEWP/HOST WITH NEWP [CT] LIBRARY; 
COMPILER FILE TAPE = SYMBOL/MCP ; 
COMPILER FILE CARD = PATCH/NEWPMCP DISK; 

IF CT ISNT COMPILEDOK THEN ABORT "BAD COMPILE"; 
REMOVE PATCH/NEWPMCP; 

BIND NEWP/MCP BINDERfBT] LIBRARY; 

BINDER FILE HOST= NEWP/HOST; 
DATA 

BIND JOBFORMATTER FROM SYSTEM/ JOBFORMATTER; 

BIND WFL FROM SYSTEM/ WFL ; 

BIND CONTROLLER FROM SYSTEM/CONTROLLER ; 

BIND CCSTRINGCONV FROM SYSTEM/CCSTRINGCONV; 

BIND CCVARIABLEPPB FROM SYSTEM/CCVARIABLEPPB; 

BIND CCSTRINGFUNCTION FROM SYSTEM/CCSTRINGFUNCTION; 
i 
IF BT ISNT COMPILEDOK THEN ABORT "BAD BIND"; 

END JOB. 
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SAMPLE SEPCOMP DECK 



JOB NEWP/SEP; 
BEGIN 

PROCESS SYSTEM/PATCH [PT] ; 
FILE TAPE = SYMBOL/MCP, 

PATCH = PATCH/NEWPSEP ; 
DATA 

$. COMPARE MARK 
$# 

SCLEAR LINEINFO MCP SEPCOMP " SYSTEM/MCP . " 
<pa t che s> 

? % END PATCH INPUT 
WAIT(PT(VALUE)=1) ; 
IF PT( VALUE) NEQ 1 THEN ABORT "BAD PATCH" ; 

COMPILE SEP/MCP WITH NEWP [CT] LIBRARY; 
COMPILER FILE TAPE = SYMBOL/MCF ; 
COMPILER FILE CARD = PATCH/NEWPSEP DISK; 

IF CT ISNT COMPILEDOK THEN ABORT "BAD COMPILE"; 
REMOVE PATCH/NEWPSEP; 

END JOB. 

D2439 MCP - DIRECTORY CONVERSION 

The MCP will no longer recognize or convert disks or packs that use pre-II.7 directory format. 

D2447 MCP - "COPY" VS. SERIAL NUMBERS 

Library Maintenance has been changed to use serial numbers when they are specified for source 
disk and destination disk volumes. 

Note that when a non-zero serial number is specified, family substitution does not take place. 

D2452 MCP - BINARY PACK ADDRESSES 

The MCP now supports binary addressing of diskpacks. The controlware loaded into the diskpack 
control can be either binary or decimal. 

In order to change from one type of controlware to the other, do the following: 

1. CM to the MCP to be used. 

2. Halt/Load on the MCP to be used. In the case of duplicated MCP's, be sure to Halt/Load on 
every backup pack involved. 

3. Halt the system and load the new controlware into every diskpack control. 

4. Halt/Load the system. 

Do not use the HOST LOAD command (LH) to change types of firmware. 

D2463 MCP - "RESOURCECHECK" 

The tape resource subsystem (ODT option RESOURCECHECK) has been changed. The count of 
available tapes in the system pool is now taken as the number of "existing" tape units minus 
the count of reserved, saved, in use and "set aside" (tapes already requested via a RESOURCE 
statement in a job) tapes. An "existing" tape unit is a tape unit that has been READY'ed at 
least once since the last Halt/Load. Formerly, the count of available tapes in the system pool 
was taken as the number of ready tapes minus the count of reserved, in use and "set aside" 
tapes . 

D249 3 MCP - ACCESSCODE 

Overv i ew 



The B6000/B7000 system software has been modified so that a file can require an ACCESSCODE 
before access is granted. One of the results of this is to enable control of access rights to 
a file among different users with the same usercode. 

An additional item has been added to the USERDATAFILE called " ACCES SCODEL I ST " , consisting of 
ACCESSCODEs optionally protected by passwords. A new task attribute called "ACCESSCODE" has 
been added (the task's ACCESSCODE). An ACCESSCODE may be assigned to a session, job or task 
through CANDE, RJE, WFL and the other compilers; however, it is validated first in the 
USERDATAFILE. SYSTEM/GUARDFILE has been modified so that the type of access granted to a file 
(NO, RO, WO, RW, XO) can be determined by usercode, program name, accesscode or any combination 
of these three items. A new SECURITYTYPE file mnemonic called "CONTROLLED" has been added. It 
is equivalent to "GUARDED" (CLASSB) except the guardfile will be invoked even for the creating 
(owning) usercode. File open in the MCP has been changed so that when a guardfile is invoked, 
the accesscode of the requesting task is also checked. 
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ACCESSCODE Task Attribute 

A new task attribute, ACCESSCODE, has been added to the MCP . It is a pointer valued task 

attribute. An accesscode may be protected by a password, as the usercode is, but only the 

accesscode is stored in the task, not its password. An accesscode may have no more than one 

password. Both the accesscode and its password are stored in the USERDATAFILE, but the 

password is crunched (like the usercode password), so it is never listed explicitly. If an 

accesscode has a password, it must be specified if the attribute is to be changed, but only the 

accesscode is returned on read access. 

Examp 1 e : 

REPLACE MYSELF. ACCESSCODE BY " ACCESS/ ITSPW. " ; 
The following statement would return "ACCESS", in X[*]: 

REPLACE POINTER (X) BY MYSELF. ACCESSCODE; 

The MCP will check the validity of the accesscode and password each time it is changed on an 
active task. Attempting to change to an invalid acces scode/pas sword will be a fatal run-time 
error. The accesscode of the parent task will be inherited by any subtasks (including a job, 
CANDE session or RJE subtask) unless the usercode or accesscode is explicitly specified to the 
subtask. If the usercode of an active task is changed, the accesscode for the task becomes 
nu 1 1 . 

In order to change the title of a file or the security of a file or to remove a file, the user 

must be running under the usercode that owns the file (except for privileged users). If the 

file is "CONTROLLED", the user must also supply or have assigned to his session an accesscode 
which has read/write access to the file. 

USERDATA 



USERDATA in the MCP has two new functions to handle accesscodes. 
Function 11: VALIDATE ACCESSCODE/PASSWORD 



TSK may be a ta 
The LOCATOR is 
OUTSTUFF, as wi 
an a<: t i ve MCS 
the accesscode 
qua 1 i f i ca t i on 
assigned to the 
password (if an 
task TSK. The 
USERDATA will 
f unc t i on (in s t 



sk variable 
not used. 

t h Func t i on 
or the MCP 

password as 

byte e i ther 
task TSK wi 

y ) are valid 

accesscode p 
crunch i t 

andard form 



to which the accesscode will be assigned, or it may be empty 

If ACTION. COPY is set, the USERDATAFILE entry will be copied into 

3. ACTION. STANDARD must be set, and USERDATA must be called from 

INSTUFF must contain the usercode, accesscode and (optionally) 

a three (or two) level file id in standard form with the 

or 1. If the qualification byte is 0, the accesscode will be 

thout being validated first; otherwise, the accesscode and its 

ated in the USERDATAFILE before the accesscode is assigned to the 

assword, if there is one, is passed to USERDATA uncrunched, and 

before validating the accesscode. Examples of input to this 

notation) are as follows: 



4"0F010204" 
4" 18010304" 



8 "USER" 
8 "USER" 



4 "06* 
4 "06' 



8 "ACCESS" 
8"ACCESS" 4"08' 



8 "PASSWORD" 



Function 12: CHANGE ACCESSCODE PASSWORD 



There are two forms for this call: when called by a WFL job, and when called 
When called from a WFL job, INSTUFF must be the new password in display form, 
task must have a usercode and a valid accesscode. 



by an MCS. 
The ca 1 1 i ng 



Otherwise, INSTUFF must contain the usercode, accesscode, old accesscode password and the 
new accesscode password as a four level standard form file id. USERDATA must be called from 
an active MCS or the MCP, and ACTION. STANDARD must be set. TSK, LOCATOR and 
ignored. The accesscode password may be changed, not added or deleted. The 
old password are validated first and the password is only changed if 
successful. An example of input to this function (in standard form notation) 



OUTSTUFF are 
acces scode and 
va 1 ida t i on is 
is as fol 1 ows : 



4"1B010404" 8"USER" 
4 "05" 8"NEWPW" 



4"06' 



8 "ACCESS' 



4"05' 



8"OLDPW" 



Four new error codes have been added to USERDATA, as follows: 

50 INSTUFF not in standard from 

51 ACCESSCODE/PASSWORD not found in USERDATAFILE 

52 more than one accesscode password (INSTUFF too long) 

53 task does not have an ACCESSCODE 

MAKEUSER and USERDATAREBUILD have been modified to handle the ACCPSW LIST nodes, nod: type 25, 
including handling the crunching of the accesscode password. If an accesscode already exists 
for a usercode, with or without a password, when MAKEUSER tries to create it, the old one will 
be deleted and the new one inserted in the USERDATAFILE. This is done to avoid accidentally 
defining the same accesscode with and without a password, or with different passwords. 
MAKEUSER passes the accesscode password to USERDATAREBUILD uncrunched; USERDATAREBUILD then 
crunches it the same way the usercode password is crunched and stores the accesscode and 
crunched password (if any) in the USERDATAFILE. 
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Logging 



The log file will store the accesscode (without password) in the following log records: 



BOT/BOJ 

BOT/EOJ 

FILE OPEN 

BEGINNING OF MCS SESSION 

END OF MCS SESSION 

SECURITY VIOLATION 



item #11) 

item #25) 

i tern # 8) 

item #11) 

item #25) 

item # 7) 



The accesscode will appear in the job-summary, and will be printed in the banner. (If the 
accesscode is not desired in the banner, it may be eliminated by resetting the BCACCESSCODEF 
bits in the PRINTMASK of the MCP.) 

A change of accesscode in a session is logged exactly as a change of chargecode in a session 
with a "SIGN ON" record. 

SECURITYTYPE File Mnemonic 



A new value for SECURITYTYPE has been added called "CONTROLLED". A CONTROLLED file is 
identical to a GUARDED file except the guardfile will be checked even for the creating (owning) 
use rcode . 

AVAILABLE File Attribute 



A value of 14 will be returned for < f i 1 e> .AVAILABLE if the file exists in the user's directory 
but it not available due to accesscode. This new value is returned only for files in the 
user's d i rectory . 

File Open 



The MCP file open procedure has been changed so that an attempt to open a file with 
SECURITYTYPE=CONTROLLED will cause a call on CHECKGUARDFILE in all cases. In CHECKGUARDFILE, 
all three items (usercode, program name and accesscode) will be used to determine access 

r ight s . 

Task Initialization 



At task initialization time, the MCP will determine if an accesscode has been explicitly 
assigned to the task. If so, the accesscode and password will be validated in the USERDATAFILE 
for the task's usercode. If no accesscode has been explicitly assigned but a usercode has been 
explicitly assigned, the task will have a null accesscode. If no accesscode and no usercode 
have been explicitly assigned, the task will be given the parent task's usercode and 
acces scode . 

D2518 MCP - SEGMENTED STRING VARIABLES 

An ALGOL string is initialized to a maximum length of 132. If this length is exceeded, the 

string is resized (to multiples of 32 words) to a maximum of 2S6 words. If this length is 

exceeded, the string is segmented and increased in increments of 256 words to its specified 
maximum size (currently 65534 characters). 

D2570 MCP - DISALLOW " PR I NTERLABELS " OPTION 

The PRINTERLABELS option has been removed from the MCP options list. Printer file volume and 
header labels are no longer printed at the time the files are opened and closed. Option 24 has 
been redefined as OKTIMEANDDATE; see MCP note D2592. 

D2576 MCP - "RERUN" VS. "EOF" 

RERUN has been corrected; it now correctly repositions tape files that were at or near EOF. 
Formerly, RERUN aborted with the message "FILE POSITIONING ERROR". 

The following new error messages have been added to checkpoint RERUN: 

1. UNSUPPORTED KIND=nn:<fi le id> 

Cannot restart from checkpoint taken with file of given KIND open (e.g., CARDPUNCH) . 

2. ERROR REPOSITIONING TAPE: MTnn <file id> 

Either an I/O error occurred or an extra or missing EOF was detected. 

3. ERROR IN IODISKADDRESS: PKnn <file id> 
ERROR IN FINDINPUT: <file id> 

ERROR IN OPEN: <file id> 
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4. INCOMPATIBLE FILE ATTRIBUTES: PKnn <file id> 

File attributes have changed since the checkpoint was taken (e.g., EOF moved backwards, 
different AREASIZE, etc.). 

D2580 MCP - "PRE-2.4 ON <FAULT> STATEMENTS" 

The MCP version 3.1 no longer supports the 'ON <fault>' statements compiled by the ALGOL, 
DCALGOL or ESPOL compilers prior to the 2,4 release. An entirely new mechanism was implemented 
in 2.4 (released mid-1973). 

Any existing code file which was compiled with a 2.3 or older compiler and which uses 'ON 
<fault>* statements must be recompiled prior to being run on a 3.1 system. 

An attempt to run the old object code on a 3.1 MCP will cause the program to be terminated 
whenever an 'ON' statement is executed, with the following message 

RECOMPILE PRE-2.4 CODE WITH 'ON' STATEMENT II <addr> 

The <addr> is the line number, or seg:word:syl address if no lineinfo is present, for the 'ON' 

statement. Only one message is generated for any one task. The message will appear in the job 

log, and will be sent to the user's terminal if the task was run via CANDE and the user's 
MESSAGE options is set. 

Note that the 'ON' statement is "executed" whenever it appears in the flow of control, to arm 
the fault trap. It is at arming time, not fault-detection time, that the program will be 
aborted. 

D2592 MCP - TIME AND DATE VERIFICATION 

Sites may now require their operators to verify that system TIME and DATE values are valid. A 
new system option (OPTION 24 = OKTIMEANDDATE) may be set from the ODT via the "OP" (or "SO") 
command to require the verification. In addition, the verification will be required on B6800 
multiprocessor systems regardless of the option setting if the clock of any processor varies 
from that of the first processor to halt/load by more than 60 seconds during the system 
initialization sequence. (Whenever B6800 t i«»e-of-day registers disagree as a multiprocessor 
system is initialized, they are all synchronized at the maximum time found in any of them.) 

When verification is required, the current TIME and DATE settings will be displayed on the ODT 

and updated whenever ADM would ordinarily be updated. The operator may enter "TIMEOK" to 

resume normal processing after resetting any invalid time or date via the "DR" and "TR" 
commands . 

D2605 MCP - NEW FUNCTION FOR "DMSWAIT" 

DMSWAIT has been modified to indicate whether or not the calling stack is in transaction state. 
No other function of DMSWAIT is affected. In addition, the meanings of the various parameters 
value is documented. 

D2606 MCP - "UN ITS CHARACTERS" VS. "MODE=SINGLE" 

If a user makes the inconsistent file specification UNITS=CHARACTERS , MODE=SINGLE, the file is 
treated as word-oriented; the UNITS specification is overridden. Effective with the III.l MCP 
release, the attributes recorded in a permanent DISK or PACK file with these specifications 
will be adjusted to be consistent; i.e., the header attributes will be UNITS=WORDS , 
MODE= SINGLE. 

D2642 MCP - "SYSTEMSTATUS" INTRINSIC 

SYSTEMSTATUS is subject to constant change or new features are implemented. See Appendix F, 
"Changes to SYSTEMSTATUS", for details of the changes for the III.l release. 

Because of these changes, the III.O version of the SPARK package may not be used on the III.l 
sys t em. 

D2644 MCP - SUSPEND AND RESUME TASKS BY BOX 

It is now possible to suspend and resume tasks on a box basis with SETSTATUS . The call to 
SETSTATUS is TYPE=2, SUBTYPE=37 with the value parameter as follows: 

Bit = 1 Suspend 

Bi t = Resume 

Bit 1 = 1 On a box basis 

Bit 1=0 Same as old call 

If Bit 1=1, arrayrow [1] must contain the number of the box to be used. Allowable box numbers 
are 1 through 5 inclusive. If the box number passed is not valid or not present, SETSTATUS 
will return an appropriate error. This change applies only to B6800 Multiprocessor systems 
where the boxes are defined as follows: 

1 = global 

2 = processor 1 

3 = processor 2 

4 = processor 3 

5 = processor 4 
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D2647 MCP - "LOG IOCONDITION" RESULT DESCRIPTORS 

A new maintenance log entry subtype=9 has been added to log I/O results that indicate retries 
that were not errors (diskpack read and write 4"C801" and read 4"0C01"). 

These entries will be printed in response to a LOG MAINT or a LOG IOCONDITION request; they 
will not be printed for a LOG IOERROR request. 

These diskpack result descriptors are accepted as successful I/Os and are not retried. 

D2652 MCP - NEW " SYSTEMSTATUS " CASE "14" 

A new case has been added to SYSTEMSTATUS; it is type 14, subtype 0. Its exclusive purpose is 
to support SUSPENDER'S information needs. 
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D2654 MCP - HANDLING UPLEVEL POINTERS 
The handling of potential uplevel pointers in the MCP has been modified, as follows: 



1 



An ALGOL, DCALGOL or DMALGOL program is deemed internally free of uplevel pointers if it was 
compiled by a compiler whose version is III.O or later. Any older ALGOL-type codefile is 
considered as potentially containing uplevel pointer assignments. The bit set by the ALGOL 
compilers. in segment of the code file ( COMPILER I NFO.NOBADPTRF) is disregarded, since it is 
always set in III.O or III.l and not reliable in II. 8 or II. 9. 



Programs compiled by COBOL, FORTRAN, BASIC, PL/I or WFL continue to be 
uplevel pointer problems whatever the compiler version. 



considered free of 



As before, the possibility of uplevel pointer assignment into a parent task is ruled out if 
the offspring is external (separate code file) and the parameters passed could not permit 
such as s i gnmen t . 

If the MCP cannot ascertain that uplevel pointer assignments from offspring to parent are 

impossible, it will force the offspring to run in the same memory environment as the parent. 

Thus the offspring could not become a swapped task, nor could the offspring run in a 
different memory subsystem from the parent on a B6800 multiprocessor system. 
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•STOPPOINT" TASK ATTRIBUTE 



The STOPPOINT attribute reports the point in a program at which something abnormal occurred. 
If a fault is detected, the STOPPOINT value takes on a value consisting of the Return Control 
Word (RCW) information in bits 35:36 and the fault REASON in bits 47:8. 

The RCW fields are as determined by the processor: 

bits 12:13 SDI Segment Dictionary Index 

0/1 for MCP/nom-MCP code 
Index of word in code segment 
Index of syllable in code word (0-5) 



ts 12 


13 


SDI 


13 


1 




32 


13 


PIR 


35 


3 


PSR 



SID, PIR and PSR are generally reported in compter listings and error messages in 
017:02B3:5; they uniquely specify the syllable of code in a given program file. 



the form 



The REASON values are the same as those reported in the HISTORY task attribute bits 23:8 when 
bits 15:8 specify FAULTCAUSE (4): 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



Divide by zero 

Exponent overflow 

Exponent underflow 

Inva lid i ndex 

Integer overflow 

Inactive queue (software-detected) 

Memory protect 

Invalid operand or NVLD operator 

Instruction timeout 

Memory parity error 

Scan par i ty error 

Inval id address 

Stack overflow 

String protect (segmented array) fault 

Programmed operator 

Bot tom-of-s tack fault 

Sequence error 

Invalid program word 

Stack underflow 



When a task terminates normally, STOPPOINT is zero. For an abnormally-terminated task, 
STOPPOINT contains the RCW information. If the task was terminated for a fault, REASON will 
specify the fault; if it was terminated for some other cause the REASON will be zero. 



D2694 MCP 



IMPLEMENTATION OF "DL" 



System file handling has been redesigned to allow OVERLAY, BACKUP, JOBDESC, CATALOG, 
SYSTEM/SUMLOG and SYSTEM/USERDATAFILE to reside on families other than the Halt/Load family. 
The user may explicitly specify the families on which these system files reside via the 
DISKLOCATION ODT message. Any unspecified DISKLOCATION familyname defaults to the <Halt/Load 
family> during MCP initialization. 



Complete syntax and semantics for the DISKLOCATION ODT message are described in 
note D2535. 



III.l GENERAL 
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D2 705 MCP - "7A" TAPE CONTROL 



The new magnetic tapes have the following features. A given tape drive will be able to read 
and write 800 BPI 9 track tapes and 1600 BPI PE tapes or 1600 BPI PE tapes and 6250 GCR tapes. 
The control 7A (with scanin unit type code of 4"0C") provides extended status (similar to that 
provided by all new unit controls) that can be used to help determine the cause of I/O errors. 

The density setting is automatically determined by the tape drive. Once the first record on 
the tape has been read or written, the drive remembers the density setting; this cannot be 
overridden by bits in the IOCW. Furthermore, a read at load point automatically determines the 
proper density from "id burst"s on the front of the tape, no matter what the density bit 
settings in the IOCW request. Only in the case of a write at load point does the subsystem use 
the code bits in the IOCW to set the density, which is remembered until the tape is rewound. 
Note that a test op at load point does not return the proper density in the result descriptor 
(because the "id burst" has not been read); rather, it always returns the code for 1600 BPI. 

These tape drives are treated as PE tapes that have two different densities; i.e., in the same 
manner that 7 track drives are treated as having three different densities. 

Ki nd : 

The unit KIND is PETAPE (VALUE 15). 

Dens i t y : 

The new density for 6250 BPI is 4. The menmonic is BPI6250 (see ATTABLEGEN note D2723). 

FINDOUTPUT's masksearches have been modified since a request for KIND=PETAPE with density of 4 
cannot be satisfied by just any PETAPE, only a new one. 

READALABEL and PURGIT 

READALABEL and PURGIT have been modified to delay testing the density until after reading the 
first record on the tape. An optional modifier has been added on the operators SN and PG so 
they may change the density of a given tape volume. (See GENERAL note D2535 for syntax.) 

TAPEPARITYRETRY 

IOFINISH68 reads the log via the " IOCREADLOG-IOLOGAREA-MASKGETAREAF" mechanism. IOEXCEPTION 
passes this to IOERROR and TAPEPARITYRETRY, which logs it via MLEXTRDS and/or FORGETAREA as 
requ i red . 

SYSTEM/LOGANALYZER 

LOGANALYZER prints out the extended status stored by TAPEPARITY for I/O errors. 

FIBSTACK 

The OPEN routine is aware of new IOCW density settings. OPEN also checks for the new allowable 
DENSITY/KIND combinations. CLOSE records the new density value in the HDR2 UDNSTY flag. 

D2 73 7 MCP - PRIVILEGED PROGRAMS 

The privileged program feature associates security of a running program with the code file 
being executed in addition to the usercode under which it is being run. 

The following are the privileges of running programs: 

1. The privileges of a program running under a privileged usercode do not change. 

2. Conferring of privileged usercode in the MCP does not change (i.e., task initiation or MCS), 

3. A privileged program has the same privileges as a program running under a privileged 
us ercode . 

4. Code belonging to a privileged program is always privileged, regardless of the usercode of 
the stack in which itisrunning. 

5. A program can only be made privileged by the ODT command "PP" . The command designates a 
code file as a privileged program. code file. 

— PP <f i let i t le>— I 

I I 



<filetitle> references the code file to be marked as a privileged program. A minus 
preceding the file title denotes that the code file is no longer a privileged program. 

6. A control program is one which is not scheduled and will not be suspended. This notion is 
now independent of the privileged status of the program. 
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7. The ability to access the directory past non-visible nodes is subsumed by privileged 
programs . 

8. COMPILERINFO (which includes the privileged program bit) will reside in the task of the 
segment dictionary as well as the process task. 

D27 3 8 MCP - DELETE "CPUTEST" 

The CPUTEST feature in the MCP has been removed. 
D2757 MCP - NEW "DMS" STRUCTURE NUMBERS 

MCP support is now provided in DMSOPEN for new ACR structure number format, 

1)2781 MCP - DATA BASE STACKS RUN IN LOCAL MEMORY 

Data bases may define the subsystem in which they are allowed to run (via the SUBSYSTEM 
attribute). This is checked against the subsystem which is being used by the user who is 
opening the data base to see if the data base can be seen by the user. If the data base is 
already open and the memory in which the DBS exists cannot be seen by the task attempting to 
open the data base, the task will be terminated. Note that if the data base SUBSYSTEM includes 

* GLOBAL TM Memory, the DBS will be placed there. 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 

D2784 MCP - "NIF" AND "DCPCODE" DISK "I/O" ERRORS 

Disk I/O error checking code has been implemented for datacom I/O. The datacom subsystem 
depends on two files, NIF and DCPCODE, for information about the datacom environment. The NIF 
file contains logical and physical specifications of the datacom network, and it never changes 
after it is created by the NDL compiler. The DCPCODE file contains the DCP hardware 
instructions and current datacom station/line information, and it will change as the datacom 
environment is altered by DCRECON requests. 

When a datacom disk error occurs, one of the following messages will be displayed: 

1 . NIF FILE DISK INPUT ERROR 

2. DCPCODE FILE DISK INPUT ERROR 

3. DCPCODE FILE DISK OUTPUT ERROR 

One of these messages will inform the operator as to the type of disk I/O error that 
occurred. No immediate response is required. A disk I/O message will be displayed prior to 
this message. The MCP will then appropriately respond to the error. Depending on the 
frequency of the errors, it may be necessary to terminate datacom and either move or reload 
the datacom files (see "Processing a DCRECON Request", below). WARNING: reloading the 
DCPCODE file will cause the loss of all datacom reconfigurations that have completed. 

4. BAD NIF FILE RECORD NUMBER 

5. BAD DCPCODE FILE RECORD NUMBER 

One of these messages will inform the operator that an attempt was made to perform I/O to a 
non-existent part of a datacom file. No immediate response is required. If the compile-time 
option DIAGNOSTICS was set in the MCP, a non-fatal dump will occur. The MCP will then 
appropriately respond to the error. 

After displaying one of the above messages, the MCP will respond to the error. The most 
important responses that can occur are: 

1. During datacom initialization. 

One of the following messages will be displayed: "DCP INITIALIZATION FAILED" or "DATACOM 
INITIALIZATION FAILED", which indicate respectively that a DCP could not be initialized or 
that the datacom tables could not be built. The MCP will then terminate the DCP concerned, 
and if no DCPS are running, the datacom tables will be deallocated. 

2. Processing a DCRECON request. 

Two messages will be displayed: (1) "DCRECON (TYPE=<RECALLJOBOUTPUT, LINESWAP, 
CLUSTEREXCHANGE, STATIONMOVE or UPDATEL I NE> ) : BAD DATACOM DISK I/O." and (2) "DCRECON: 
PERMISSION TO ATTEMPT RECOVERY.". The latter message will require a response of "OK" or "DS" 
from the operator. If "OK" is entered, the current request will be restarted, but it may not 
be possible to recover from the failure. If "DS" is entered, the current request will be 
discontinued, and the next request will be started. If "DS" is chosen, however, the datacom 
subsystem may be incompletely initialized. If datacom is not functioning correctly because 
of this (e.g. missing lines or stations), then it will be necessary to terminate datacom and 
re-initialize. 



MCS Interface. 

A new DCWRITE error (170) has been created for datacom I/O errors. In addition, if an 
error occurs while an interrogate station environment result (class = !5) is bewig bui_ 1 t^ J^he 



result will not contai 
resul ts (MSG[8] .47:8 = 



n the 

0). 



station's name; this is 



also true for file OPEN and 



I/O 

the 

CLOSE 
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All other responses are self explanatory. 

D2 79 5 MCP - "DS" PRIORITY 

When a task is externally DSed, its priority class is increased to force the task to clean up 
and leave quickly. (Formerly, the base priority was increased but not the invisible, 
nign-order priority class; this has proved insufficient.) 

If, for some reason, the task continues to loop in non-DSable code, there is now a recourse as 
fo 1 1 ows : 

The operator may enter the following ODT message: 
<mi x no. > PR 

Set Ao" g the . base priority explicity to zero will also remove the priority-class enhancement due 
to DS, so that task will become uncompetitive for a processor. 

D2 796 MCP - DE IMPLEMENTATION OF OLD INTRINSICS 

A warning will now be generated when executing code files using certain old intrinsics which 
will be de implemented on the III. 2 system release. Please consult the following GENERAL 
D-Notes for details about the relevant languages: 



ALGOL 


D2797 


FORTRAN 


D2798 


BASIC 


D2799 


PL/ 1 


D2800 



D2833 MCP - MPX#,PATH# VS. "LH.UA.UR" 

The MCP will now log all SETSTATUS calls before anything can happen to the input array For 
example, the MPX# and PATH* for LH, UA and UR commands will be logged correctly. 

D2834 MCP - CHECK STACK IMAGE COMPATIBILITY 

WFL jobs that are restarted after a Halt/Load are now checked to ensure that the stack image is 
compatible with the current MCP level. Incompatible jobs are DSed. Jobs are compatible 
between MCP cycle III. 1.120 (TC) and the forthcoming III. I release. ACM from any 1 1 1 . MCP or 
any earlier III.l (TC) MCP will cause any WFL jobs that were active before the CM to be DSed. 
CM between any III.O or III.l level will have no effect upon jobs that are in the queues but 
never started. 

D2 85 5 MCP - TIME OUT FOR MEMORY DUMPS 

The MCP "clock" is stopped while taking a memory dump; thus, the processor and I/O times for 
certain unlucky actions are not distorted by the time to take the dump. 

The TIME(14) intrinsic now returns the time since Halt/Load less any time spent taking memory 
dumps . ' J 

D2864 MCP - RELATIVE "I/O" FOR "COBOL74" 

This note describes the relative I/O subsystem. The implementation is designed to support the 

requirements of COBOL74 . Mapping of logical I/O to physical I/O is accomplished by the MCP I/O 

subsystem; other features relating more to programmatic views of the state of the relative I/O 
file are maintained by the COBOL compiler. 

The relative I/O facility maintains records in a disk or pack file which was created as a 
relative file. Records are marked as either valid or deleted. 

Each bjock contains a fixed number of fixed length record positions. Flags are provided at the 
beginning of each block to contain the validity information; there is one bit per record 
position in the block. The first record starts on a byte boundary. 

Tl5 e ™ P ,££. S rJ. Cal fi i;„i! denoted as a relative file by use of the attribute FILEORGANIZATION. See 
IN-OUTPUT note D2866 for a description of this attribute. 

As each row of a file is allocated, the MCP initializes each block of the new row to indicate 
that each record of the block is deleted. Note that no end-of-file action is implied by this 
process; EOF action is unchanged from prior implementation. 

Creation deletion and overwriting of records in a relative file is accomplished in accordance 
with the ANSI74 COBOL Standard. 

D2865 MCP - VERIFY "235" PACKS IN "IV" MESSAGE 

The Operator Display Terminal Reference Manual (Form No. 5001704) should be corrected as 
follows. The note on Page 2-47-A should read: 

"The IV routines in the MCP or the LOADER used to label 235 packs will not reinitialize any 
cylinders in the 235 packs; they will write out a master available label and a volume 



label 
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D2869 MCP - "MCP" LEVEL INDICATORS 

Some changes are being made in MCP level indicators. 

BACKGROUND 

Each released software item has a level indicator specified at compile time. 

Ex amp 1 e : 

S VERSION 31 . 190.728 

This indicates marklevel 31 (often denoted as III.l), cycle 190, patchnumber 728. The cycle 
number increases throughout the development process, and is synchronized for all products in 
any release to the field. The patchnumber varies with the number of changes in each software 
item. The patchnumber concept predates the cycle reckoning, and used to be the more 
significant number for the MCP, but the cycle number is now much more convenient. 

DISPLAYS 

The displays from the CONTROLLER, JOBFORMATTER , PROGRAMDUMP and DUMPANALYZER have been changed 
to use the same format as the original SVERSION specification. Thus what might have been 
"III. 1.728" or "III. 1 . 190.728" is now "31.190.728". 

INTERFACES 

Those MCP interfaces that have returned binary representations of MCP mark . 1 eve 1 . pat ch will now 
return mark . 1 eve 1 . eye 1 e . These include SYSTEMSTATUS , GETSTATUS , and the system LOG. 

D2881 MCP - PROVIDE FIRMER "MAKEUSER-USERDATA" INTERFACE 

A new USERDATA function has been provided to allow SYSTEM/MAKEUSER to ascertain the exact 
location of the SYSTEM/USERDATAFILE in use by the MCP. 

Only the ACTION (first) and OUTSTUFF (fourth) parameters are used; the others should all be 
zero. The ACTION parameter = 14 & x [4:1], where x specifies how USERDATA will behave if the 
SYSTEM/USERDATAFILE is unavailable: if x=0 then USERDATA wi I 1 wait displaying RSVP messages 
("REQUIRES PK" or "NO FILE"); if x=l then USERDATA will return an error value. The OUTSTUFF 
parameter should be a pointer. If the file is present and has the correct format, the USERDATA 
function value will be even. If the file was not present or was not a valid userdata file, the 
returned value will be odd and contain an error code as specified in the USERDATA/MAKEUSER 
documentation. If the file is present, the function value will contain the base-unit serial 
number (as an integer) in the UDVLOCF field, [33:20]. In any case, the DL userdata family name 
(followed by a period) will have been transferred via the pointer. 

Action 14 is usable only by a program with privileged-user status. 

If this function is used while the USERDATAFILE is "frozen", the calling program is assured 
that the file exists and will remain present and will not be modified by the MCP. 

A new RSVP message is now used by USERDATA if some process is attempting to modify the userdata 
file while it is frozen, and has chosen to wait. The message is "WAITING FOR USERDATA FILE 
FROZEN BY TASK nnnn", where nnnn is the mix number of the task which has frozen the userdata 
file (typically SYSTEM/MAKEUSER doing a COPY or CREATE statement.) 

D28 8 8 MCP - LIBRARY MAINTENANCE RESULT REPORTING 

Library Maintenance will now return the following in its TASKVALUE: 

- all actions carried out correctly 

1 - one or more files not copied 

The latter category indicates that either Library Maintenance DSed, or in case of some 
exception condition, the operator chose not to retry the failing action (by OF or FR input). 

D2907 MCP - AUTOMATIC MOVE 

The MCP now permits the operator to move an in-use pack from one unit to another without 
entering a "MOVE <pk>" command. This will allow recovery from disk pack problems even when the 
controller is hung. 

D2908 MCP - INITIALIZATION NEEDS MORE MEMORY 

If the operating system requires additional global memory during the early part of 
initialization, it will now defunct displaying "NEED MEMORY - HALT LOAD". 

After initialization is capable of taking a non-fatal memorydump, it will check to make certain 
that there are at least four mods (16K each) of private global memory. If not, there will be a 
non-fatal dump by "NEED GLOBAL MEM". The operator may choose to Halt/Load or DS the dump and 
con t i nue . 
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D2911 MCP - LOCAL DIRECT ARRAYS 

In the initial release of Tightly-Coupled systems, all direct arrays were forced global. In 
the III.l MCP to be formally released, the MCP will automatically site direct arrays into 
global as needed for I/O visibility, but by default direct arrays of local processes will be in 
local. Meanwhile, the TC field-release MCP has been modified to permit the careful use of 
direct arrays in local. 

Direct arrays will be global by default (as before), except: 

Those belonging to a local DBS will be local. 

Those belonging to a local MCS will be local unless the MCS has set 
MYSELF. OPTION :=MYSELF. OPTION & 1 [30:1]. 

While system option 35 is set (operator enters OP + 35), direct arrays belonging to any 
local stack will be local unless that process has set its OPTION. [30 : 1 ] . 

The only reason for forcing direct arrays global on a TC system with all tape and disk-type 
devices exchanged to both processors is to do direct I/O to a non-exchangeable unit (printer, 
card reader, etc.) from the other side of the system. The only standard software that does so 
i s SYSTEM/BACKUP . 

This feature involving system option 35 and task option bit 30 is temporary for the TC release, 
and no mnemonics have been provided for setting them via the CONTROLLER, CANDE or WFL. In the 
forthcoming III.l MCP, these bits will revert to their unused status. 

D2917 MCP - NEW "BOJ/BOT, EOJ/EOT" LOG INFORMATION 

Several new items of information have been added to the BOJ/BOT and EOJ/EOT system log entries. 
They contain data about the tightly or loosely coupled system environment and provide 
additional information for performance measurement. The new words and their contents are: 



BOT EOT 
WORD WORD 



13 



25 



CONTENTS 



[47 
[46 
[45 
[44 
[43 

[42 
[41 
[31 



Comp 

" 1] 
1] 
1] 
1] 
1] 

1] 
1] 
8] 



[23: 8] 
[ 9:10] 



ler information from COMPILER INFO 
IPC capable 
Sort capable 
Control program (CP) 
DMS capable 
No uplevel pointers 
see D-Note 2654 for details 
Privileged program (PP) 
Library capable 
Language type 

= ALGOL 

1 = COBOL 

2 = FORTRAN 

3 = XALGOL 

4 = PL/I 

5 = JOVIAL 

6 = NEWP 

7 = ESPOL 

8 = DCALGOL 

9 = BASIC 

10 = WFL 

254 = INTRINSICS (SINTRINSICS set) 

255 = MCP ($MCP set) 

Compiler mark and level number (e.g., 31) 
Compiler cycle number 



14 



19 



SWAPPER information from SWAPSPEX and 



15 

16 

17 
18 



26 



27 



[39: 
[15: 



10] 
8] 



Number of swap space core slots 
SUBSPACE attribute requested 



SWAP INFO 
in use 



= Do not run in swap space 

1 = Data (D2) stack only in swap space 

2 = Data in swap space. Code (Dl) stack in 

swap space if code file in my directory 

3 = Data and code in swap space 
[7:8] SUBSPACE actually granted 

same as [15:8] but 2 is not valid 

Task's box numbers 
[39:20] Box number of code (Dl) stack 
[19:20] box number of data (D2) stack 

Link to value of SUBSYSTEM attribute 



28 Link to name of originating host 
Amount of time spent in the schedule 

29 Amount of time spent in the ready queue 
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Also, the job entry time in BOT word 12 (added in III.O P-Note 1383) is the time stamp of the 
code file. Thus, for a job it is the time the WFL compiler finished with it and it entered the 
system. For a task, it is the timestamp of the object code file being run. It is zero if the 
code stack was being shared with an already running task. The format is: [47:16] (Julian date 
- 70000) [31:32] (Time of day in ticks DIV 16) 

D2928 MCP - ELIMINATE VECTOR MODE, IMPROVE CHECKSUM 

The ability for the MCP to use vector mode has been eliminated. Also, substantial changes have 
been made to the CHECKSUM procedure to make it competitive (on the B6700) with the vector mode 
checksum. (This new checksum is substantially faster on the B6800 than the vector mode 
version.) The results generated by this new CHECKSUM are identical to results generated by 
older vers ions . 

Since the MCP is no longer aware of the vector mode capability of the processor, bit 47 in the 
value of TIME(23), as described in II. 9 MCP note D2213, will no longer be set. 

D2929 MCP - FIXED PORTION MARKER OF LOG RECORDS 

The format of word 3 (LOGTYPEX) of a LOG record has been changed to include the length of the 
FIXED portion of the record. This new field is called LOGFIXEDLENGTHF and is defined to be 
[47:6]. The old field LOGLENGTHF is now [41:10]; NEWFORMATF has been deleted. 

D2936 MCP - "COBOL" FILE ALREADY CLOSED ERRORS 

In order to conform to the requirements of COBOL, an attempt by a COBOL program to close a file 
which is already closed will cause a fatal error on the III. 3 release. This warning will be 
noted on the job summary during the III.l and III. 2 releases, along with an indication of the 
file and location of the offending CLOSE statement. 

D2937 MCP - RESERVE TIME CASES FOR "BSP" 

TIME intrinsic calls with parameter values of 24 and 30 through 45 are now reserved for use by 
BSP. Any calls on a non-BSP system using these values will return a value of 0. 

D293 8 MCP - GETSTATUS: TEST FOR COMPILER 

A new case in GETSTATUS has been added for TYPE==0, SUBTYPE=2, SUBCLASS=2 „ BIT NO=42 . Reply 
type is REAL. The values are: 

= Task is not a compiler 

1 = Ta s k is a c omp i 1 e r 

If the task is not a compiler, a " SOFT-GETSTATUS " error is also returned. 

D2942 MCP - VERIFY MEMORY DUMP TAPE 

When writing a memory dump to tape, the MCP will now attempt to verify that the tape is 
assigned to the group. If not, the following message will be displayed: 

"GROUP DOES NOT OWN Mr<nn>. XMIT AGAIN TO OVERRIDE." 

The operator may OK the request or choose another tape. 

D2963 MCP - ANOTHER GROUP NOT RESPONDING 

The message displayed when another group on a * GLOBAL tm Memory system does not respond is now 
the f ol 1 owi ng : 

NO RESPONSE FROM ANOTHER GROUP (GNS=#) . . . 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 

D2967 MCP - LOG BOXES FOR JOBS 

The MCP now maintains a list of "boxes" that a task/job has occupied during the life of its 
execution, as well as a list of "boxes" that the task/job could have occupied. These lists are 
logged in the EOT and EOJ log records in the "EOTBOXNOX" word. E0TBOXNOX contains four 8-bit 
fields which are the following BOX lists: DATA ALLOWED, CODE ALLOWED, DATA OCCUPIED and CODE 
OCCUPIED. 

JOBFORMATTER (and LOGANALYZER) will now display two new lines in the EOT/EOJ record print out, 
as f o 1 1 ows : 

DATA ALLOWED IN XXX; CODE ALLOWED IN XXX 
DATA OCCUPIED XXX; CODE OCCUPIED XXX 

where XXX is a list of BOX names (GLOBAL, LOCAL! , LOCAL 2 , etc.) or "NO BOX" (which is used when 
the "box" list is empty). 
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D2969 MCP 



IDLE PATTERNS 



The MCP often displays a recognizable pattern in the stack registers while waiting in an IDLE 
operator. These patterns have been changed slightly for the B6700 and extensively for the 
B6800. 

The principal change for the B6700 is that during system initialization, the normal pattern is 
a big "I" instead of the big "B". 

The principal change for the B6800 is to use patterns designed for hex display, rather than the 

B6700-type patterns which were designed for dot-matrix use of a binary display. (In the II. 9 

and III.O releases, only the normal system idle pattern, B68OOFFB6800 , was designed for hex 
display. This pattern has also been changed, for greater visibility.) 

This note provides an annotated list'of all the idle patterns displayed by the MCP . (There are 
other instances of the IDLE operator, mostly very early in system initialization, that show no 
distinct pattern.) 

For the most common cases, the B6700 and B6800 have different patterns. B6700 patterns are 
designed to show one, two or four letters in the A, B, X and Y registers taken as a 12-by-16 
dot matrix; those letters are shown here. 

B6800 patterns are shown as the hex value actually displayed in each register, except: 

(a) "Linenumber" means that the sequence number of the line in 
the MCP where the IDLE occurs is displayed in decimal. 

(b) "RCW" means that the re turn-con t ro 1 -word of the procedure 
that contains the IDLE is displayed in raw form. 

(c) Occasionally some variable data are displayed, as noted. 



The Y register contents are unspecified unless the B register tag 
B6700 B6800 Significance (and location) 



2. 





A 


2 


AAAA 1111 AAAA 


1 


X 


2 


AOOAOOAOOAOO 




B 


2 


BBBB1 1 1 IBBBB 




Y 


2 


B0OBOOBOOB0O 




A 


2 


All 1 11 1 1111A 


B 


X 


2 


AOOAOOAOOAOO 




B 


2 


Bl 1 11 1 1 11 1 IB 




Y 


2 


BOOBOOBOOBOO 


C 


A 


2 


COCOCOCOCOCO 


M 


X 


2 


1 i nenumbe r 




B 





C3D440404040 


D U 


A 


2 


DBDBDBDBDBDB 


M P 


X 


2 


1 i nenumbe r 




B 


3 


RCW 


D U 


A 


2 


DBDBDBDBDBDB 


M P 


X 


2 


1 i nenumbe r 




B 





C7C5E3D9C4E2 


D U 


A 


2 


DDDDDDDDDDDD 


M P 


X 


2 


1 i nenumbe r 




B 


3 


RCW 


D E 


A 


2 


DEADDEADDEAD 


A D 


X 


2 


1 i nenumbe r 




B 


3 


RCW 


D E 


A 


2 


DEADDEADEAD2 


A D 


X 


2 


1 i nenumbe r 




B 


3 


RCW 


D E 


A 


4. 


DDEADEADEADD 


A D 


X 


2 


1 i nenumbe r 




B 


3 


RCW 



Normal idle during system 

initialization. 
( PAWS ) 



Norma 1 
( PAWS ) 



idle. 



Changing MCP. 

(CHANGEMCP) 

"CM " in EBCDIC 

Normal idle during initiation 

and termination of dump. 
(LOITER of DUMPBOOTSTRAPPER) 

Dump waiting for system I/O to finish. 
(GETRDS of DUMPBOOTSTRAPPER) 
"GETRDS" in EBCDIC 

Normal idle during dump. 
(DPPAUSE of TAPEDUMP) 



System is hung, displaying 

"... PLEASE HALT LOAD" . 
(DEFUNCT) 

System is hung; some other processor 

is at ready in DEFUNCT. 
(DEFUNCT) 

System hung taking a dump. 
(SPOUTP OF TAPEDUMP) 



The following patterns occur only during the initialization of B6800 multiprocessor systems and 
never appear on the B6700. 
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B6800 



2 CCCCCCCCCCCO 

2 1 i nenumbe r 

2 addre s see proc 

2 mes sage 

2 CCCCCCCCCCC1 
2 1 i nenumber 
000000000000 

2 CCCCCCCCCCC2 
2 1 i nenumber 
2 addressee proc 
2 message 

2 CCCCCCCCCCCF 

2 1 i nenumber 

D3D4C5D9C7CS = 



MARK 3 . 1 
Significance (and location) 



Lead processor waiting to send a 

message to a follower. 
(MAILACARD of SECONDARY INITIALIZE) 



Follower processor waiting for a message 

from the leader. 
(PICKUPMAIL of SECONDARYINITIALIZE) 

Lead processor waiting for follower to 

receive a message. 
(MAILACARD of SECONDARYINITIALIZE) 



Lead processor waiting for followers to 

complete initialization. (MERGER) 
"LMERGE" in EBCDIC 



PAGE 3 29 



The printer-dump program, which is invoked for system errors early in Halt/Load initialization, 
uses a single set of patterns for both the B6700 and B6800. The A and B registers are designed 
for hex display, while the X and Y registers are used as a bit matrix. 

X &Y Registers Significance (and location) 



M D 



2 DEDEDEDEDED1 

2 F424FOF88430 

2 dump address 

2 FOO0FOF112C0 



Normal idle in printer dump. 
(DOIOP of MEMDUMP) 



N O 



2 DEDEDEDEDED0 

2 F610F0788870 

2 D7D9C9D5E3D9 

2 F086F0E1 1 1E0 



No printer is on line. 
(DUMPITP of MEMDUMP) 
"PRINTR" in EBCDIC 



N R 



N P 



FIN 



2 DEDEDEDEDED2 

2 F610F0788870 

2 D9C5C1C4E840 

2 F086FOE1 1 1E0 

2 DEDEDEDEDED3 

2 F610FOF99960 

2 D7C1E3C84040 

2 FO86FOF0OOO0 

2 DEDEDEDEDEDF 

2 F9980F0F610F 

2 C6C9D5C9E2C8 

2 F0000F0F086F 



Printer went not ready. 
(DOIOP of MEMDUMP) 
"READY " IN EBCDIC 



Printer dump has no 
(DOIOP of MEMDUMP) 
"PATH " in EBCDIC 



path to its printer 



Printer dump is finished. 
(DUMPITP of MEMDUMP) 
"FINISH" IN EBCDIC 



D2971 MCP - SYSTEM MAINTENANCE FOR "B6800" MULTIPROCESSORS 

Maintenance for B6800 multiprocessor systems has been implemented. For the III.l release, 
multiplexor-related operations may only be directed to one multiplexor during that operation. 
If no subsystem is specified, maintenance will run in * GLOBAL tm Memory. If operation in 
local memory is desired, a subsystem specification denoting only the local memory should be 
used. If an invalid local memory is used (i.e., one which has no direct path to the unit 
involved), the requested operation will not be performed. An appropriate subsystem may be set 
up using the MS ODT command (see GENERAL note D2535 for details). 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

MCP 

PI 02 6 MCP - "PATHRES" 

The unit number displayed in the following message will now be correct: 

PK<nn> MPX<m> PATH<p> ERROR ON HOST LOAD. 

Error messages from PATHRES will no longer display the phony RD=20001. Instead, an appropriate 
diagnostic will be given: 

(NO 10 FINISH) or (NO PATH FOR 10). 

PI 02 7 MCP - "WASTEMPATCHECK" 

Under certain conditions, disk files that were opened when a checkpoint was taken would be 
handled incorrectly when the task was restarted. It was possible for the file to be closed 
with the wrong TITLE. This problem has been corrected. 

PI 029 MCP - QUEUE ERROR VS. "THEQUE" 

Certain "QUEUE ATTRIBUTE ERR" errors were causing the given queue to remain locked. If the 
program referenced that queue again, the program would hang and could not be DS ' ed . This 
problem has been corrected. 

P1053 MCP - "SUSPENDER" VS. "OK" FROM "ODT" 

SUSPENDER will no longer hang the system if an OK input from the operator is entered while 
SUSPENDER is also attempting to resume a suspended task. 

P1054 MCP - "IC" DISKPACKS 

There were several problems with interchange mode diskpacks on the II. 8 and II. 9 releases which 
have been corrected. 

PI 076 MCP - "FLATREADER" ERRORS 

The error checking in FLATREADER has been improved. 

PI 081 MCP - "NON ANCESTRAL TASKFILE" 

In order to prevent illegal memory addressing, it has become necessary to disallow any task 
from referencing the taskfile of a non-ancestral task; i.e., a task can only reference the 
taskfile of its father, grandfather, etc. When such illegal references are attempted, the 
violating task will be DS'ed with the message "NON ANCESTRAL TASKFILE". 

P1082 MCP - "LEIBNITZ" VS. OVERLAY 

Library Maintenance would occasionally get a dump in BILDAFID when attempting to issue the 
error message "<filename> NOT ON <source name>". This problem has been corrected. 

PI 08 3 MCP - "CATALOG ADD" TAPE FILES 

CATALOG ADD= of a multi-file tape volume will now work correctly. 

PI 08 5 MCP - "STATUSCHANGE" EVENT BATCHED 

Instead of being caused every time any of many operations occur, STATUSCHANGEEVENT will now be 
caused every 3 seconds when an appropriate operation occurred in the interval. 

PI 08 6 MCP - UNLABELED TAPE CORRECTIONS 

When attempting, on a cataloging system, to open output unlabeled to tape, the system will 
insist that the tape not be volumed. If so, the FSVP "REQUIRES NON-VOLUMED MT" will be 
displayed, so that the operator may find an appropriate tape volume or delete a volume from the 
volume library. This change is necessary because the serial number will be destroyed on the 
tape, and thus no longer correspond with any volume library entries. It will not be deleted 
automatically from the volume library, as policy requires manual intervention to delete a 
serial number from the volume library. In addition, if the LABELTYPE attribute of a file is 
changed from an output tape file via the "FA" ODT message, the tape labels will now reflect the 
new LABELTYPE rather than the original. 

P1087 MCP - "MCSREADY" ON "SM" INPUT 

An attempt to send a message to an MCS via the "SM" ODT message when the MCS has either not yet 
attached or just detached itself from the primary queue will now get the reply "INVALID MCS" 
and will no longer cause an MCP fault. 
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PI 101 MCP - "RESERVE" 

RESERVEDISK will no longer corrupt memory links when moving a row of the JOBDESC file. 

PI 102 MCP - ADD "ETX" TO ALL "ODT" OUTPUT FILE WRITES 

If a TD830 ODT is connected to an SLC and a WRITE is done that does not include an ETX in the 
character string, the output will not appear on the screen. This would occur if the last 
character written was a control character (from column 0-3 of the EBCDIC chart). This will no 
1 onger occur . 

This change is required for general use of the TD830 with the SLC. 

Pllll MCP - "AUTOPRINT" VS. MULTIPLE "SKIP TO CHANNEL 1" 

If two or more "SKIP TO CHANNEL 1" records occurred in a print file, it was possible for 
AUTOPRINT to incorrectly print a preceding record in the BD file. This has been corrected. 

PI 112 MCP - "AUTOPRINT" VS. "FM" REPLY 

If the operator replies "FM" to AUTOPRINT's "REQ FM: < formname> LP" RSVP to a printer with a 
different FORMMESSAGE, AUTOPRINT will display "INVALID UNIT LP<nn>" and QT the print file. 

PI 125 MCP - UNIT LEFT ASSIGNED 

The MCP will now check for units which are left assigned to a stack at EOJ even if the 
DIAGNOSTICS compi 1 e-t ime option is reset. 

PI 127 MCP - BINARY PACK ADDRESSES 

The MCP now supports binary addressing of diskpacks. The controlware loaded into the diskpack 
controls can now be either binary or decimal. The following restrictions must be observed: 

1. All of the controls that can access a particular diskpack must be loaded with the same kind 
of controlware (binary or decimal). 

2. The controlware cannot be changed from binary to decimal or decimal to binary without 
closing all the packs accessible from the control (or Halt/Loading the system). 

3. When a CM is performed on a pack, it must be Halt/Loaded at least once on the same kind of 
controlware. It then can be Halt/Loaded on either kind of firmware. Because the initial 
bootstrap put on the pack by the CM routine is not dynamic, after the first Halt/Load a 
dynamic bootstrap (one that can run on binary or decimal controlware) is automatically 
written on the pack. In the case of duplicated CM's, at least one Halt/Load must be 
performed on each backup copy of the MCP before the controlware can be changed. 

PI 129 MCP - FILE REMOVED MESSAGE 

When an attempt is made to REMOVE a cataloged file which has no resident entries, the message 
"<filename> REMOVED ON ..." will no longer be erroneously displayed. 

PI 130 MCP - "450/750 LPM" TRAIN PRINTERS 

450/750 LPM train printers will now have appropriate train tables loaded for the following 
trains: 

16 char EBCDIC-3 -TRAINID=1 
64 char EBCDIC-3 -TRAINID=5 
64 char SWEDEN OCR-B -TRAINID=14 

Note: Although the appropriate tables are loaded for TRAINID's 1 and 5, they will show 
respectively as EBCDIC18 and EBCDIC72 instead of EBCDIC16 and EBCDIC64. This 
discrepancy will be resolved later. 

PI 134 MCP - "UR" VS. RESOURCE 

UR'ed tape units will no longer be subtracted from the pool of tapes used in starting jobs with 
RESOURCECHECK set. 

PI 135 MCP - MEMORY ACCESS ERROR VS. TIME OF DAY 

The starting and ending times for memory access error counts will now be logged correctly. 

PI 154 MCP - TAPE WRITE PARITY AFTER A TAPEMARK 

If the ODT option NEWPERETRY were reset and a write parity occurred on the tape record 
immediately following a tapemark, an extra record would be left on the tape. This has been 

corrected. 
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PI 180 MCP - "TAPEUNIT" VS. "VOLUNIT" 



When purging a tape on a catalog system, a deadly embrace between D I RLOCK ( TAPEUN I T ) and 
D I RLOCK( VOLUNIT) was possible. This has been corrected. 

PI 181 MCP - "I I. 6" VS. TIMESTAMP 

The timestamp will no longer be destroyed when copying BD and BP files to tape. 

PI 182 MCP - "DBS D3 NOMEM" 

DMSOPEN will now hang with an RSVP if insufficient memory is available for the D3 stack. If 
this RSVP is DS'ed, DMSOPEN will return ERROR 42. 

PI 184 MCP - "EOT" VS. " TAPEPAR I TYRETRY " 

Mag tape I/O errors at EOT, EOF and BOT will now be logged. TAPEPAR I TYRETRY has been changed 
to allow erasing up to 12000 words beyond EOT during recovery from write parity errors on PE 
tapes. The old limit of 6000 words still applies for lower densities (800 BPI , 556 BPI and 200 
BPI) . 

PI 191 MCP - "FINDINPUT" VS. "UNBRF" 

An INVALID INDEX in FINDINPUT when opening a file without a kind specification has been 
corrected. 

PI 192 MCP - "SWAPPER" VS. CRUNCH 

SWAPPER will now quit if the swapdisk file is crunched. 

PI 193 MCP - "FM" VS. "SU" 

Saved (or reserved) printers will not be selected by FINDOUTPUT even if the printer has the 
correct form. 

PI 2 14 MCP - "GIVEBACKDISK" 

If a problem occurs complementing the rows of a particular disk file during a family rebuild, 
the following message will be issued: 

HEADER DAMAGE ON < f ami 1 yname> <filename> 

The file will then be changed to a "bad disk" file, and the row in question will be deleted 
from the file. 

P1216 MCP - "OF" VS. EXCLUSIVE 

When trying to copy a disk file that is opened exclusively, the operator can now reply "OF" to 
the "WAITING FOR FILE" RSVP. 

PI 2 17 MCP - FAMILY SUBSTITUTION VS. CATALOG 

With "FAMILY DISK=USERPACK OTHERWISE PACK", CATALOG statements; i.e., CATALOG PURGE <filename>, 
CATALOG ADD <filename>, will reference <filename> on USERPACK (if USERPACK is on-line). 

CATALOG statements that specify a serial number will not have family substitution applied. 

PI 2 19 MCP - "REMOVE" VS. SECURITY 

When a non-privileged user tries to remove or change files in a disk directory not under his 
usercode, he will get a security error without a display of all of the filenames in that 
d i rectory. 

PI 225 MCP - "KANGAROO- INTERCEDE" MECHANISM 

The mechanism used by the MCP to interrupt the flow of control in a user program is embodied in 
the procedures KANGAROO and INTERCEDE, which are used to "get the attention" of a task for such 
purposes as swapping it out, suspending it, terminating it, or processing a software interrupt. 
This mechanism has been redesigned to avoid many flaws in the earlier implementation. 

The changes should not be visible to running programs, with some minor exceptions: The 
STOPPOINT task attribute value will be changed only when a fault is detected, or when a task is 
terminated abnormally; it will no longer be changed every time a swap task is timesliced, for 
example. The HISTORY task attribute will only be changed at major state transitions in a task, 
such as initiation, suspension, resumption and termination; for example it will no longer be 
set to STED (3 in bits 7:8) to time slice a swap task. 
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PI 226 MCP - "EVENT" MECHANISM CHANGES 

The implementation of EVENTs has been substantially modified. Most of the changes improve 
efficiency and reliability without affecting the semantics of existing constructs. The 
following changes may be noticable in some programs. 

dd^J^P ( ° r CAUSE after FREE > win awaken all tasks WAITing on the EVENT, but only one 
PROCUREr: the highest-priority task waiting in a PROCURE is awakened as the new "owner" of the 
event, while the EVENT remains UNAVAILABLE and all other PROCURErs remain asleep. 

WAIT((<t ime>) , . . . ) returns 1 immediately if the time interval is zero (or "early zero or 
negative), whether or not any EVENTs designated in the WAIT list have HAPPENED. This is 
consistent with taking the first "event" already "caused" (from left to right). 

WHEN(<t iime>) is now semantically equivalent to WAIT( ( < t ime> ) ) . Thus WHEN(O) is a no-op, and a 
WHEN statement with a time less than two seconds no longer swaps out a swaptask. 

^!?f software interrupt implementation has been generalized to apply to swap tasks; see MCP note 
D2 645 . 

The limit of 250 parameters (time and EVENT des i gna tor s ) is enforced in the multiple WAIT 
stat emen t . 

PI 23 1 MCP - "235" PACKS VS. MODEL "3 MPX" 

Extraneous "read log" I/O' s and pathwait problems involving 235 packs and level 2.0 firmware 
have been corrected. 

PI 23 2 MCP - DISK STATUS VS. UNIT MOVED 

Problems involved with "moving" packs using level 2.0 firmware have been corrected. 

PI 252 MCP - "SCR" VS. FIRST ACTION 

When SCR got a "first action" result descriptor from a disk pack unit, it was possible for a 
dump by ' IOERROR LEFT ON" and for all I/O's to the pack to hang. This has been cor rec t ed . 

P1253 MCP - ZIP WITH LARGE ARRAY 



ZIP WITH ARRAY will now display the "WORDS REQ" RSVP message if core is needed to make a 
of the array. 

PI 2 54 MCP - "DISKLIMIT" VS. "RSVP" 



copy 



Tasks with DISKLIMIT set were incorrectly being DS'ed if they issued "SEGMENTS REQ" RSVP 
messages. This problem has been corrected. 

PI 256 MCP - "COPYIT" VS. "GETUSERDISK" 

°oJ£I A I^ ;ER ?2!L* n5 (no user disk > wil1 not be returned unless the operator answers "DS" to the 
sbCI REQ RSVP message. 

P13 12 MCP - IMPROVE "AVAILIST" INSERT ALGORITHM 

The procedure LINKLISTINSERT and the structure of disk available lists have been modified to 
reduce overhead for consecutive calls involving mono ton i ca 1 1 y non-decreasing addresses. 

PI 374 MCP - "MAXIOTIME" 

Setting MAXIOTIME will no longer result in MAXIOTIME becoming zero. 

PI 459 MCP - "MISSINGPROCEDURE" CALL 

The call on MISSINGPROCEDURE in HARDWARE I NTERRUPT6 7 was using the wrong field of the result 
from INTERRUPTEDOPERATOR. This has been corrected. 

PI 5 52 MCP - NEW FIRMWARE 

The MCP host load procedure PATHRES can now load multisegment firmware files. 
PI 609 MCP - GUARDFILE 

Checkguardf i le would not wait for systems resources (i.e., guardfile or pack is not mounted) 
tor available present or resident. This has been corrected. 

PI 712 MCP - "VOLUME DELETE" 
Several problems with the VOLUME DELETE statement have been corrected. 
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IM7 13 MCP - LIBRARY MAINTENANCE "BADFILE" VS. "REELSWITCH" 

If a COPY without compare did a reel switch and subsequently produced the message "UNEXPECTED 
TAPE MARK-NOT COPIED", IOREQUEST would blow up. This problem has been corrected. 

PI 71 5 MCP - DYING STACK IN "WSSHERIFF" 

WS SHERIFF no longer tries to suspend dying stacks.. 

P1716 MCP - 'PB 2" LEVEL NAME 

AUTOBACKUP can now handle two level file names (e.g., BD/0001111) without getting an INVALID OP 
faul t . 

PI 71 7 MCP - "MOVE" VS. "LOG" 

After MOVEing a pack. I/O error records in the log were incorrectly showing the original unit 
number. This problem has been corrected. 

PI 71 8 MCP - "IOTRACE" 

In building the descriptor in SYSTEMSTATUS , V2 is now integerized to use for the length instead 
o f norma 1 i zed . 

PI 719 MCP - "ODT ETX" POSITIONING 

When clearing or readying an ODT, SYSTEMSTATUS zeroed the density field, not checking to see if 
it is an ODT and then leave it intact. This has been corrected. 

PI 720 MCP - CHECKPOINT 

When more than one file was reopened, one variable was not reset so that the next file could 
not be opened properly. This has been corrected. 

PI 72 1 MCP - "LINKLISTINSERT" VS. "XTEND" 

A conflict between LINKLISTINSERT and XTEND that was causing "DUMP BY FILEHANDLER" has been 
corrected. 

PI 722 MCP - READER BUSS PARITY ERROR 

A "READ PARITY ERROR" message will now be displayed when an I/O buss parity error (RD=891) 
occurs while reading from a card reader. 

PI 723 MCP - "DP" VS. "MPXIII" 

A problem in tape dumps occasionally caused superhalts on machines with Model 3 or Model 4 
Multiplexors. This has been corrected. 

PI 7 24 MCP - "CATBLKSIZEF" 

Under certain circumstances, a CATALOG DELETE could cause a corruption in the catalog record. 
The next Halt/Load would then get the following message in SYSTEM/CATALOG: "OK TO ERASE BAD 
RECORD". This has been corrected. 

PI 725 MCP - "GENERATION" 

The limit on the file attribute GENERATION is now CATALOGLEVEL ( CATALOGLEVEL limit is 7). 
Formerly, GENERATION was limited to 4. 

PI 726 MCP - "DUMP" VS. "RD" 

Occasionally, an INV PW word interrupt would occur in MCP Seg 5 code after taking a memory 
dump. This has been corrected. 

PI 72 7 MCP - "AUTOBACKUP" PRIORITY 

AUTOBACKUP now has a higher priority than MCSs and their offspring tasks. 

PI 729 MCP - "SIRWOF ADDRESS" 

The subroutine S I RWOFADDRES S will now return SIRW of true stack and save areas. Hardware 
interrupt calls this routine to ensure that a valid SIRW is passed to the attributehandler on 
an uninitialized FIB. 

PI 730 MCP - CHECKPOINT FILE HEADER TIMESTAMP 

File handler will now put the timestamp in the file header of a checkpoint file. 
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PI 73 1 MCP - MODEL "III" MULTIPLEXOR 

Model 3 Multiplexor paths were not being reserved properly by the MCP, as follows: 

1. Memory dump was releasing all reserved paths to the Halt/Load disk. 

2. PRIMARYINITIALIZE was not setting the pseudobusy FF at Halt/Load time. 
These have been corrected. 

PI 732 MCP - "ELAPSEDTIMELIMIT" 

Occasionally, a job with ELAPSEDTIMELIMIT set would be DSed for ELAPSED LIMIT EXCEEDED 
immediately after it was initiated. This has been corrected. 

PI 733 MCP - "READALABEL" VS. "EXTMODE" 

If a HDR2 tape label has an external mode field that is not 0,2,3,4 or 5, the following warning 
message will now be issued by READALABEL: "MTnn HDR2 LABEL HAS INVALID EXTERNALMODE" . The 
external mode will be assumed to be 4=EBCDIC (or 3=BCL in the case of 7 track tapes). 

PI 734 MCP - "FM" VS. SAVED "LP" 

1. The FM reply will now override the save status of a printer. 

2. If the FM reply is used to an unformed printer, that printer will automatically be saved 
when the print file is closed. 

PI 73 5 MCP - REELSWITCH VS. CATALOG 

COPY&CATALOG of a file from tape to disk will now put the correct tape serial numbers in the 
catalog, even if the file is on a reel other than the first reel. 

PI 75 2 MCP - PROGRAMDUMP DIAGNOSTIC 

The RCW of the code getting a fault will now be printed rather than a hardware interrupt RCW. 
Also, the sequence number will be printed if possible. 

PI 753 MCP - ACCEPT "DUMMMP" TAPE ANYTIME 

TAPEDUMP will now use a scratch tape with the "DUMMMP" serial number anytime when it is looking 
for a tape - even after it has given up and asked for a scratch tape. Just make the "DUMMMP" 

tape ready and it will be found. 

PI 754 MCP - PROCESSOR BOUND JOBS IN SWAPSPACE 

Processor bound jobs that run in swapspace will no longer dominate processor utilization. 
Non-interactive swap jobs will now have their priority class lowered to the level of a non-swap 
job. An interactive job in this case is one that does not exceed its timeslice. It is 
possible for a job to switch back and forth between interactive and non-interactive state; in 
this case, the priority will be updated accordingly. 

PI 764 MCP - "B6700/B7700" COMPATIBILITY 

The following changes have been made: 

1. B7700 commonality patches have been included. 

2. Magnetic tape unit type on error listings from magnetic tape confidence is now reported 
correct ly. 

3. Result descriptor on error listings in all cases is now reported correctly. 

PI 782 MCP - GUARDFILE VS. "DS" 

Under certain circumstances, if a task waiting for a disk containing a guardfile were DSed, it 
would come up a second time waiting for a disk containing the guardfile. This has been 
corrected. 

PI 783 MCP - "MASKGETAREAF" 

A problem with logging I/O errors occurring on Halt/Load disk during the WRITE part of update 
I/O has been corrected. 

PI 784 MCP - "CRUNCH" VS. "CP" 

The MCP will no longer automatically CRUNCH BACKUP files if the task has taken a checkpoint. 
This allows rerun to reopen the backup file and write output into it. 
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PI 78 5 MCP - SOFTWARE INTERRUPT EXECUTION 



The operating system now executes software interrupts that are enabled after having been caused 
while being disabled. 

The operating system will now execute software interrupts for all interrupts that are not 
di sabl ed . 

PI 786 MCP - GUARDFILE VS. STACKOVERFLOW 

Opening guarded disk files would occasionally cause s t ackove r f 1 ow. This problem has been 
corrected. 

PI 787 MCP - "TAPEPARITYRETRY" VS. "BLOCKEXIT" 

A conflict between TAPEPARITYRETRY and BLOCKEXIT involving direct arrays would occasionally 
cause a dump by BAD FORGET ADDR. This problem has been corrected. 

PI 78 8 MCP - "LOOKFORIT" CONTROL STATE 

The MCP procedure LOOKFORIT will now only be executed in control state. 

PI 789 MCP - READ "LCC" 

The response to the PC command on a system with Model III MPXs includes the "halt load count". 
Shortly after a Halt/Load, if a PC were issued, the system would occasionally get a SCAN BUS 
PARITY error. This problem has been corrected. 

PI 790 MCP - INVALID "CRITICAL BLOCK" TERMINATION 

BLOCKSEARCH could falsely detect CRITICAL BLOCK EXIT if the offspring task went away after 
BLOCKEXIT action had begun (as during an EPILOG procedure). The error has been corrected. 

PI 796 MCP - TIMESTAMP RECALLED OBJECT- JOB MESSAGE 

When object-job output is being recalled by DCRECON because a station is being cleared (e.g., 
for a DSed stack), the messages have not been t imes tamped properly. This has been corrected. 

PI 79 8 MCP - DMS PROGRAMS SWAPPED OUT "FOREVER" 

When trying to lock a record or when waiting for a syncpoint, it was possible for a DMS swap 
job to be swapped out but not be swapped back in (until DSed). This could only happen on a 
t hree -processor system, and only occurred rarely. This has been corrected. 

PI 799 MCP - "PRINTLIMIT" VS. "PROGRAMDUMP" 

PRINTLIMIT and PROGRAMDUMP will now work as follows: 

1. If a program has a PRINTLIMIT of 0, a PROGRAMDUMP will never be taken. 

2. In all other cases, a PROGRAMDUMP will never be terminated or suppressed by exceeding the 
PRINTLIMIT; however, all lines printed by PROGRAMDUMP will be counted against the 
PRINTLIMIT. If the PRINTLIMIT is exceeded at the end of a PROGRAMDUMP, the program will be 
R-DSED. 

PI 800 MCP - "WAITLIMIT" 

The job queue attribute WAITLIMIT will now work as documented In II. 9 MCP note D2140. 

PI 801 MCP - "FIBLOCK" VS. "PROGRAMDUMP" 

If a task blew up while using MYSELF. TASKFILE, it was possible for PROGRAMDUMP to hang. This 
problem has been corrected. 

PI 862 MCP - "RSNINVALID" 

Remote ODT would occasionally hang the CONTROLLER when a remote terminal was shut down. This 
has been corrected. 

PI 863 MCP - "DISCSTATUS" 

Sometimes the MCP procedure DISCSTATUS, after an I/O error on a test op to a pack, would mark 
that unit as having "NEW FIRMWARE". This would cause DISCSTATUS to fail for any unit in that 
minterm group until the next Halt/Load. This has been corrected. 

PI 864 MCP - "FORGETSPACE" VS. "FORM" 

When LH or LT commands were entered specifying a file name, the MCP was not deallocating the 
array used to hold the name. This has been corrected. 
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PI 865 MCP - LIBRARY MAINTENANCE OPEN ERRORS 

Library Maintenance will now issue an open error message when an error occurs in OPEN. 

PI 876 MCP - "RESERVE AS" 

Errors in RESERVE commands with an AS clause would sometimes cause a dump by RESERVE FAULT. 
This has been corrected. 

PI 877 MCP - LIBRARY MAINTENANCE REEL SWITCH 

Occasionally library maintenance would get a fault in DO code after doing a reel switch during 
a COPY&COMPARE . This has been corrected. 

PI 894 MCP - MOVE VS. "RC" 

The following message will have the correct unit, number, even if the pack has been the subject 
of a MOVE: 

VERIFY REQ TO RC PK<nn> 

MOVE can be used to fix the "BLASTED" state of a pack. A successful completion of a MOVE will 
fix a pack's BLASTED status. 

PI 896 MCP - NEW "GOTOSOLVER" 

Several problems involving bad GOTO handling have been corrected. If multiple GOTOs occur 
(e.g., a GOTO around a block with an EPILOG that calls a procedure that also tries to GOTO 
around that block), the resulting destination is whichever label PCW was lower in the stack. 

PI 897 MCP - NO BAD POINTERS IN "WFL" 

WFL has been added to the list of compilers whose code files never store "uplevel pointers". 

PI 898 MCP - COMPILE-AND-GO WITH "SUBSPACES=2" 

A compi le-and-go with a job or queue SUBSPACES=2 qualification was not running the go part as a 
swap task. This has been corrected. 

PI 95 2 MCP - TAPE OPEN 

An ALGOL file declaration of the following form would cause the MCP to get dumps by GETSTATUS 

UNIT: 

FILE T(KTND=TAPE,LABELTYPE=OMITTED,OPEN. . . ) 

This problem has been corrected. 

P2021 MCP - ALLOW STATISTICS TO BE PRINTED 

After a PRINT LIMIT EXCEEDED fault, the statistics can now be printed and the DBS will not 
hang . 

P2022 MCP - REBUILD VS. "AD" 

Family rebuild and AD (ACCESS DUPLICATE) will conflict if they both occur at the same time. 
These two procedures now lock each other out such that only one will occur at a time. 

The catalog or access structure now contains a TIMESTAMP so backup copies can be checked to 
ensure they are all current. 

P202 3 MCP - "SEGO" OF FLATROWS 

FLATREADER will now be able to fix SEGO of a flat directory row. Formerly a reply of OK to the 
RSVP "OK TO ERASE BAD RECORDS" would not correctly fix such an error. 

P2024 MCP - "GETSTATUS" VS. "UINFO" 

If LABELLED were not TRUE, LEB would not set up so the PACKBASEEU define could not be used. 
This has been corrected. 

P2066 MCP - TRAP FOR BAD DISK "I/O" 

If the MCP is compiled with DIAGNOSTICS set and option 43 (DISKCHECK) is turned on, a dump will 
occur whenever an attempt is made to do logical disk I/O outside the ranjie of the file. 

P2068 MCP - "PRESERVER" ARRAY PARAMETER 

The array parameter to PRESERVER has been deleted. This avoids an error which could occur if 
PRESERVER were FORKed and the array was then overlayed. 
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P2105 MCP - "DUP FAMILY" 



When two disk families with the same name cause a "no file" condition, the MCP will now use the 
message "DUP FAMILY" rather than "NO FAMILY". 

GETSTATUS error code 134 will now mean DUP FAMILY. 
P2176 MCP - LOG "MPX" SCRATCHPAD MEMORY 

The system now does logging of the MPX scratch-pad memory for packs. 
P2180 MCP - SYNCHRONIZE CLOCKS 

All time-of-day clocks on a B6800 multiprocessor system are now synchronized every 500 seconds. 

P2181 MCP - INCREASE STACK SIZE FOR "TAPEDUMP" 

The stack size in TAPEDUMP has been increased to avoid overflowing into the buffers. Also, 
LOSR is now set, so future stack overflows will get a stack overflow interrupt. 

P2182 MCP - EXPANDAROW FOR DOPE VECTORS 

Expandarow will now work on vectors of descriptors to GETAREAs . 

P2198 MCP - "GETAROW" VS. CATALOG 

Occasionally, when the CATALOG or ACCESS header was stretched, it would overlay the next header 
in the FLAT directory. This has been corrected. 

P2199 MCP - "PATHRES, FLATREADER, ERRORHANDLER" 

The following corrections have been made: 

1. PATHRES will now distinguish between NO PATH and a BLOCKED I/O QUEUE when producing error 
mes sages . 

2. FLATREADER will now produce an error message when it aborts. FLATREADER will now abort if a 
disk unit is in BLASTed state. 

3. ERRORHANDLER will now abort if it is called for a BLASTed unit. 

4. PACKMOUNT will no longer allow access to a BLASTed pack. 
P2212 MCP - SCRATCHPAD PARITY ERROR 

The MCP will now log B6800 SCRATCHPAD PARITY ERROR external interrupts. 
P2213 MCP - "BX380" VS. CHANNEL ADDRESSING 

The MCP will no longer zero out bits 12 and 13 of result descriptors from 215 BX380 diskpacks. 

P2214 MCP - "AB" VS. "EOF" 

When a backup file has PROTECT I ON=PROTECTED set, AUTOBACKUP will now print up to the last block 
written, even if a Halt/Load prevented the backup file from being closed. 

P2215 MCP - "TURNOVERLAYKEY" 

TURNOVERLAYKEY will no longer get an invalid address if passed a procedure with the 
once-only-independent-runner bit on. 

P2221 MCP - "STATISTICS" 

The MCP STATISTICS option may now be used while SWAPPER is running and no longer requires that 
the intrinsics be recompiled. 

P2222 MCP - "NDL" COMPATIBILITY 

The III.O and III.l MCPs are now compatible with either III.O or III.l NDL files. 

P2 22 3 MCP - "FORGETAREA RCW" TRACE 

An RCW trace option, triggered by the same bit that controls the FORGETSPACE RCW trace, has 
been implemented in FORGETAREA. When enabled, the first word after the links in the forgotten 
area will contain the stack number of the stack that called FORGETAREA followed by as many of 
the RCWs in the stack as will fit in the space available. 
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P2224 MCP - IMPROVE HANDLING OF DSING DCPS AND MCSS 

If a controlling MCS or DCP abnormally terminates or is DS-ed, programs with open remote files 
will receive an EOF on their next I/O operation to an affected station. Affected stations will 
have DISPOSITION=DENIED, and the remote file's POPULATION and STATIONSDENIED counts will be 
updated appropriately. 

P2 22 5 MCP - "FA" OF UNLABELED FILE TO REMOTE 

A system dump by "STACK KILLED WITH PCL" will no longer occur when an unlabel led file is 
equated to a remote file via FA operator input in response to a "NO FILE" condition. 

P222 6 MCP - DSED "MCS" WAS CAUSING HUNG TASKS 

If an MCS abnormally terminates or is DS-ed, programs with remote files will no longer hang in 
DCCLEAR with a positive datacomm write count (DCWCOUNT) , because outstanding WRITEs will have 
normally finished (via DCIOFIWISH) . 

P2227 MCP - SCHEDULE STATIONS MUST BE ATTACHED 

When attempting to assign a schedule station to a remote file, the station must have been 
previously attached by an MCS; otherwise, an OPEN error will occur, and "SCHEDULE STATION MUST 
BE ATTACHED" will be displayed. 

P2 22 8 MCP - "DCP" FAULT WITH SPACE QUEUE LOCKED 

If the E>CP abnormally stops (e.g., faults) with DCPSPACEHEAD[ * ] locked, the MCP wi 1 1 no longer 
hang in an infinite loop. 

P222 9 MCP - "AUTODC" AND STATION ATTACH 

When attaching a station by name (DCWRITE type = 01), AUTODC (option 12) will be checked prior 
to invoking FIREOFFDCP. 

P2230 MCP - "PC" LOCK VS. "NIFSEARCH" 

PROCESSCHANGELOCK is released in MUTATE to avoid a deadlock with DIRLOCK during FINDINPUT in 
NIFSEARCH. 

P22 31 MCP - CORRECT PRIMARY QUEUE NUMBER 

The procedure DCINITIATEMCS will now return the correct primary queue number. 

P2232 MCP - TANKED OUTPUT MESSAGES 

The appropriate bit in a station list will be used to specify that tanked output messages were 
in progress at file CLOSE time for a remote file with asynchronous tanking. 

P22 3 3 MCP - "DCALGOL EPILOG" PROCEDURES 

An error has been corrected in the handling of DCALGOL EPILOG procedures at BLOCKEXIT time. An 
INVALID INDEX could occur in the case where the block containing the EPILOG was a formal 
procedur e . 

P2235 MCP - REBUILD VS. "DONTWAIT" 

GETFAMILY of FILEHANDLER will now return NOTFOUND if a disk being sought is rebuilding (in 
ERRORHANDLER) if the caller set FHDONTWAITF; consequently, CANDE wi 1 1 not hang so often waiting 
for ERRORHANDLER . 

P2241 MCP - HANDLE LONG "AX" INTO SHORT ARRAY 

It is no longer possible to cause a fault in MCP code by entering an AX input with a message 
text longer than the program's array. 

P2 242 MCP - "PROGRAMDUMP" CORRECTIONS 

Two small long-standing errors in PROGRAMDUMP have been corrected, as follows: 

1. The TFFFF and TFFFOFFF of an RCW are now printed independently as "TRUE" and "OCCUPIED", 
respectively. Formerly, the former was printed only if the latter were set. 

2. DCALGOL MESSAGES and MESSAGE ARRAY elements will no longer be mistaken for special objects 
1 ike FILEs . 

P2 265 MCP - "BUFFERS" ATTRIBUTE FOR OPEN FILE 

The BUFFERS attribute was returning zero for open files rather than the number of buffers 
allocated. This problem has been corrected. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 MCP 



PAGE 340 
MARK 3. 1 



P2 266 MCP - SECURITY VS. BACKUP 



Non-privileged users would occasionally get security violations when entering printer or punch 
backup files in the directory. The security violation would occur at close time if the file 
had been removed after it was opened and before it was closed. This problem has been 
corrected. 

P2267 MCP - LOCKING IN "MIXREQUEST" 

It is no longer possible to take the ELSE part of MIXREQUEST's case and exit with 
PROCESSCHANGELOCK procured. 

P2268 MCP - "CL" VS. "AB" 

Occasionally, after entering CL a printer or punch AUTOBACKUP would hang. Normally, this 
condition could be circumvented by CLing the unit again. AUTOBACKUP has been changed so that 
it will usually CL the unit automatically until the I/O queue is clear. 

P2269 MCP - "DCALGOL EPILOG" REVISITED 

BLOCKEXIT handling of DCALGOL EPILOG procedures has been corrected yet again. The policy 
remains that an epilog in non-MCP code will not be processed if there is stack overflow 
pending, unless the code has been marked non-DSABLE. The latter distinction is now based on 
the segment description for the EPILOG procedure. 

P227 3 MCP - "RESERVE" LOOP 

RESERVE would often loop after issuing the message "WAIT ON TEMP FILE <filename>". This 
problem has been corrected. 

P2274 MCP - "CLOSE" ERRORS FATAL 

"10 ERR IN CLOSE", which is generated in CLOSE, is now a fatal error. 

Also, trying to write to disk past the EOF is now a fatal error. 

Errors which now become fatal are the following: 

1. Closing COBOL files not opened 

2. Errors rewinding a tape at CLOSE 

3. Errors writing tape marks at CLOSE 

4. Errors writing tape labels 

5. User not explicitly closing file requiring user labels 

6. Error reading user labels at CLOSE 

7. Writing past the EOF when flushing buffers at CLOSE 

P2275 MCP - "COPY =" MANY FILES 

When Library Maintenance attempted to copy a very large number of files, it would occasionally 
abort. This was caused by overflow of a 16-bit field. These fields are now 20 bits. 

P2286 MCP - "GETSTATUS UNIT" VS. "DISKPACKSEARCH" 

After a GETSTATUS UNIT memory dump, DISKPACKSEARCH will now be liberated if it was owned by the 
dumping stack. 

P2288 MCP - "MCP" CONVERSION TO "NEWP" 



INTRODUCTION 



This note describes the differences between NEWP and ESPOL that resulted in changes to 
the III.l MCP symbolic. Full documentation of NEWP features used in the MCP is contained 
in "D2804 — Implementation of NEWP". 



BLOCKS AND PROCEDURES 



"Cheap" Blocks 



Blocks which are not procedures are not entered with an ENTR operator in NEWP. Items 
which are declared in the block are simply added to the stack at the current lex level. 
Since this implementation requires less execu t i on- t ime overhead, NEWP blocks are called 
"cheap" blocks. 

Because cheap blocks are not entered via an ENTR operator, it is illegal to leave a block 
by performing an EXIT or RETURN. Cheap blocks do not change the addressing environment; 
thus, the lex level does not change and there is no MSCW for the block. 
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Segment at i on 



In NEWP, by default, procedures declared at lex levels less than or equal to the 
specified SEGMENTLEVEL are in separate segments, regardless of whether or not local 
variables are declared, and blocks are not in separate segments. Default segmentation 
can be overridden by using block directions, as described in the NEWP D-Note. 

The ESPOL constructs BEGINSEGMENT, ENDSEGMENT, RESIDENT, CONTROL, and SAVE (for 
procedures) do not exist in NEWP. Instead, the SEGMENT and CONTROLSTATE block directions 
can be used to perform the same functions (e.g. an outer block "SAVE" procedure is 
specified in NEWP as [SEGMENT=5, CONTROLSTATE]). 



POINTERS 



As described in the NEWP D-Note, pointers can be declared as EBCDIC, ASCII, BCL, or HEX. 
I f no size is specified, EBCDIC is assumed. Strings are assumed to be EBCDIC if no size 
specification is given. In NEWP, POINTER(<array name>) generates an EBCDIC pointer, not 
a word pointer as it would in ESPOL. POINTER( <array name>,0) generates a word pointer 
as does the construct POINTER(MEMORY[n] ) . Word pointers are syntactically 
interchangeable with EBCDIC pointers. 

NEWP does not allow pointer and string sizes to be mismatched. For example, a REPLACE 
statement is not allowed to replace an EBCDIC pointer by a hexadecimal string. 

The CORRECTLY clause, allowed on REPLACE statements in ESPOL, is not implemented in NEWP. 



ARRAYS 



Arrays in ESPOL can be used as arrays (in the ALGOL sense), as array references, and as 
descriptors. In NEWP, these concepts are separated; arrays are the same as ALGOL arrays, 
array references are declared explicitly, and descriptor-related operations are performed 
using variables of a new data type called DESCRIPTOR. DESCRIPTOR variables are described 
in the NEWP D-Note. 



Array bounds in NEWP differ from ESPOL in the following ways: 

Both the upper and the lower bounds of the array must 
dec 1 arat ion. 



be specified in an array 



The array bound "•" is allowed only for formal parameters. 

I f "*" 's specified as the lower bound of an array formal parameter, the lower bound 
is passed to the procedure as a hidden parameter (as in ALGOL). 

Address-equated arrays must have "0" as the lower bound, not "*". 

In NEWP, arrays can be passed as parameters by reference only. NEWP cal 1-by-ref erence 

arrays have the same semantics as ESPOL call-by-value arrays, as they both pass a copy 

descriptor. ESPOL call-by-name arrays are not available in NEWP; call-by-reference 
DESCRIPTORS are used instead. 



OTHER CHANGES 



This section describes additional differences in syntax and semantics between NEWP and 
ESPOL. The following table lists some ESPOL constructs that are not available in NEWP 
and how they were converted when they were encountered in the MCP symbolic: 



ESPOL Construct 



DABS, DNABS 

DUPLICATE 

ENTIER 

EVENT(x) 

EXCHANGE(x) 

EXCHANGE (x, a) 

FIRSTWORD(<event>) 

1 10 

LOAD 

M 

NAME( x ) 



NAME <type> 



NEWP Conversion 



None to 


conver t . 


Deleted 


by 


recoding . 


Replaced b; 


V a 


DEFINE. 


Recoded 


using 


"EVENT AT" . 


Deleted 


by 


recoding . 


DEFINEd 


to 


be 


READLOCK. 


Deleted 


by 


recoding . 


DEFINEd 


us i ng 


SCANOUT. 


Recoded 


us 


ing 


"DESCRIPTOR AT 


DEFINEd 


to 


be 


MEMORY . 


Recoded 


us : 


ing 


LEXOFFSET or 


"REFERENCE TO" . 


Recoded 


us i 


ing 


"<type> VIA" . 
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OCRX 

REWIND statement 

SCALELEFT, SCALER I GHT, 

SCALER I GHTS, SCALER I GHTT 
SCALER I GHTF 
SPACE Statement 
STACK 
STFF 

TOGGLE 
TOPOFSTACK 
TOUCH 
UNPACKU 

Software interrupts 

[<exp>] := <expl> 

S<octal constant} 

GO TO <word variable> 

GO TO <des i gnat iona I exp> 

Ini t i al i zed arrays 

Initialized variables 

Dynamic procedures 

e.g. PROCEDURE (P) 
Space-saver procedures 

e.g. PROCEDURE P [10] 
FIELDs 
LAYOUTS 
PICTURES 
QUEUES 

Compile-time variables 

e.g. DEFINE X: =3 
Address-equation of the 

form "<id> = (-0,n)" 
Undec 1 ared 1 abe 1 s 

("seems to be a label") 
Vec tormode 
Word expressions as 

<translate table>s in 

REPLACE statements 
IF <ptr>=<arith exp> FOR <n> 
ON statements 
ONES intrinsic used as a 

stat emen t 



MARK 3 . 1 

Replaced by a DEFINE. 
Replaced by CLOSE( f .RETAIN) . 
None to conver t . 

Replaced by PACKDECIMAL. 
Replaced by READ(f[ SPACE n]). 
Declared as an array at (0,2). 
Recoded or defined using 

"REFERENCE TO" . 
Deleted by recoding. 
Deleted by recoding. 
Replaced by a DEFINE. 
Deleted by recoding. 
De 1 e t ed by recoding . 
Recoded using "<type> VIA <exp>" 
Replaced by 3"<octal constant)". 
Replaced by procedure calls. 
Expanded into statements. 
None to conver t . 
Statements added to initialize 

variables. 
Recoded as normal procedures. 

Recoded as dummy procedures 

of the desired length. 
Redeclared as DEFINES. 
Redeclared using concatenation. 
Deleted by recoding. 
Redeclared items using CONSTANT 

declarations. 
Redeclared as CONSTANTS 

or deleted by recoding. 
-0 replaced by * . 

LABEL declarations added. 

Recoded using VECTORCHECKSUM . 
Recoded by declaring table. 



Recoded using 48"...". 
Recoded using ON declarations. 
Replaced by DAWDLE intrinsic. 



The following ESPOL constructs are implemented differently in NEWP : 

The ESPOL intrinsic MYSELF is WHOAMI in NEWP; MYSELF in NEWP is the 
accessing the task for the executing program, as in ALGOL. 



intrinsic 



for 



Multi-character operators are treated as single tokens in NEWP . The characters 

cannot be separated by embedded blanks, by card boundaries, or by parametric 

defines. However, one blank is permitted between the "=" and the "*" in the update 
replacement operator (":=*"). 

Assignments to REGISTERS may not use the update replacement operator (":=*") and may 
not be embedded within expressions. 

Accidental entries are never generated in NEWP. Thus, expressions may not be passed 
to ca 1 1 -by-re fe rence parameters. 

NEWP makes no distinction between SAVE ARRAYs declared in the outer block and those 
declared locally. That is, NEWP wi 1 1 not pre-allocate global SAVE ARRAYs in the 
D[0] st ack image . 

Parameters associated with formal procedures must be specified. 

Implicit type transfers ("coercions") of WORD variables to other data types have 
been restricted in NEWP. Specifically, WORD variables are not coerced to ARRAYs, 
PROCEDURES, or POINTERS. Coercions between WORDs and BOOLEANs are not allowed in 
assignment operations. 

REAL variables appearing in concatenations are not coerced to BOOLEANs. 

Certain D[0] variables that are initialized by ESPOL are not initialized by NEWP, 
such as the empty descriptor at (0,92) and the empty tag 6 word at (0,90). 

The STOP intrinsic allows two additional parameters in NEWP; these parameters 
specify locations into which the contents of the A and B registers are to be stored 
following the HALT operator. 
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A BEGIN/END pair is required around all procedure bodies. 

P2300 MCP - "MPX" VS. TAPE PARITY 

Occasionally, the I/O queue for READALABEL would become garbled, apparently caused by the MPX 
setting the RDERROR field to even though IOATTENTION was set in the IOCW. This problem has 
been corrected; HARDWARE INTERRUPT now sets bits and 1 of RDERROR if IOERROR is running. 

P2 301 MCP - "AB" BUFFER SIZE 

The buffer size of AUTOBACKUP has been doubled, thus increasing printout speed. 

P2303 MCP - "SYSTEMSTATUS" STRING PROTECT 

Previously, it was possible to put the system in a control state loop by calling SYSTEMSTATUS 
CASE 10 with too short an array. This problem has been corrected. 

P2304 MCP - RESTORE "LOSR" AFTER DUMP 

DUMPBOOTSTRAPPER now restores the LOSR register after a non-fatal dump. 

P2305 MCP - "STICKY" MEMORY 

A conflict between two different stacks in GETSPACE occasionally occurred when STICKY memory 
was being used. This would lead to INV PW in GETSPACE. This problem has been corrected. 

P2306 MCP - "USERPARITYBIT" 

For certain I/O errors (such as DESCRIPTOR ERROR, MEMORY PARITY ERROR, etc.), IOERROR was not 
setting the USERPARITYBIT, thus causing such I/O errors to go undetected by most programs. 
This problem has been corrected. 

P2307 MCP - "VERIFYFAMILY" VS. "BU" 

Occasionally, VERIFYFAMILY would incorrectly set up a disk family that was using duplicate 
directories. This problem has been corrected. 

P2310 MCP - CLASS COUNT "UFLO" 

MEMDUMPs by CLASS COUNT UFLO would occasionally occur when running RESERVE on HPT DISK. This 
problem has been corrected. 

P23 11 MCP - "EOJ" VS. "USTKASSIGNED" 

Occasionally, after a program does a CLOSE, ASSIGNSTKV, READALABEL will get a dump by UNOWNED 
I/O. This problem has been corrected. 

P23 12 MCP - "SWAPPER" GETS "DIV BY ZERO" 

SWAPPER no longer gets a "DIV BY ZERO" error after entering "<mix> AX MINTIME" . 

P2336 MCP - CLEAR PARAMETERS IF TASK INITIATION FAILS 

An error has been corrected which caused garbage parameters to be passed if a TASK variable had 
previously been used in an unsuccessful task initiation. 

P23 5 8 MCP - "OVERLAYCF" 

On a B6800 multiprocessor system, a problem with the handling of LINKB occasionally caused 
faults in LOSEOLAYSPACE (for one) because the wrong stack number was used. This problem has 
been corrected. 

P2364 MCP - "SIB" ENVIRONMENT 

If a SIB environment in the codefile ended on a row boundary, DMSOPEN would read the 
environment incorrectly. This problem has been corrected. 

P2391 MCP - CATALOG REMOVE 

Occasionally, after a catalog (or access) has been removed, STARTSYSTEM would get a dump by 
VERIFY ERR 9. This problem has been corrected. 

P2392 MCP - SWAP OUT WAITING FOR SCHEDULE READ 



Swapjobs that read data from schedule stations are now swapped out if the data is 
available. 



not 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 MCP 



PAGE 3 44 
MARK 3 . 1 



P2396 MCP - "CPRESTART EOJ " 



Occasionally, when a checkpoint restart job was aborted, the program name in the COMPLETED mix 
picture would be corrupted. Sometimes this corruption would cause a fault in the CONTROLLER. 
This problem has been corrected. 

P2419 MCP - IMPROVED "I/O" ERROR MESSAGE 

When a program tries to write on a crunched file using different blocking factors from than 
those of the physical file, the error message "INCOMPATIBLE BLOCKING" is now given; previously 
the message "UNKNOWN ERROR" was given. 

P242 2 MCP - ARRAY PARAMETERS BY VALUE 

In certain cases, arrays are being passed "by value" to external procedures. The circumstances 
are the f o 1 1 owi ng : 

1. The only parameter is a single-precision array passed with lower bound-O. 

2 a. The passing program is WFL code, or 

2 b. The passing program is an MCS and the receiving program is a task of a session. 

"by value" means that the data are copied into a new array, whose main descriptor resides 
within the receiving task. 

The current specifications of this feature are temporary for the III.l release, and will be 
changed. This implementation serves two purposes: 

1. Utility programs and compilers run as clients of jobs or of CANDE will no longer need to be 
searched for descriptors belonging to the parent process. 

2. Utility programs and compilers may be proessed as an external host, even though 
pa rame t er-pas sk i ng in general is not supported in III.l Host Services. 

P2423 MCP - MEMORY PRIORITY FOR SWAPJOBS 

The memory priority algorithms now work properly for swapjobs. 

P2425 MCP - SIZE CHECK OF USER ARRAY 

In GETUSER, a test is made to determine if the array "userarray" is large enough to hold the 
information. The test was wrong; it has been corrected. 

P2427 MCP - "MPX" PATHS 

The OL display for disks and tapes will now show which multiplexors have paths to a minterm 
group. Formerly, this display was accurate only for systems with Model 3 and Model 4 
mul t i p 1 exor s . 

P2428 MCP - UNINITIATED "I/O" DUMP 

A dump by uninitiated I/O would sometimes occur when a tape drive was cleared. This problem 
has been corrected. 

P2429 MCP - ILLEGAL "I/O" 

The MCP traps attempts to initiate I/O from one local processor when the buffer is in local 
memory of another processor. A DIAGNOSTICS MCP has been taking a dump by ILLEGAL I/O. In the 
forthcoming III.l MCP, such an occurrance would indicate a system failure. However, in 
initial-release TC systems, the situation may arise from violation of the configuration rules, 
such as using a non-exchanged mag tape or attempting direct printer output with the printer on 
the wrong side of the system and the direct arrays forced to local (see MCP note D2911). 

Because user error has proved more likely than system error in this diagnostic, the TC 
initial-release software has been changed. In addition to cancelling the I/O, as before, the 
MCP will now terminate the offending process with the message 

ILLEGAL 10: UNIT NOT EXCHANGED TO LOCAL PROCESSOR 

The dump by ILLEGAL 10 is now produced only if the run-time option DIAGNOSTICS is set; it is 
independent of the compile-time SDIAGNOSTICS option. 

A task DSed for ILLEGAL I/O will have HIST0RYCAUSE=SYSTEMCAUSE=5 and 
H I STORYREASON= I LLEGAL 1 0V= 5 . 

P2430 MCP - NEW HIGH ORDER PRIORITY SCHEME 

The priority of a process stack for acquiring a processor must often be raised above the normal 
visible priority range 0-99. The exalted priority is sometimes permanent, as for certain 
independent runners, MCS programs, and the like; for other stacks, the priority must be raised 
temporarily, as during a period that MCP global locks are held. (If a process cannot reacquire 
a processor to unlock some resource, many other processes can be starved of that resource.) 
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The MCP keeps processor priority in a three-part field. The declared visible priority is in 

the middle, with fine priority (biasing towards I/O-bound tasks) at the low end and the 

special-case priorities in the high end. The management of this high-order field has been 

changed . 

Since the II. 8 release, the MCP has initialized this field, called PRIORCLASSF, to various 
values according to the type of process. Then the field was used as a counter, bumped up and 
down as the code PROCUREd and LIBERATEd events, etc. In the new scheme, the field is divided 
into several subfields which may be used orthogonally. The function of lock counting has been 
moved to a new word in the base of the stack; one bit in the priority field records the 
non-zero state of that counter. The field as a whole is called PRIORBIASF; the subfields are 
as follows: 

H1GHESTBIASF [47:1] Set for invisible independent runners. 
LOCKBIASF [46:1] Set if LOCKCOUNT is non-0; used for soft 

locks and similar resources. 
IRBIASF [45:2] Used for special independent runners, both 

visible and invisible. Among the former 

are AUTOBACKUP and DCCONTROL. 
MCSBIASF [42:2] Used for special user programs: an MCS gets 

2, a CPed non-MCS gets 1. 
DSEDBIASF [39:1] Used to accelerate a DSed process off the 

system, freeing any resources it has used. 
INTERAiCTIVEBIASF [38:1] Set for a swap task currently in an 

interactive (not time-sliced) mode. 
JOBBIASF [37:1] Set for all WFL JOB stacks. 

(The fields have been described in the positive sense; the data are actually kept in 
ones-complemented form to utilize the LLLU operator.) 

In an additional change, any time PRESENCEBIT locks a descriptor, the LOCKCOUNT is incremented 
as though an event had been PROCURED. 

P243 1 MCP - "PROGRAMDUMP" BE WARY IN DEFUNCT BLOCK 

PROGRAMDUMP attempts to determine the owning stack for any copy descriptors encountered. If 
the area is owned by some other stack and the ARRAY option is selected, the contents are dumped 
for arrays referenced by unindexed copy descriptors. This useful feature can be dangerous if 
BLOCKEXIT has begun to tear down the block in question, since the copies may be of moms which 
formerly resided in this block and have been deallocated. 

BLOCKEXIT now marks a block as DEFUNCT, by setting a bit in the software control word. When 
PROGRAMDUMP finds such a mark at the top of a block, it displays that fact on the SCW line. 
Then it ignores any copy descriptors within that block which do not point into the stack or 
segment dictionary directly. That is, the copy descriptors are shown, but their analysis and 
possible area dumping is curtailed. 

PROGRAMDUMP now also notices the NOGOPASTF bit in special SCWs used within the MCP. Such an 
SCW will now be identified as such, rather than subjected to a garbage "analysis." 

P24 3 3 MCP - CORRECT "TERMINATE" VS. "BLOCKEXIT" RACE 

A timing race has been eliminated between TERMINATE (tearing down a stack and cleaning up its 
TASK variable) and BLOCKEXIT (discarding the TASK in question). 

P2435 MCP - REVISE "GETAREA" POOL 

The management of the pool of spare GETAREA rows has been revised, as follows: 

1. The basic number of spare rows is now 3, with a window of 3. Thus new rows will be acquired 
when the number of empty rows falls below 3; empty rows will be discarded when their number 
exceeds 6. 

2. The basic number (but not the window) is increased by one for each 34 swaptasks. 

P2436 MCP - STATISTICS IMPROVEMENTS 

A number of improvements have been made in the reliability and completeness of the MCP 
statistics mechanism. 

Attempts to SV or RY a processor will be rejected while statistcs is running. 

P2438 MCP - LIBRARY PROGRAM DUMP OPTIONS 

The following new program dump options have been added as a result of the Libraries 
imp 1 emen t a t i on : 

LIBRARIES Dump all library stacks 

PRIVATELIBRARIES Dump only Private Library stacks 
SIBS Dump SIBs 

The existing DBS option dumps all DBS and SIBs. 
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See GENERAL note D2535, "Revised ODT Commands", for syntax and semantics. 
P2448 MCP - "CL READALABEL" 

When the operator clears a tape in READALABEL, the MCP will now issue the message: 

MT# READALABEL DSED 

P2483 MCP - "GIVEBACKHDR" CORRECTION 

If files happen to overlap on a pack and one (or both) is (are) a code file(s), we eventually 
get an "I/O TO UNIT ZERO" dump because DOCTOR used a "bad disk header" out of which the unit 
number was derived while trying to bring in some code. 

Now, when overlap is detected, an overlap message is given (only one per file) on the ODT 
naming the pack, from segment, to segment, and file name. In addition, if the FILEKIND of the 
file is "dangerous", it is marked as an "XDISKFILE" (i.e., bad disk) and an ODT message is 
issued telling the operator that the file has been so marked. 

P2488 MCP - AUTOMATIC SHORTENING OF "SEARCHQ" ENTRIES 

When the number of SEARCHQ entries in the system gets too large, SWAPPER will swap in swapjobs 
in an attempt to reduce that number. 

P2513 MCP - "CATALOG PURGE" 

CATALOG PURGE and CATALOG DELETE were not clearing the CATALOGED bit in the resident disk file 
header. This meant the MCP often restored the cataloged status of a disk file the next time it 
used the header. This problem has been corrected. 

P2514 MCP - "PURGIT RD" MESSAGE 

An I/O error while purging a 7-track tape would cause an INVALID INDEX in PURGIT. This problem 
has been corrected. 

P2519 MCP - NEW TRAPS 

Two new traps have been installed in the MCP. Both are of low execution cost. 

Any fault in or of NORMALEOJ causes a fatal dump by FAULT IN EOJ . 

Any fault termination in DO-relative (MCP) code while the faulting stack has a soft lock now 
causes a non-fatal dump by MCP FAULT LOCKED. 

P2530 MCP - "CHECKPOINT" VS. "OLAYHEADER" 

Occasionally, CHECKPOINT would blow up counting the number of allocated rows in the overlay 
file. This problem has been corrected. 

P2531 MCP - "CHANGEMCP" "INVALID INDEX" 

CHANGEMCP will no longer terminate with a fault if the MCP being CMed to has no unallocated 
rows in the code file header. 

P2532 MCP - "CHECKPOINTFILE" VS. ABORT 

In certain cases when a checkpoint was aborted, the checkpoint file would accidentally be left 
opened. This problem has been corrected. 

P2533 MCP - DISALLOW CRUNCHED "USERDATAFILE" 

The code in the MCP to disallow crunched SYSTEM/USERDATAFILE was incorrect; it has been 
correct ed . 

P2S34 MCP - "CHECKPOINT" VS. " JEDGARHOOVER" 

A program run under a non-privileged usercode that took a checkpoint with a temporary disk file 
open would get a security error if it rewound the file and then read the file. This problem 
has been corrected. 

P2536 MCP - "PATH MARKED OFFLINE" 

The PATH MARKED OFFLINE message for disk packs has been changed to an RSVP, so the operator 
will be sure to notice it. A path will not be automatically marked offline until it receives 
three consecutive 809 result descriptors. 

P2537 MCP - REEL SWITCH VS. PARITY ERROR 

COPY (no compare) to a tape would occasionally hang the system. This would happen if EOT 
occurred immediately after the operator replied OK to RECOPY REQUIRED. This problem has been 
corrected. 
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P2S38 MCP - SPURIOUS "PACK IN USE" MESSAGE 

On a B6800 Multiprocessor system, a spurious PK<nn> IN USE message would occasionally be 
generated, as well as a spurious SECTORS REQUIRED message. These problems have been corrected. 

P2S45 MCP - "OETAREA" VS. LOCKS 

A possible system deadlock involving GETAREA, ETERNALIR and RSVPLOCK has been corrected. 

P2546 MCP - "DD" VS. "CM" 

COPYDIR no longer sets DKBACKUPF before completion. PACKMOUNT RSVP for JOBCODE no longer 
attempts to display the file title. 

P2 552 MCP - CARD READER SECURED STATUS 

If a card reader is secured using the SR command and is later cleared using the CL command, it 
loses its secured status. This problem has been corrected. 

P2566 MCP - PUT "HOSTNAME" AND "GROUPID" IN PROGRAMDUMP 

HOSTNAME and GROUPID now appar in the programdump heading. 
P2584 MCP - AVOID EXTRA MOM ON "B6800" NEGATIVE INDEX 

A logic error in the B6800 processor has the following effect: 

If a Mom descriptor is indexed by a negative value, a replica of the mom is left on the 
stack (just below the interrupt MSCW) . 

If the fault causes a PROGRAMDUMP which causes a stack stretch, the extra mom descriptor 
results in a dump by "BAD STRETCH MOM". 

Pending correction of the hardware, the MCP will avoid the bad effects by setting the copy bit 
of any such replica mom. 

P2588 MCP - INITIALIZING "FIB" IN DIFFERENT STACK 

In certain cases, the MCP was improperly initializing FIBs declared in other stacks. The 
problem has been corrected. 

P2 590 MCP - "CHECKPOINT RESTART" 

CHECKPOINT RESTART has been corrected, as follows: 

1. It will now correctly reestablish software interrupts. 

2. Rerun will not do family substitution when looking for backup punch and printer files. 

3. Absent copy descriptors are now handled correctly. 

P2595 MCP - SETTING FAMILY NAME AFTER ASSIGNMENT 

Fanii 1 ynaime will now give an attribute error if an attempt is made to set it after the file has 
been assigned. Previously, the assignment did not give an error; however, the familyname was 

not a 1 t ered . 

P2597 MCP - "PROGRAMDUMP" HEADING 

The heading of the program dump has been reformatted and augmented for improved readability. 
Among the improvements are the following: 

1. Correctly identify the machine (B6700, B6800) 

2. Fully display longer program and MCP names 

3. Show subsystem (local processor or Global) on a B6800 Multiprocessor system 

P2 5 99 MCP - "PROGRAMDUMP" HANG 

On a diagnostic MCP, a program that had OPTION=FILES set and then got an attribute error in the 
file description could hang in a non-DSable state. This problem has been corrected. 

P2624 MCP - PROTECTION FROM TAG- 7 INTERRUPTS 

HARDWARE INTERRUPT now prevents any tag-7 interrupt parameter from confusing the algorithm that 
searches for PCW or memory link words to determine the owner stack of a memory address. 
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P2625 MCP - PRINTER DUMP LOOP 



Occasionally, the raw printer dump program would go into a loop doing futile outputs to the 
printer, which never moves. The problem occurred only when the paper had been left aligned at 
the end-of-page line; this has been corrected. 

P8629 MCP - "PD" TO MISSING FAMILY 

PD commands directed to missing families will now get the response "NO FAMILY". 
P91 17 MCP - "235" PACKS 

The MCP and LOADER can now handle the new diskpack controlware releases and 235 diskpacks 

P9143 MCP - FATAL STACK OVERFLOW 

System fatal stack overflow dumps after a user stack is stretched to the limit will no longer 
occur (only for non-SWAPPER cases). 

P9145 MCP - "CRUNCH" VS. "COPY" 

When files are copied to disk, the rows will be allocated in order. This will avoid 
checkerboarding when several crunched files are copied to disk. 

P9146 MCP - RESERVE LOCKS 

The MCP RESERVE procedure is no longer subject to a deadly embrace involving USERDISKLOCK and 
RESERV I NGCOMPLETE . 

P9149 MCP - "BADROW" 

If FLATREADER encounters a row that is allocated on a FAMILY member that is not in the family 
(DFAMILYINDEX too large), the row wi 1 1 be deallocated. 

P9150 MCP - "FILEKIND" 

PD on a cataloging system will now show the FILEKIND of each non-resident disk file. 

P9151 MCP - "CDONLY" 

The message "OPEN WITH CDONLY SET: < f i 1 e id> " has been changed to "NO FILE (CR) BUT CDONLY IS 
SET: < f i 1 e id>" . This message is issued when a task is DS'ed for a no file on a card input file 
with the CDONLY system option set. 

P9153 MCP - CHANGE TITLE OF CATALOGED FILE 

Changing the title of a cataloged file will only affect the resident file. The catalog 
information under the original title will remain unchanged, except that the file is now 
non-resident. Users may obtain the file under its original title by specifying the original 
title and the USECATALOG file attribute. .The resident file whose title has been changed will 
have no backup copies until some user action is taken to produce them. 

P9156 MCP - TASK ATTRIBUTE ERRORS 

Several cases where task attribute errors displayed no message have been eliminated. In 
general, a user task attribute error will display a message and DS the task. Certain 
exceptions to this rule remain for MCS ' s . 

Also, some improvements to the task error messages have been made; e.g., the "INCORRECT SYNTAX" 
message will name the task attribute invoked. 

P9158 MCP - "WFL" "USER" STATEMENT IN SUBROUTINE 

A USER statement in a WFL subroutine which is PROCESS'ed will now properly change the usercode 
of the processed subroutine. 

Previously, a USER statement in a PROCESS'ed WFL subroutine was ignored. 

P9160 MCP - "CANDE" "WFL" COMMAND WITH NEW "WFL" SYNTAX 

A WFL RUN statement in a CANDE WFL command would abort for "FAULT OR BAD TASK ATTRIBUTE" if the 
WFL command used the II. 9 BEGIN JOB syntax. This problem has been corrected. 

P9161 MCP - "SCHEDCORE" 
SCHEDCORE will now be counted for invisible jobs as well as visible stacks. 
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P9162 MCP - "NO MEM" IN SWAPSPACE 

The core initially allocated for arrays, code, etc., is no longer protected by memory priority 
inis should alleviate problems with large amounts of array initialization. 

P9164 MCP - "SWAPPER" QUEUE COUNTS AND AGING 

The values for CORENQ count and SLICEQ count are now correctly maintained. The "aeina" 
algorithm for tasks in the core queue has also been modified. 

P9166 MCP - PROTECTED TAPES 

The protected bit will be turned off during TAPEPAR I TYRETRY action on output tape files This 
will prevent a tapemark from being written on the tape if a Halt/Load occurs hefnr? 
TAPEPARITYRETRY finishes. (S i nee TAPEPAR ITYRETRY wi 1 1 backup over good records during i" 
recovery operations, this prevents those good records from being lost if a Halt/Load occurs 
before the tape is spaced forward again.) 

P9169 MCP - PROCESSOR PRIORITY 

Some problems in the processor priority algorithms, which occasionally resulted in a task stack 
being given excessive internal priority, have been corrected. 

P9170 MCP - "WAITLIMIT" CORRECTION 

An error in the implementation of WAITLIMIT task attribute has been corrected. It was possible 
to improperly arm the limit by executing a multiple-event WAIT statement, and then be DS'ed 
even though the statement did not actually wait. 

P9171 MCP - STACKSEARCH CONTROL 

An error in the parameter analysis for PROCESS'S and COROUTINE'S has been corrected If the 
procedure being initiated had a formal name POINTER parameter preceding a formal PROCEDURE 
there was a possibility of inadequate s t acksearchi ng for uplevel pointer assignments. 

P9172 MCP - "BADDISK" VS. DIRECTORY 

When a disk pack is RC'ed, the directory will be allocated so it will not conflict with anv 
BADDISK liles that were created when the pack was IV'ed. 

P9173 MCP - "LEIBNITZ EOTINHDR" 

When copying empty disk files to tape, Library Maintenance would not do a reel switch when EOT 
was encountered. This problem has been corrected. 

P9176 MCP - "SWAPPER" QT'S "BACKUP" 

BACKUP will no longer be QT'ed by SWAPPER when running in swapspace. 
P9209 MCP - HALT/LOAD WITH "64" MODS OF MEMORY 

It is now possible to Halt/Load a B6700/B6800 with 64 mods of memory on line. 
P9218 MCP - "BD" FILES VS "EOF=0" 

Empty backup disk files (BD and BP files) will now automatically be removed from disk bv 
AUTOBACKUP . 

P9219 MCP - "DBS" VS "CHECKPOINT" 

INITIATE was changed to allow running programs out of DBS stacks. This change introduced a 
problem into TASK-RESTARTER when restarting a CHECKPOINT. This problem has been corrected. 

P9220 MCP - "PLANT MESSAGE" VS "AUTOBACKUP" 

If a printer (or punch) were CL'ed using AUTOBACKUP and subsequently went not ready PLANT 
MESSAGE would blow up indexing stack 0. This problem has been corrected. 

P9221 MCP - "DBS STACK" VS "GETSTATUS" 

rFxSx??,^ T »Tb' S ZZ* CaH K? Wi i h 1 F E = ° a " d SUBTYPE = 2 for a DBS stack, it would get a dump by 
GETSTATUS MIX. This problem has been corrected. 

P9222 MCP - "CP" VS "SWAPPER" 

1. Jobs in subspaces can now take checkpoints. 

2. When a checkpoint is RERUN, the restart will occur outside of the subspaces. 
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P9223 MCP - "SUBSPACES" VS "USERCODE" 



If SUBSPACES=2 and the code file is under the user's own usercode, SUBSPACES will be set to 3. 
If SUBSPACES=2 and the code file is under another usercode or does not have a usercode, 
SUBSPACES will be set to 1. 

P9224 MCP - "VERIFYFAMILY" VS •'HDRVECTORLOCK" 

If VERIFYFAMILY gets a fault while processing the system directory on a disk, it will liberate 
HDRVECTORLOCK before aborting. 

P922 5 MCP - "DESCRIPTOR" ERROR ON PACKS 

Under certain conditions if a disk pack on a MODEL I multiplexor got a DESCRIPTOR error, it was 
possible for the MCP to loop. This problem has been corrected. 

P9226 MCP - STICKY "MEM" RECURSIVE "GETSPACE" 

It was possible that GETSPACE could destroy a RESIDENT array or procedure when moving it. This 
problem has been corrected. 

P9 22 7 MCP - "HDREXPAND" 

If a disk file header were stretched while DISKFILEHEADERS was being stretched, a BAD MOM 
ADDRESS dump would occur. This problem has been corrected. 

P9229 MCP - "ANABOLISM" VS "MAKEJOBFILE" 

It was possible to hang the system when starting a SCR, RES, RET or XD task. If a disk pack I/O 
error occurred at the same time INITIATE (who was called by ANABOLISM) called MAKEJOBFILE, 
ANABOLISM could hang waiting for a lock. This problem has been corrected. 

P9230 MCP - "HISTORY" VS " PROGRAMDUMP " 

Faults occurring in PROGRAMDUMP will no longer change the HISTORY word of the task. 

P923 1 MCP - USER USES OF "TD830" ODT'S FOR "ODT" FILES 

Logical record handling has been modified so that all writes to ODT files terminate with ETX' s . 
If the user program has not provided an ETX, an attempt is made to append on to the record. If 
the record is already maxrecsize long, the last character of the user's data is overwritten. 
This is necessary for compatibility with TD830 ODT's. In addition, the sequence ESC "("; 
(i.e., escape left parenthesis) is replaced by blank. 

Similar changes have been made to the DCALGOL intrinsic WRITESPO. 

P9240 MCP - TAPE PARITY RETRY VS. TAPEMARK 

If an I/O error occurred on a WRITE to the first record after a tapemark on a tape, the bad 
record was not being erased. This problem has been corrected. 

P9245 MCP - REGULATE "STACKINFO" LOCKING 

A new hard lock, SILOCK, is used to protect STACKINFO words when changing field values. This is 
an innermost lock. SILOCK has replaced SEARCHLOCK in the SEARCH/STACKSEARCH interface. 

P9 246 MCP - PAPERTAPE VS REELSWITCH 

The paper tape punch and the reel switching will now work correctly. 
P9 269 MCP - DENSITY VS. PRINTLABEL 

Creating an unlabeled PE tape no longer causes ADM PRINTLABEL to mark as 800bpi on the label. 

P9270 MCP - "DBS PROGRAMDUMP" 

It was possible for PROGRAMDUMP to get a SEG ARRAY error when printing a dump for a task using 
a DBS. This problem has been corrected. 

P9 271 MCP - "CP" VS. BACKUP TAPE 

When restarting a checkpoint job that was using a printer backup tape, it was possible to get a 
SEG ARRAY error. This problem has been corrected. 

P92 7 6 MCP - DELETE ZERO SERIAL NUMBER 

The VOLUME DELETE statement will now delete volumes with serial number zero from the volume 
library and the pack access structure. 
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P9285 MCP - TASK RESTRUCTURING 



The task and base-of-s t ack structures have been reorganized; many items were moved from the 
stack to the task. 

The changes were required for B6800 multiprocessor systems. They will also improve control and 
monitoring of swap jobs. Most interaction that previously was rejected for swap tasks is now 
processed normally. 

P9286 MCP - "DM6700" VESTIGES REMOVED 

The vestigial code and external declarations for DM6700 have been removed from the MCP. 

P9288 MCP - "EOJ" VARIABLES 

The temporary variables used in NORMALEOJ have been renamed and all unnecessary address 
equation has been eliminated. No logic was changed. 

P9304 MCP - "IC" SPECS 

A revised format for interchange disk packs has been defined; the system now conforms to the 
revised version. 
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DOCUMENT CHANGES NOTES (D NOTES) 
NETWORK DEFINITION LANGUAGE 



D2697 NDL - DATACOM NETWORK CONFIGURATION REPORT 

A brief tabular Network Status Report is now available at compile time through the NDL 
Processor. 

The report contains the following fields and information: 

DCP number and exchange status 
Cluster number 
LINE information 

Address (DCP number: cluster number: LINE number) 

STATION(s) information 

Special characters or address characters if specified 

LSN 

Terminal name (17 characters) 
Connection medium (direct or modem name, 17 characters) 
LINE speed, character size, adapter mode 
MCS name (30 characters) 

Enabling the new dollar option NETWORK will effect the printing of the network configuration 
report. A report will be generated even if the dollar option SYNTAX is set or if the dollar 
option LIST is RESET. 

Ex amp 1 es : 

$SET LIST SYNTAX NETWORK 
SSET NETWORK 

D2702 NDL - USE PROPER PROCESSOR "ID" IN HEADINGS 

The NDL compiler will now use the TIME(23) intrinsic to determine the proper machine identifier 
to be used in the heading of compiler listings. 

D2 703 NDL - IMPLEMENT APPLICATION NUMBER VARIABLE 

A new variable, APPLICATION, has been added to the NDL language to allow interrogation of the 
application number within requests. The following is a summary of the variable's 
character! sties: 

APPLICATION 

Interrogate, CTR, 8 

This read-only station-oriented variable contains the value supplied in the most recent SET 
APPLICATION NUMBER DCWRITE (type 38). It is limited to integers in the range of 1 to 6. When 
the station is initialized, APPLICATION is given a value of 1. 

Ex amp 1 e : 

IF APPLICATION=6 THEN . . . 

The terminal REQUEST statement has been extended to allow a list of application numbers to 
appear within the brackets. The new syntax is as follows: 

— REQUEST = > 



< , 

/l\-<request id>— : — RECEIVE - 

I -/l\-<request id> — : — TRANSMIT 



< i nt eger range> 

— 1 to 6 —| 

This new syntax specifies that all of the application numbers will refer to the same pair of 

requests. All statements which were valid under the old syntax are still valid. Syntax checks 

will be performed to ensure that all application numbers are within the range of 1 to 6, and 
that no application number is specified more than once. 
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Examp I es : 

REQUEST[ 1 , 5 , 6] =WR I TETTY: TRANSMIT, READTTY: RECEIVE. 
REQUEST [ 3 , 4 ] = WR I TESCREEN : TRANSM I T , READSCREEN : RECE I VE . 

D2 772 NDL - IMPLEMENT VARIABLE SIZE STATION TABLE 

In the past, a station table base size was either 6 words (without DCP sequencing) or 8 words 
(with DCP sequencing). Certain message-oriented constructs for autonomous DCP systems (like 
auditing and filemode) also needed extra words in the station table. Rather than always making 
the station table base the maximum possible size, each NDL compilation will now determine what 
constructs were used that require extra words in the station table and will assign and allocate 
only those locations needed; thus, with this change, the station base may be any (fixed) size 
from 6 to 10 words in length. The message-oriented MCP has been similarly modified to allow it 
to make use of this new information and to initialize a datacom system whose stations tables 
have either the old or new sizes. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
NETWORK DEFINITION LANGUAGE 

P2085 NDL - "FILE" <FAMILY> STATEMENT 

The NDL FILE <family> statement has been corrected to work as specified in the NDL Manual, Form 
No. 5001522, when a previously-declared <file identifier> is included in the list of stations 
comprising the family. In the past, a family declared in that manner was not correctly defined 
and could cause an INVALID INDEX in the MCP procedure DOCTOR when the file was opened. 

P2325 NDL - FURTHER AUXILIARY LOGIC CORRECTIONS 

Two problems dealing with the selective placement of portions of request sets or line controls 
into auxiliary (main) memory have been corrected in the NDL compiler. Both problems concerned 
the usage of $SET AUXLOGIC/$RESET AUXLOGIC dollar cards in NDL source programs in which the DCP 
AUXILIARY statement was not used. If the AUXLOGIC dollar card option was changed only between 
request sets and line controls, its occurrence might be ignored. Furthermore, when the 
AUXLOGIC options was changed within a request set or line control, it sometimes would not take 
effect until after the following statement, rather than before. Both of these problem areas 
have been corrected; some additional code optimization in the switching between local and 
auxiliary memory has also been performed. 

P2404 NDL - ELIMINATE LOOPING ON SEVERE ERRORS 

In many sections of the NDL compiler, it was possible to get into an endless loop if 
end-of-file was encountered while attempting to discard tokens after a severe error until a 
comma or period was found. End-of-file has been made a termination condition in all these 
cases also. In addition, it was discovered that if a token were requested after the one which 
showed end-of-file was presented, the last line of input was being rescanned. This problem has 
also been eliminated. 

P2405 NDL - BASIC CONTROL/ ACI I POSITION CHECKING 

In Message Oriented datacom, one basic control unit (to which four front-end controls may be 
attached) takes up four Cluster II positions. In a network which contains both front-end 
controls (attached to a basic control) and Cluster II controls, the NDL must ensure that no 
attempt is made to configure a ntwork that has both front-end controls and Cluster II controls 
within the same group of four cluster positions. The previous syntax checking in the NDL 
compiler was incorrect, such that some erroneous errors would be reported, while other actual 
error situations went undetected. That problem has been corrected. 

P2406 NDL - AUTONOMOUS "DCP" BUFFERS FOR STATIONLESS LINES 



In autonomous operation of a Message Oriented da 
allocated in autonomous memory for all lines, 
the NDL compiler can automatically allocate mess 
MSGSPACE statement can be used to control th 
error if a line has no buffers allocated by eith 
in three cases, all involving lines which 
auxiliary line of a full-duplex pair, by default 
now used. For an ACU line, the compiler alloc 
for a normal station less lines whose MAXSTATIONS 
now require that buffers be allocated (with 
must make the buffer size as large as that requi 
the line. 



tacom system, the DCP must have message buffers 

For lines which have stations assigned to them, 

age buffers of the proper size, or the line 

e allocation explicitly. The compiler gives an 

er method. This error checking was incorrect 

had no stations assigned. If the line was an 

the buffer allocation of the primary line is 

ates the proper sie buffer automatically. Only 

value is greater than zero does the compiler 

the MSGSPACE statement); in this case, the user 

red by whatever station may later be added to 



P2444 NDL - ERRONEOUS SYNTAX ERROR ON DEFINE "ID" USAGE 

If the first Request or Control in SOURCENDL referenced a global define and did not declare any 
local defines, it would receive an erroneous syntax error. This problem, which is now 
corrected, was due to an incorrect context level which caused the text of the define identifier 
not to be expanded. 

A different problem, which was previously corrected in NDL patch 30.007, occurred when a 
locally declared define identifier was immediately used as the first token of the first 
statement of a Request or Control. While similar in cause, these two problems were not related. 

They have both been corrected. 



P2469 NDL 



SUPPRESS "IF Bl OR B2" CODE WHEN FROZEN 



The NDL compiler sets a variable called FROZEN and suppresses code generation following an 
unconditional GOTO or terminating construct until a label definition is seen. However, if an 
IF statement of the form "IF Bl OR B2 THEN..." was used while FROZEN was set, an attempt was 
being made to fixup the branch condition for code that was suppressed, leading to possible 
corruption of the previous macro. This spurious code fixup has been eliminated. 
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P2557 NDL - EXCHANGED "DCP" VS. AUXILIARY LOGIC 

A problem could occur in DCPPROGEN compiling a source NDL program that contained exchanged 
DCPs , one with local memory and auxiliary logic, the other with main memory only. Various 
label errors, faults and/or looping in the compiler might result. This condition has been 
resol ved . 
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DOCUMENT CHANGES NOTES (D NOTES) 
NEW IMPLEMENTATION LANGUAGE 



D2804 NEWP - IMPLEMENTATION OF "NEWP" 



INTRODUCTION 

NEWP is an ALGOL-like language that has replaced ESPOL as the language in which the MCP 
is written. Although NEWP has been designed as a genera 1 -purpose language, the III! 
NEWP compiler is specifically aimed at aiding the conversion of the MCP symbolic from 
ESPOL to NEWP. This document describes only the features of NEWP that appear in the 
III.l MCP symbolic. Subsequent releases of the NEWP compiler will be accompanied by 
documentation describing additional NEWP constructs. 

The III.l NEWP compiler will produce only non-executable (MCP) code files. Some features, 
are described as "temporary". These features were implemented to facilitate the MCP 
conversion and will be deleted from the language as soon as it is practical to do so. 

Aspects of NEWP which are not specified in this document are identical in operation to 
ALGOL as described in the B7000/B6000 ALGOL Language Reference Manual (Form No. 5001639). 
The NEWP implementation also includes the interface to libraries as it is implemented in 
ALGOL. 

For details regarding those differences between ESPOL and NEWP that affected the MCP 
conversion, see "P2288 — MCP Conversion to NEWP". 



LANGUAGE COMPONENTS 



All reserved words which have meaning only in limited contexts are type 3 reserved words. 
This type includes file attributes, task attributes, CLOSE options, PROGRAMDUMP options, 
carriage control parameters in I/O statements, and fault names. When context indicates 
that a type 3 reserved word is appropriate, the compiler first looks for a reserved word. 
If one is not found, defines are expanded and the compiler looks again for a reserved 
word. 



PROGRAM STRUCTURE 

In NEWP, lex levels are determined by procedure nesting, not block nesting as in ALGOL. 
Thus, a procedure which is not a block changes the lex level, while a block which is not 
a procedure does not. 

Segmentation is based upon lex levels. By default, a new segment is assigned to each 
procedure declared at lex level 15 or below (whether or not local variables are 
declared). The lex level at which segmentation occurs can be changed by using the 
SEGMENTLEVEL block direction. In addition, automatic segmentation can be overridden on a 
block-by-block basis by use of the SEGMENT block direction. 

Note: The problem that exists in ALGOL where variables declared at a low lex level with a 
high offset may become inaccessible at higher lex levels has been alleviated in NEWP. 

See also 

8.2 Block Directions 



DECLARATIONS 



In addition to the differences and additions described in the following subsections, NEWP 
declarations differ from ALGOL declarations in the following aspect: 

DEFINE invocations are expanded within FORMAT declarations and in-line formats when 
an item is not recognized as a format specifier. 
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4.1 CONSTANT DECLARATION 

.(constant declaration> 

I < j 

— CONSTANT <constant-id> 

|- = — (constant value>- 

<constant value> 

— <constant arithmetic expression) 



Ex amp I e : 

CONSTANT 

TASKMSCW, % AUTOMATICALLY ASSIGNED 

TASKPARAMS % 1 

CODEHEADER INDEX = 0, % STARTS AGAIN AT 

RUNNINGCOUNT, % 1 

CODELINKS, % 2 

MARKER = CODELINKS, % 2 ALSO 

COMPILERINFO, % 3 

TOFFSET = MARKER+5, % 7 

NEXTWORD; % 8 

The CONSTANT declaration can be used to declare arithmetic constants. It is particularly 
useful for declaring a series of integer constants where each value is to be one greater 
than the previous value. 

If a <constant-id> appears with a <constant value>, then the identifier is associated 

with the specified value. If no (constant value> is given, the compiler assigns the 

identifier the value of the previous identifier plus one (or zero, if it is the first 
ident i f ier in the list). 

The <constant value> is evaluated in the context of the CONSTANT declaration (unlike 
defines, for which the text is expanded in the context of the invocation). 

4.2 LABEL DECLARATION 

— LABEL < label identifier list> 1 

I- [BAD] -I 

Ex amp 1 e : 

LABEL [BAD] ENDITALL, ERROREXIT; 

In NEWP, a "bad go to" i s a GO TO statement that branches out of the segment or procedure 
in which the GO TO statement appears. A label which is the object of a "bad go to" must 
be declared in a label declaration which includes the "[BAD]" syntax. 

4.3 MODULE DECLARATION 
<iiiodu le-declarat ion> 

— MODULE — <module-id> — ; > 



I -<moduI e-head>- I 

>- BEGIN — <module-id> — ; > 

>-<modul e-body> > 

> - END — <module id> — ; 1 

<modul e-head> 



< ; 

— <dec larat ion>-- 



-<expor t-1 i s t > — 
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<modul e-body> 

l< ; 



-<dec 1 ara t i on>- 
-< impor t-1 i s t >- 



<expor t-1 i s t > 

— EXPORT — <id-list> 

< impor t-1 i s t > 

I «. t 

— IMPORT FROM — <module-id> — ( — <id-list> — ) 



< id- I i s t > 

l< . 

I 
< identifier>- 



The MODULE declaration allows logically-related declarations to be grouped together. 
Items declared within a module are "protected" in the sense that they are not visible to 
other modules unless specified in an EXPORT list-, even if exported, items which are 
IMPORTed into another module may not be changed by that module. 

EXPORTed identifiers must be declared in the <modul e-head> . Procedures to be EXPORTed 
are declared in the <module-head> as they would be declared anywhere else, except that 
the <procedure body> must be EXTERNAL, NULL, or FORWARD. If the <procedure body> is 
FORWARD, the procedure must be fully declared in the <modul e-body> . 

A module that requires access to an EXPORTed identifier must specify that identifier in 
an IMPORT list. Access to IMPORTed variables is always read-only. 

"MODULE <module-id>", "BEGIN <module-id>" , and "END <module-id>" must be the first tokens 
on the card images on which they appear. 

TEMPORARY — As a temporary convenience, exported identifiers are implicitly imported 
into all modules; thus, IMPORT lists are temporarily optional. 

TEMPORARY — Temporarily, modules that import identifiers are allowed both read and write 
access to those identifiers. 
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Example of Modules: 

BEGIN 

MODULE X; 

EXPORT RX, PX; 
REAL RX; 
PROCEDURE PX(B) ; 

VALUE B; REAL B; 

FORWARD; 
BEGIN X; 

IMPORT FROM Y (RY, PY) ; 
PROCEDURE PX(B) ; 

VALUE B; REAL B; 

BEGIN 

RX := RY; 

PY; 

END; 
END X; 

MODULE Y; 

EXPORT RY, PY; 
REAL RY; 
PROCEDURE PY; 
FORWARD; 
BEGIN Y; 

REAL LOCALR; 
IMPORT FROM X(RX) ; 
PROCEDURE PY; 
BEGIN 

LOCALR := RX; 
END; 
END Y; 

END. 

4.4 ON DECLARATION 
<on declaration> 

— ON — <fault list> — , — <statement> | 

Example : 

ON ANYFAULT, 
BEGIN 

WRITE(TTYFILE,<"FAULT IN FIRSTPROC">) ; 
GO TO ERRLABEL; 
END; 

The ON declaration provides a mechanism for handling faults. When a fault named in the 
fault list occurs, control is transferred to the fault-handling statement appearing in 
the ON declaration. In order to resume normal execution, the programmer must perform a 
GO TO (except in the case of EXPONENT UNDERFLOW). 

If a GO TO is not performed by the programmer, the system searches down the program's 
execution stack for another enabled fault-handling declaration. If none is found, the 
program is DSed (except if the fault was EXPONENT UNDERFLOW, in which case the program 
will continue processing with the operand that caused the underflow set to zero). 

The <fault name>s and <fault number>s in NEWP are identical to those in ALGOL, except for 
the NEWP faults MEMORYFAIL1 (23), PRIVILEGEDINSTRUCTION (24), and PROCESSOR INTERNAL (20), 
which are available when the compiler option B7000 is set. Also, if B7000 is set, the 
following faults are not included in ANYFAULT, although they may be specified as 
individual <fault name>s: LOOP, MEMORYPARITY, INVALIDADDRESS , SCANPARITY, 
INVALIDPROGRAMWORD, MEMORYFAIL1 , PROCESSOR INTERNAL. 

4 . 5 POINTER DECLARATION 

- POINTER — <pointer identifier list>- 

ASCII — 

BCL 

EBCDIC 
HEX 
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Examp 1 e : 

EBCDIC POINTER PTRIN, PTROUT; 

Pointers may be declared with a size specification (e.g. HEX). If the character size is* 
not specified, it defaults to EBCDIC. 

Syntax errors are given for pointer and string size mismatches. For example, if PTR is 
declared as an EBCDIC pointer, the following statement will cause a syntax error: 

REPLACE PTR BY 4"FF00"; % SHOULD BE 48"FF00" 

4 6 PROCEDURE DECLARATION 

Procedures in NEWP are similar to procedures in ALGOL, except 1) every <procedure body> 
must be delimited by a BEGIN/END pair and 2) parameters may not be passed by name. 

Parameters may be passed as cal 1 -by-va 1 ue or call-by-reference ( ca 1 1 -by-name parameters 
and "thunks" are not implemented in NEWP). The default is ca 1 1 -by-re ference . To pass a 
parameter as call-by-value, the <value part> must appear in the procedure heading. 

Actual parameters passed to call-by-reference formal parameters must generate address 
references. Constants and arithmetic expressions do not generate address references. 
However, conditional and case expressions are allowed if each branch generates an address 
reference. For parameters passed by reference, the types of the actual and formal 
parameters must agree (e.g. a variable of type REAL cannot be passed by reference to a 
formal parameter of type DOUBLE or INTEGER). Procedures of type POINTER may be declared 
in NEWP. 

The syntax for specifying procedures as formal parameters differs between NEWP and ALGOL. 
NEWP does not support run-time parameter checking; therefore, all parameters of formal 
procedures must be specified. The following diagram describes the syntax for the 
<spec i f i cat ion> of a procedure which is a formal parameter (refer to the ALGOL Language 
Reference Manual page 4 55): 

— (procedure type> — PROCEDURE — <identifier> > 

>-<formal parameter part> — ; — FORMAL | 



STATEMENTS 



The following list describes the differences between NEWP statements and ALGOL 
statements. Page numbers refer to applicable documentation in the ALGOL Language 
Reference Manual. 

- A <partial word part> may appear on the left-hand side of an update replacement 
(page 5-4), as shown in the following example: X.[5:3] :=* +1. 

The function of the DEALLOCATE statement in ALGOL (page 5-31) is performed by the 
RESIZE statement in NEWP (page 5-91), as follows: RESIZF( <array row> .DEALLOCATE) . 

When an (arithmetic expression) appears as the <source part> in a REPLACE statement 
and no FOR clause is specified, exactly 48 or 96 bits of data (depending on whether 
the (arithmetic expression) is single-precision or double-precision) are transferred 
as characters of the size determined by the (destination part> (page 5-78). This 
implementation differs from ALGOL, where either 6 or 8 characters would be 
transferred, depending on the value of the BCL dollarcard option. 

The SET and RESET statements for events have been renamed SETEVENT and RESETEVENI" 
(pages 5-98 and 5-90). 

The function performed by the REWIND statement in ALGOL (page 5-92) is performed by 
the CLOSE statement in NEWP (page 5-25), as follows: CLOSE((file 
designator) .RETAIN) . 

Branching into THRU loops (page 5-109) is not permitted. Branching within a THRU 
loop is allowed, provided the label is declared within the loop. 

The <time> specified in a WAIT statement (page 5-114) need not appear within its own 
set of parentheses and need not appear first in the (wait parameter list>. If a 
(time> appears in the parameter list, it will be evaluated before any event 
parame t er s . 

The function of the WHEN statement (page 5-117) in ALGOL is performed by the WAIT 
statement (page 5-114) in NEWP, as follows: WAIT( (a r i t hme t i c expression)). 
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INTRINSICS 



This section describes the intrinsics available in NEWP; page numbers refer to the ALGOL 
Language Reference Manual. 

The following intrinsics are implemented in NEWP as they are in ALGOL (pages 6-19 to 

ABS, AVAILABLE 

BOOLEAN 

COMB I NEPPB S , COMP I LET I ME 

DAND, DEQV, DNOT, DOR, DOUBLE 

FIRSTONE, FIRSTWORD 

HAPPENED 

INTEGER, INTEGERT 

LISTLOOKUP 

MASKSEARCH, MAX, MIN 

NABS 

OFFSET. ONES 

POINTER, POTC, POTH, POTL 

READLOCK, REAL(<ae>), REAL(<be>), REALf <pe> , <ae> ) 

SECONDWORD, SINGLE, SIZE(<array designator) 

TIME 



The function provided by the LINENUMBER intrinsic in ALGOL (page 6-24) 
COMPILETIME(23) in NEWP. 



iva i 1 abl e as 



The operation performed by the SCALERIGHTF intrinsic in ALGOL (page 6-26) is performed bv 
the PACKDECIMAL intrinsic in NEWP. > v * 

The POINTER intrinsic in NEWP (page 6-30) allows the <character size> to be specified as 
0, creating a word pointer which is considered as EBCDIC when pointer and string sizes 
are be i ng mat ched . 

The DAWDLE intrinsic in NEWP is an untyped intrinsic that takes an integer parameter. 

DAWDLE is used in the MCP to delay without accessing memory. The integer parameter 

specifies the number of Count Binary Ones (CBON) operators that are to be executed to 
effect the delay. 

* See also 

4.5 POINTER Dec la rat ion 



UNSAFE MODE 



Some constructs which the MCP requires in order to perform hardware-related functions are 
considered unsafe for general use. NEWP requires the MCP programmer to specify when and 
which unsafe constructs are to be used. This specification is made on a block-by-block 
basis through the use of the UNSAFE block direction. Programs that use the UNSAFE block 
direction are marked as non-executable. 

* See a 1 so 

8.2 Block Directions 

7.1 DECLARATIONS 

There are two additional data types available in UNSAFE mode, DESCRIPTOR and WORD. 

DESCRIPTOR 

In UNSAFE(DESCRIPTOR) mode, DESCRIPTOR variables are allowed. The DESCRIPTOR data 
type is described in the following subsection. 

WORD 

In UNSAFE(WORD) mode, WORD variables are allowed, with basically the same syntax and 
semantics as in ESPOL. Implicit type transfers ("coercions") between type WORD and 
other data types is more restricted in NEWP than in ESPOL. In particular, 
WORD/BOOLEAN coercion is disallowed in assignment operations. 

In UNSAFE(MISC) mode, address equation as it exists in ESPOL is allowed in NEWP. Also, a 
(procedure body> can be specified as NULL, as in ESPOL, but only if the procedure has 
been address-equated. Array declarations may include the SAVE specification, as in 
ESPOL. 
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7.1.1 DESCRIPTOR Data Type 



Variables of type DESCRIPTOR are used to store unindexed mom or copy descriptors. Simple 
variables of type DESCRIPTOR are declared in a DESCRIPTOR declaration (similar to a REAL, 
INTEGER, or BOOLEAN declaration). Arrays, procedures, and formal parameters may also be 
specified as type DESCRIPTOR. Variables of type DESCRIPTOR are initialized to 
"uninitialized operand". 

When values of type DESCRIPTOR are evaluated, copy bit action occurs if the target is a 
data descr i ptor . 

The type transfer function DESCRIPTOR can be applied to both WORD variables and array 
rows. Implicit type transfers ("coercions") allow array references to be assigned from 
DESCRIPTOR values and DESCRIPTORS to be assigned from array references or array rows. 
The same coercions are applied between formal and actual parameters. 

TEMPORARY — Temporarily, WORDs and DESCRIPTORS are mutually coerced. 



7 . 2 STATEMENTS 



The FORK statement is allowed in UNSAFE(FORK) mode, with similar syntax and semantics to 
ESPOL. A new required parameter, <box number>, must appear as the first parameter in the 
panne t er list. 

The OVERWRITE option on the REPLACE statement (as in ESPOL) is allowed in UNSAFE(MISC) 
mode . 

In UNSAFE (REGISTERS) mode, the D-register override clause ("% [<exp>]") is allowed 
following EXIT, RETURN, and <procedure statements (e.g. "RETURN • [TASKADDR] " ) . 

WAIT and WAITANDRESET statements may have option lists in UNSAFE(MISC) mode. This syntax 
is described in the following subsection. 

TEMPORARY — ALLOW and DISALLOW statements are temporarily allowed in NEWP as they are in 
ESPOL. 



7.2.1 WAIT Statement 



WAIT 

|- WAITANDRESET -| |- [ — <option list> — ] -| 



>- ( — <wa i t I i s t > — ) 

<opt ion 1 i s t > 

|< , 



/1\ DSABLE 

I 

|- NOTDSABLE - 

-/1\ SWAPNOW 

DELAYSWAP - 

NOSWAP 

In UNSAFE(MISC) mode, the WAIT and WAITANDRESET statements may include an <option list> 
to specify whether or not the waiting process can be DSed or swapped out while waiting, 
as f o I I ows : 

DSABLE 

WAIT and WAITANDRESET wi th [DSABLE] perform the same functions that DSWAIT and 
DSWAITANDRESET do in ESPOL. The process will not wait if it is already DSed or will 
not continue to wait if it is externally DSed while waiting. The value returned by 
the WAIT function (if it occurs in an arithmetic expression) will be zero in either 
case . 

NOTDSABLE 

The process will wait even if it is or becomes DSed. 

DELAYSWAP 

The process will be swapped out if it waits longer than the maximum swap wait, 
defined in the MCP as MAXSWAPWAIT. 

SWAPNOW 

The process is swapped out as soon as the wait starts. 
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NOSWAP 

The process must not be swapped out while waiting. 

If an <option list> is not given, default values are assigned according to the type ot 
process. System processes (D[0] and pseudo-D[0] relative code) are NOTDSABLE and NOSWAP. 
User processes default to DELAYSWAP and DSABLE (if not already DSed; if the process has 
already been DSed, it will wait). 



7.3 INTRINSICS 



The following list describes the intrinsic identifiers recognized in UNSAFE mode. The 
UNSAFE category for each intrinsic is included in parentheses. 

AT (REFERENCE) 

The syntax "<type> AT <location designator;/' allows the item at the location 
specified by the <location designator^ to be referenced or assigned to as if it had 
been declared of the specified <type>. <Type> must be one of the following simple 
types: BOOLEAN, INTEGER, REAL, DOUBLE, POINTER, EVENT, DESCRIPTOR, FILE, TASK, WORD. 
<Location designator> can be a data item, a partially subscripted array (the 
descriptor is accessed), or a procedure identifier (the PCW for the procedure is 
accessed). If the AT syntax is used in an expression, the item is fetched from the 
location in the manner appropriate for a value of the target <type>. 

For example, if D is a variable of type DESCRIPTOR, the syntax "WORD(D) " causes D to 
be fetched as a DESCRIPTOR, and copy bit action is performed. The syntax "WORD AT 
D" , on the other hand, causes the item at D to be fetched as a WORD, and no copy bit 
action is performed. 

Note that if the specified <location> is a formal parameter, "<type> AT <location>" 
references the actual parameter, not the local SIRW. 

BUZZ (MISC) 

The BUZZ intrinsic is implemented in NEWP as in ESPOL, with the additional 
restriction that BUZZ can be used only in CONTROLSTATE blocks. 

TEMPORARY — BUZZ is temporarily allowed for NORMALSTATE blocks. 

BUZZ47 (MISC) 

BUZZ47 performs the same function that BUZZ does, except that bit 47 of the 
parameter is tested instead of bit 0. BUZZ47 is valid only when the B7000 compiler 
opt ion is set . 

DESCRIPTOR (DESCRIPTOR) 

DESCRIPTOR is a type transfer function that can be applied to a WORD variable or an 
array r ow . 

EVAL (MACHINEOPS) 

TEMPORARY — EVAL(<param>) in NEWP performs the same function that 
EVAL(NAME(<param>)) performs in ESPOL. EVAL is a temporary feature. 

EXIT (MACHINEOPS) 

EXIT is implemented in NEWP as it is in ESPOL. 

FAILREGISTER (MACHINEOPS) 

FAILREGISTER(<integer>) generates the Fetch Main Memory Fail Register (FMFR) 
operator for B7000 Series machines. The <integer> parameter is the memory module 
number. FAILREGISTER is valid only if the B7000 compiler option is set. 

FMMRREADLOCK (MACHINEOPS) 

FMMRREADLOCK performs the same function that READLOCK does, except that the compiler 
emits the B7000 operator Fetch Main Memory Reference (FMMR) prior to emitting the 
Read With Lock (RDLK) operator. FMMRREADLOCK is valid only if the B7000 compiler 
opt i on is set . 

HEYOU (MACHINEOPS) 

HEYOU is implemented in NEWP as it is in ESPOL. 

IGNOREPARITY (MACHINEOPS) 

IGNOREPARITY is an untyped procedure that generates the B7000 operator Ignore Parity 
(IGPR). IGNOREPARITY is valid only if the B7000 compiler option is set. 

INTERRUPTCHANNEL (MACHINEOPS) 

INTERRUPTCHANNEL(<real>) is an untyped procedure that generates the B7000 operator 
Interrupt Channel (INCN), where the <real> parameter is a mask indicating which 
channel is to be interrupted. INTERRUPTCHANNEL is valid only if the B7000 compiler 
opt i on is set. 

LEXOFFSET (MISC) 

LEXOFFSET(<identi f ier>), where <identifier> represents a data item with an address 
couple, returns the MSCW-relat i ve offset of that data item. For example, if X is 
declared at (1,9), LEXOFFSET(X) is 9. 
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MAKEPCW (MACHINEOPS) 

TEMPORARY — MAKEPCW is implemented in NEWP as it is in ESPOL. MAKEPCW is a 
temporary feature. 

MEMORY (MEMORY) 

MEMORY is implemented in NEWP as it is in ESPOL, except that M is not recognized as 
a synonym. 

MOVESTACK (MACHINEOPS) 

MOVESTACK is implemented in NEWP as it is in ESPOL. 

PAUSE (MACHINEOPS) 

PAUSE generates the IDLE operator. If two parameters are specified, the two values 
are loaded into the A and B registers before the IDLE operator is executed and are 
deleted afterwards. 

POINTER(<word exp>) (WORD) 

POINTER(<word exp>) performs a type transfer between type WORD and type POINTER. 

REFERENCE TO (REFERENCE and WORD) 

The function represented by the syntax "REFERENCE TO <primary>" returns a WORD which 
is equivalent to the value that would be generated to access <primary> if it were a 
call-by-reference parameter (e.g. an SIRW for simple data type, a data descriptor 
for array rows, an indexed data descriptor for subscripted variables). <Primary> 
can be of any data type that NEWP allows to be passed as a ca 1 1 -by-r e f e rence 
parame t e r . 

REGISTERS (REGISTERS) 

REGISTERS is implemented in NEWP as it is in ESPOL. 

RETURN (MACHINEOPS) 

RETURN is implemented in NEWP as it is in ESPOL. 

SCANIN (MACHINEOPS) 

SCANIN is implemented in NEWP as it is in ESPOL. 

SCANOUT (MACHINEOPS) 

SCANOUT is implemented in NEWP as it is in ESPOL, except that it is not valid when 
the B7000 compiler option is set. 

SETINHIBIT (MACHINEOPS) 

SETINHIBIT(<real>, <integer>) generates the B7000 operator Set Memory Inhibits 
(SINH), where the low-order eight bits of the <real> parameter contain the inhibit 
mask and the low-order four bits of the <integer> parameter represent the memory 
module. SETINHIBIT is valid only when the B7000 compiler option is set. 

SETLIMITS (MACHINEOPS) 

SETLIMITS(<real>, <integerl>, <integer2>, <integer3>) generates the B7000 operator 
Set Memory Limits (SI.MT) . The low-order four bits of the <real> parameter represent 
the availability mask, <integerl> and <integer2> indicate the lower and upper 
addresses, respectively, and <integer3> is the memory module number. SETLIMITS is 
valid only when the B7000 compiler option is set. 

STOP (MACHINEOPS) 

STOP generates the HALT operator. If two parameters are specified, the two values 
are loaded into the A and B registers before the HALT operator is executed. If four 
parameters are specified, the third and fourth parameters are interpreted as 
addresses into which the values in the A and B registers are to be stored following 
execution of the HALT operator. 

STOP77 (MACHINEOPS) 

The STOP77 intrinsic is similar to the STOP intrinsic, except that the B7000 
operator STOP is generated. STOP77 is valid only when the B7000 compiler option is 
set. 

SUSPEND (MACHINEOPS) 

The SUSPEND intrinsic is similar to the PAUSE intrinsic, except that the B7000 

operator Pause Until Interrupt (PAUS) is generated. SUSPEND is valid only when the 

B7000 compiler option is set. 

TAG (WORD) 

TAG is implemented in NEWP as it is in ESPOL. 

TIMER (MACHINEOPS) 

TIMER is implemented in NEWP as it is in ESPOL. 

UNLOCK (MISC) 

UNLOCK is implemented in NEWP as it is in ESPOL, with the additional restriction 
that UNLOCK can be used only in CONTROLSTATE blocks. 

TEMPORARY — UNLOCK is temporarily allowed in NORMALSTATE blocks. 

VECTORCHECKSUM (MISC) 

VECTORCHECKSUM(<subscr ipt ed var i ab 1 e> , < i n t ege r> ) returns the checksum calculated 
over <integer> words starting at the location described by the subscripted 
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variable;., which must be an element of an INTEGER, REAL, BOOLEAN, or WORD array. 
VECTORCHECKSUM uses vectormode operators; an INVALID OP interrupt is generated if 
the processor does not support vectormode. 

VIA (REFERENCE) 

The syntax "<type> VIA <word primary>" is used to access an item referenced by <word 
primary> (which is assumed to be a reference generated by the "REFERENCE TO 
<primary>" syntax) as a value of the specified <type>. <Type> may be any of the 
following simple types: INTEGER, BOOLEAN, REAL, DOUBLE, POINTER, EVENT, DESCRIPTOR, 
FILE, TASK, WORD. 

WHOAM I ( MACH I NEOPS ) 

WHOAMI performs the same function in NEWP as the MYSELF intrinsic does in ESPOL. 

WORD (WORD) 

WORD is implemented in NEWP as it is in ESPOL. 

ZAP (MACH I NEOPS) 

ZAP is implemented in NEWP as it is in ESPOL. 



COMPILER CONTROLS 



8.1 COMPILER OPTIONS 

The compiler options available in NEWP are identical to those in ALGOL, except for the 
changes, additions, and deletions noted below. The following features differ from the 
ALGOL semantics: 

Specifying an option without including SET, RESET, or POP causes no action other 
than setting that option. Specifically, STANDARD OPTIONS ARE NOT RESET (e.g. SMERGE 
does NOT reset LIST). The CLEAR option, described below, can be used to reset all 
standard options. Examples: 

$ MERGE % IN NEWP HAS THE SAME EFFECT AS: 

$ SET MERGE % IN ALGOL OR NEWP 

$ CLEAR MERGE * IN NEWP HAS THE SAME EFFECT AS: 
$ MERGE % IN ALGOL 

The dollar sign ("$") must appear in column 1, 2, or 3. 

Compiler-provided (standard) options are recognized in option expressions (e.g. in 
the expression "$SET LIST=MYOPTION OR OMIT", OMIT is recognized as the 
compiler-provided option and is not interpreted as a user option). 

The options MERGE, LIST, SEPCOMP, and NEW allow a file name to be specified as a 
string enclosed in quotes (the string may not include the quote character). The 
specified file name is used to set the TITLE attribute of the compiler files TAPE, 
LINE, HOST, and NEWTAPE, respectively. 

$ SET MERGE " (FREDS)ALTERFILE" 

The INSTALLATION option accepts either a single intrinsic number or a range of 
number s . 

The MAKEHOST option does not allow an <env i ronment- 1 i s t > to be specified. 
SEPCOMPable environments in NEWP are controlled by the SEPCOMPLEVEL block direction. 

The SEPCOMP option has different semantics in NEWP than it does in ALGOL. SEPCOMP 
in NEWP is described in a later section of this document. 

The STATISTICS option produces MCP statistics (as in ESPOL, not ALGOL) for each 
procedure. Also, statistics will be summarized for any block for which the block 
direction STATSUMMARY appears. 

Cross-reference generation (XREF) is performed by the NEWP compiler itself and is 
controlled by two compiler options, XREF and XREFFILES. If XREF is set, a 
cross-reference listing is produced. If XREFFILES is set, cross-reference files for 
use by SY STEM /INTERACT I VEXREF are generated. These options can be set or reset 
independently of each other. 

* See also 

8.2 Block Directions 

8 . 3 SEPCOMP 

The following compiler options are implemented in NEWP in addition to the standard ALGOL 

op t i ons : 
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B7000 (RESET if B6000 , SET if B7000) 

The B7000 option, if SET. specifies that the machine on which the compiler is 
running is a B7000 Series machine. If RESET, the compilation is assumed to be 
running on a B6000 Series machine. 

CLEAR (cannot be SET or RESET) 

The CLEAR option resets all compiler-provided, settable options. 

LISTO (RESET) 

If LISTO is set, all records from the secondary input file (TAPE) that are voided or 
replaced and all records from the primary input file (CARD) that are omitted will be 
printed. 

LIST1 (RESET) 

If LIST1 is set, a listing is produced during the compiler's first pass compiling 
modu 1 e s . 

MCP (RESET) 

MCP is implemented in NEWP as it is in ESPOL. 

NOCOUNT (RESET) 

NOCOUNT is implemented in NEWP as it is in ESPOL. 

PROCREF (SET) 

If PROCREF is set, each line which references a procedure will be listed with the 
line number of that procedure's declaration. 

READLOCK (RESET) 

READLOCK is implemented in NEWP as it is in ESPOL. 

UNDERLINE (RESET) 

If UNDERLINE is set, all procedure names in procedure declarations will be 
underlined on the output listing. 

The following ALGOL compiler options are not implemented in NEWP: 

AREACLASS 

AUTOBIND 

BCL 

BEGINSEGMENT 

BIND 

BINDER 

BREAKHOST 

BREAKPOINT 

B7700 

CHECK 

DOUBLESPACE 

DUMP I NFO 

ENDSEGMENT 

EXTERNAL 

FORMAT 

GO 

GO TO 

HOST 

INITIALIZE 

INTRINSICS 

LEVEL 

LIBRARY 

LISTDELETED 

LISTOMITTED 

LOAD I NFO 

NOSTACKARRAYS 

NOXREFLIST 

OPTIMIZE 

PURGE 

SEGDESCABOVE 

SEQERR 

STOP 

USE 

WRITEAFTER 

XDECS 

XREFS 

BLOCK DIRECTIONS 
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l<- 



._ [ CONTROLSTATE 

- NORMALSTATE 

- SAFE 

- SEGMENT 

- = — <procedure identifier>- 
-<segment name> 

- = — <segment name> 

- = — <integer> 

SEGMENTLEVEL — = — <integer> 

SEPCOMPLEVEL — = — <integer> 

STATSUMMARY 



l<- 



UNSAFE 



( DESCRIPTOR ) 

- FORX 

MACHINEOPS - 

MEMORY 

MISC 

REFERENCE — 
REGISTERS — 
WORD 



Ex amp 1 e : 

BEGIN [SEGMENT OUTERBLOCK, SEPCOMPLEVEL=5] 

PROCEDURE P(X); 

VALUE X; REAL X; 

BEGIN 

[UNSAFE(MEMORY.WORD) , SEGMENT= 5 .CONTROLSTATE] 

END P; 

end] 

Through the use of block directions, the programmer can control segmentation, the use of 
potentially dangerous constructs, and other compilation details. Block directions may 
occur inside brackets immediately after any BEGIN. In order to make the following 
discussion more readable, the word "block" has been used for the concept of "block or 
procedure" . 

In general, block directions are inherited by nested blocks unless overridden by block 
directions appearing in the nested block. However, the UNSAFE block direction is not 
inherited. TEMPORARY — Temporarily, UNSAFE is inherited by nested blocks. 

The following keywords are recognized as directions to the compiler: 

CONTROLSTATE 

The block is to run in con t ro 1 -s t a t e . (UNSAFE only) 

TEMPORARY — CONTROLSTATE may be set for procedures only. 

NORMALSTATE 

The block is to run in normal-state. 



TEMPORARY 



NORMALSTATE may be set for procedures only. 



SAFE (TEMPORARY) 

Generate syntax errors for all UNSAFE constructs used in this block, 
enabled by subsequent UNSAFE specifications. 



except those 



SEGMENT 

Segmentation information for the block may be specified by one of the following 
phrases : 
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a. SEGMENT — Make a new segment. 

b. SEGMENT = <procedure identifier> — Add the code for this block to the segment 
which contains the specified procedure. The (procedure identifieo must havej 
appeared previously in a (procedure declaration> or a (forward procedure 
dec 1 arat ion> . 

c. SEGMENT (segment name> — Make a new segment and associate the specified 
(segment name> with it. 

d. SEGMENT = (segment name> — Add the code for this block to the segment 
associated with this segment name. The (segment name> must have appeared 
previously in a "SEGMENT (segment name>" compiler direction. 

e. SEGMENT = (integeo — Add to segment (integer>. (UNSAFE only) 

SEGMENTLEVEL , . , 

The SEGMENTLEVEL block direction must be followed by an integer which specifies the 
lex level at or below which segmentation takes place. 

SEPCOMPLEVEL t . , 

The SEPCOMPLEVEL block direction must be followed by an integer which specifies the 
lex level at or below which separate compilation can occur for declarations. 

STATSUMMARY 

If the compiler option STATISTICS is set, statistics will be summarized for the 
block(s) on which the STATSUMMARY block direction appears (statistics are 
automatically summarized for each procedure when STATISTICS is set). 

UNSAFE . , . ,_ , , , . 

Allow the use of the potentially dangerous constructs specified by the following 

keywords : 

DESCRIPTOR 

Allow the DESCRIPTOR data type and DESCRIPTOR type transfer function. 

FORK 

Allow FORK statements. 

MACHINEOPS ^ rT 

Allow the use of the following intrinsics: EVAL (temporary), EXIT, 
FAILREGISTER, FMMRREADLOCK , HEYOU, IGNOREPARITY, I NTERRUPTCHANNEL , MAKEPOJIi 
(temporary), MOVESTACK, PAUSE, RETURN, SCANIN, SCANOUT, SETINHIBIT, SETLIMITS 
STOP, STOP77, SUSPEND, TIMER, WHOAMI , ZAP. 

MEMORY 

Allow the MEMORY array intrinsic. 

MISC 

Allow address equation, NULL as a (procedure body>, (option list>s on WAIT and 
WAITANDRESET statements, the OVERWRITE option on the REPLACE statement, SAVE 
ARRAY declarations, and the following intrinsics: BUZZ, BUZZ47, LEXOFFSET, 
UNLOCK. 

REFERENCE 

Allow "REFERENCE TO (primary>", "(type> VIA (word primary> , <type> AT 
(address primary>" syntax. 

REGISTERS 

Allow the REGISTERS array intrinsic and D-register override clause ( e 
[<exp>]"). 

WORD 

Al low WORD data type, WORD type transfer function, POINTER( (word exp>), and 

TAG. 

* See also 

3 Program Structure 
7 UNSAFE Mode 



8 . 3 SEPCOMP 



Separate Compilation (SEPCOMP) is implemented in the NEWP compiler itself and does not 
require invocation of the BINDER. In order to use the SEPCOMP facility, a "host must be 
generated by compiling a program with the compiler option MAKEHOST set, causing the 
compiler to place information necessary for SEPCOMP in the codefile. Patches to the host 
symbolic can be compiled with SEPCOMP set, resulting in an abbreviated compilation, since 
only the affected areas of the program are actually compiled. 

A SEPCOMP "region" is any declaration that occurs at a lex level less than or equal tr 
the SEPCOMPLEVEL (either the one specified by the SEPCOMPLEVEL block direction or tht 
default). The executable statements of a procedure (or outer block) are considered to be 
a "text" region. A region can be changed, added, or deleted during SEPCOMP. The text 
region of a procedure (or outer block) is recompiled if any declaration region associated 
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with it is separately compiled. 

At the present time, the programmer is responsible for observing the followine 
restrictions: 6 

a > 5° "S 1 c han « e a VALUE ARRAY, ARRAY, DEFINE, FORMAT, FILE, TRANSLATETABLE , or 
TRUTHSET declaration without explicitly causing all references to the changed 
identifier to be recompiled. 

b) Do not patch (via SEPCOMP) COMMENTS and areas of the symbolic which were omitted 
because the compiler option OMIT was set. 

c) Do not change the starting or ending sequence number of a region. 

d) Do not put multiple regions on one line. 

These restrictions do not apply to patches to declarations or text in procedures above 
the SEPCOMPLEVEL , since a patch to such a procedure causes the entire procedure to be 
r ecomp lied. 

The user compiler options that were set when the host was compiled and the VERSION that 
was supplied for the host are preserved and reinstated during a SEPCOMP. 

The title of the symbolic file which was compiled as the host is saved in the codefile 
generated during a MAKEHOST or SEPCOMP compile. This title is used as the default title 
for the TAPE file when SEPCOMPing (but may be overridden by label-equation) and is 
selected as follows: if MAKEHOST is set, the titles of the NEWTAPE, TAPE, and CARD (if it 
is a disk file) files are examined in order, and the first valid title is saved- if 
SEPCOMP is set, the title of the TAPE file is saved. 

* See also 

8.1 Compiler Options 

8.2 Block Directions 



ALGOL FEATURES NOT IMPLEMENTED IN NEWP 



The following ALGOL features are not implemented in NEWP. Some of these features were 
considered undesirable or inappropriate in the context of NEWP, while others have been or 
will be replaced by NEWP features which perform approximately the same function. Page 
numbers refer to the ALGOL Language Reference Manual. 

DECLARATIONS 



The ALPHA declaration, page 4-2, and ALPHA as a <type> in the <array declaration), 

page 4-3 . 

OWN variables (OWN as the <local oir own> part), page 4-2. 

<Array row equ i va I ence> , page 4-5. 

The DUMP declaration, page 4-13. 

<In-out part>s in FORMAT declarations, page 4-20. 

Non-EBCDIC <simple string>s in formats, page 4-24. 

The format phrase, page 4-36, and the R format phrase, page 4-37. 

(Forward interrupt dec 1 ara t i on>s and <forward switch declaration^, page 4-42. 

The INTERRUPT declaration, page 4-44. 

The LIST declaration, page 4-46. 

The MONITOR declaration, page 4-48. 

The PICTURE declaration, page 4-5 1. 

(Parameter delimiter>s other than comma (","), page 4-55. 

Labels and formats as formal parameters (LABEL and FORMAT as <specifier>s in <formal 
parameter part>s), page 4-55. 

<Switch dec 1 arat i on>s , page 4-60. 

STATEMENTS 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 NEW IMPLEMENTATION LANGUAGE 



PAGE 3 70 
MARK 3 . 1 

The ACCEPT statement, page 5-2. 

The update replacement (":»•") construct for assignment to task or file attributes, 
page 5-6. 

The ATTACH statement, page 5-11. 

The BREAKPOINT statement, page 5-12. 

The CALL statement, page 5-13. 

The CHANGEFILE statement, page 5-19. 

The CHECKPOINT statement, page 5-20. 

The CONTINUE statement, page 5-30. 

The DEALLOCATE statement, page 5-31. 

The DETACH statement, page 5-32. 

The DISABLE statement, page 5-33. 

The ENABLE statement, page 5-36. 

The EXCHANGE statement (for disk file rows), page 5-38. 

The FILL statement, page 5-39. 

Direct I/O, page 5-49. 

The MERGE statement, page 5-56. 

The multiple (file) attribute assignment statement, page 5-57. 

The ON statement, page 5-58. 

The PROCESS statement, page 5-62. 

Core-to-core I/O (i.e. <core-to-core part>s as <file part>s), page 5-66. 

Formatted I/O (i.e. <format designators or in-line editing specifications in 
<format and list part>s), page 5-66. 

Binary I/O (i.e. "*" as the format in a <format and list part>), page 5-66. 

Free-field I/O (i.e. <free field part>s in <format and list part>s), page 5-66. 

The WHILE clause for FOR-loops occurring in the <format and list part>s of READ and 
WRITE statements, page 5-66. 

The update replacement (":=*") construct for assignment to the control variable of a 
FOR-loop occurring in the <format and list part> of a READ or WRITE statement, page 
5-66. 

The REMOVEFILE statement, page 5-77. 

All intrinsic <translate table>s that refer to BCL (these translate tables can be 
declared, however), page 5-79. 

The <replace family-change statements page 5-88. 

The REWIND statement, page 5-92. 

The RUN statement, page 5-93. 

The SPACE statement, page 5-104. 

The SWAP statement, page 5-108. 

The VECTORMODE statement, page 5-111. 

The WAIT statement with no parameters (wait for interrupt), page 5-114. 

The WHEN statement, page 5-117. 

EXPRESSIONS 



Vertical bar ("|") as tne logical operator OR in <Boolean term>, page 6-9. 
<Des i gnat ional expres s i on>s , except <label identifier), page 6-16. 
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The following intrinsics (page 6-19 to 6-30): 

ARCCOS, ARCS IN, ARCTAN, ARCTAN2 , ATANH 

CHECKSUM, COS, COSH, COTAN 

DABS, DARCCOS, DARCSIN, DARCTAN, DARCTAN2 , DCOS, 

DCOSH, DELTA, DEF, DEFC, DEXP, DGAMMA, DIMP, D INTEGER, 

DLGAMMA, DLN, DLOG, DMAX, DMIN, DNABS , DSCALELEFT, 

DSCALERIGHT, DSIN, DSINH, DSQURT, DTAN, DTANH 

ENTIER, ERF, ERFC, EXP 

GAMMA 

LINENUMBER, LNGAMMA, LOG 

NORMALIZE 

RANDOM 

SCALELEFT, SCALER I GHT, SCALER I GHTF, SCALER I GHTT, SIGN, 

SIN, SINH, SIZE(<pointer ident i f i e r>) , SORT 

TAN, TANH 



PAGE 371 



MISCELLANEOUS 



Identifiers, numbers, and strings continued across card images. 

Multi-character operators with embedded blanks. As an exception, the update 
replacement operator, ":=*", is allowed to have one blank between the "=" and the 
"*" (i.e. ":= *" is allowed). 

<Global part> in a program unit, page 3-1. 

KIND=READER for the compiler file CARD (CARD must be 1 abe 1 -equated to a disk file), 
Appendix E (of the ALGOL Language Reference Manual). 

Batch Facility, Appendix F (of the ALGOL Language Reference Manual). 

BDMS statements (see B7000/B6000 Series DMSII HOST Reference Manual, #5001498). 
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DOCUMENT CHANGES NOTES (D NOTES) 
PATCH 

D2596 PATCH - LABEL EQUATION FOR "J." CARDS 

Label-equation is now allowed for file title specifications of one node for the following 
commands: S.FILE, S.DISK, J . PATCHDECK and $. DISKS. 

Also, other $. commands may appear on the same $. card after S.FILE, S.DISK, $. PATCHDECK and 
S. DISKS. 

Ex amp 1 e : 

FILE PATCH/RUN: 

? BEG IN JOB PATCHER( STRING PATCHFILE) ; 

RUN SYSTEM/PATCH; 

FILE TAPE(TITLE=SYMBOL/SOURCE ON PACK1); 

F I LE I NPUT ( T I TLE= #PATCHF I LE ) ; 

DATA CARD 
$#PATCH SEPARATOR CARD 1 
$ SET LIST MERGE NEW 
$#PATCH SEPARATOR CARD 2 
S.FILE INPUT COMPARE 
?END JOB 

CANDE or ODT or WFL Input: 

START PATCH/RUN (" PATCH/ SOURCE/ 2 3 ON PACK2") 

The result of this START command will be a SYSTEM/PATCH run with the file "PATCH/ SOURCE/ 2 3 ON 
PACK2" being used. Also, a compare listing is generated, even though the $. COMPARE command 
comes after the $. FILE command. 

D2956 PATCH - CLARIFICATION OF TEXT FIELDS 

System Software Operational Guide, Volume 1 (Form No. 5001563), SYSTEM/PATCH documentation, 
should be changed. 

Add the following before the last sentence of the first paragraph on Page 10-1-3: 

"The text field of a S.CARD is columns 3-80 (9-80 if $. COBOL is set). Parsing of this text 
field is terminated by a "%" character." 

D29 5 7 PATCH - IMPROVE DOCUMENTATION 

System Software Operational Guide, Volume 1 (Form No. 5001563), SYSTEM/PATCH documentation, 
should be changed as follows: 

1. Insert the following between SEQ and VOID in the list of recognized $ options on Page 
10-1-1 : 

"<sequence base> 

(sequence i ncrement > " 

2. Insert the following after the list of recognized $ options on Page 10-1-1: 

"These options' functions are performed by SYSTEM/PATCH and not by the compiler. Because of 
this, they are (except for MERGE) erased from the card on which they appear before that card 
is written to the patch file. SYSTEM/PATCH creates SET and POP VOIDT cards as needed to 
simulate the functions of each of these options." 
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DOCUMENT CHANGES NOTES (D NOTES) 

PLU 

D2879 PLI - CLARIFICATION OF " F I XEDOVERFLOW" 

Replace the first paragraph of the description of the F I XEDOVERFLOW condition in the PL/I 
Reference Manual (Form No. 5001530), Page A2-2, with the following: 

"This condition occurs during fixed point arithmetic operations if the results of these 
operations exceed the integer capacity of the hardware. See SIZE for a related condition 
which does checking for overflow related to declared attributes of data items." 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

PL I 

PI 941 PLI - DEALLOCATE DYNAMIC BOUNDS AUTO ARRAYS 

Automatic arrays with dynamic bounds are now deallocated on block exit. 
P2163 PLI - BASED DOUBLE VARIABLES 

Overlay defining using based storage will now work properly for double float variables. 

P2I64 PLI - EXTRA SUBSCRIPT SYNTAX ERROR 

Cases in which an array is referenced with an extra subscript and the extra subscript is an 
asterisk now cause a syntax error. 

P2165 PLI - BAD PROCEDURE DIRECTORY 

A problem has been corrected where the compiler could produce a bad procedure directory which 
caused an "END OF FILE" error in the BINDER. 

P2166 PLI - DEFINES FOR DOUBLES 

The length attribute of double precision items is now correctly checked against the length of 
the base items on which they are defined. 

P2167 PLI - FLAG ILLEGAL ARRAY BOUNDS 

Arrays declared with illegal constant bounds will be flagged. An example of an array which 
would formerly pass syntax is the following: 

DCL A (1:-1) FIXED; 

P2168 PLI - LOOP ON DEFINE 

A problem has been corrected where it was possible for the compiler to loop infinitely when 
compiling a define declaration in which the base is a fully subscripted array. 

P2169 PLI - BAD DUMMY FOR STRING INTRINSIC 

A problem has been corrected in which the dummy for a bit string was not getting set up 
properly for a call on a string intrinsic. 

P2170 PLI - "CALL" VERB WITH "EVENT" OPTION 

Using the CALL verb with the EVENT option has not been implemented. The compiler was not 
issuing a warning for an attempt to use this construct as it does for other similar cases. 
This has been corrected; a warning for a level 6 error will now be issued. 

P2385 PLI - MISSING COMMAS IN FILE OPTIONS 

An error is now given when commas are omitted from file option clauses (e e 
OPTIONS (KIND= 'DISK' FILETYPE=8) ) . The error is level 5 since any following option 
specifications are ignored. 

P2386 PLI - WRITE STATEMENT WITHOUT "FROM" 

A level 6 syntax error is now given for a WRITE statement without a "FROM" option. 

P2445 PLI - MISCELLANEOUS FAULTS USING "PIC 'Z'" ITEMS 

Incorrect code for certain operations involving items of type PIC 'Z' is no longer generated. 
The problem appeared when assigning from a PIC item which had been declared DEFINED on some 
other item and had a zero value. 

Symptoms included intrinsic faults, system faults, and super halts. These no longer occur. 
P2446 PLI - "DO STATEMENT" PROBLEM 

DO statements with a "BY" and a "TO" will no longer leave an extra value on the stack This 
problem could have caused program failure for STACK OVERFLOW. 

P2447 PLI - LEVEL "9" ERROR 
It is not permitted to declare an array parameter as in the following: 

P : PROCEDURE (A) ; 

DECLARE A (1 :N) ; 
END; 
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Since running a program with such a declaration can have serious consequences. the error now 
given is at level 9 and the program will be non-executable. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
PLI INTRINSICS 



P217 1 PLINTRN - REAL BIT CONSTANTS 

A problem has been corrected in which bit constants were not being read correctly via stream 
input into fixed length bit variables in some cases. 

P2172 PLINTRN - FILLING OUT BIT STRINGS 

A problem has been corrected in which bit strings of fixed length assigned a string of shorter 
length were not always getting padded properly with zeroes. 

P2173 PLINTRN - CONVERSION ERROR 

An invalid character condition is no longer raised when converting a numeric picture to a 
decimal float variable when a drifting "+" picture character is used and the arithmetic value 
of the picture variable is a negative number, or conversely when a drifting ' -" picture 
character is used and the arithmetic value of the picture is a positive number. An example of 
the program which would fail is the following: 

EXAMPLE: PROCEDURE; 

DCL A PICTURE ' 9'; 

A=2 5; 

X=A; 

END EXAMPLE; 

P2174 PLINTRN - "ISAM" INTRINSICS, INFINITE LOOP 

If an ISAM file were opened output and immediately closed without writing any records to it, 
and subsequently opened I/O, it was possible for the intrinsics to go into an infinite loop if 
two records were written to the file, the second having a key less than the first. This 
problem has been corrected. 

P2250 PLINTRN - "ISAM," ELIMINATE SUPERHALT 

The ISOPEN intrinsic (for opening KEYED files) put a TAG6 SCW in a variable local to its block. 
Prior to the III.O system release, this caused no problem; the III.O release notices this extra 
SCW and presumes it to be a "subblock" on the stack. If a program is DSed while running in 
ISOPEN, a supernal t occurs. 

Now, ISOPEN is prevented from storing the TAG6 SCW; the SCW is therefore eliminated. 

P2346 PLINTRN - ELIMINATE "SEG ARRAY" ERROR IN "TRACE" 

SEG ARRAY errors caused by incorrect code in the PLITRACE intrinsic no longer occur. 
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DOCUMENT CHANGES NOTES (D NOTES) 

PRINT BINDER INFO 

D2685 PRINTBIND - PRINTING OF PROGRAM UNIT DIRECTORY 

Code files which contain a "Program Unit Directory" (created by the $SET LIBRARY option in the 
ALGOL and FORTRAN compilers) will now be correctly analyzed. 

Specifically, each separate procedure will be independently analyzed, rather than only the 

first. 

D2686 PRINTBIND - LISTING FORMAT IMPROVEMENTS 

Various improvements have been made to the style of the printout produced by PRINTBINDINFO. 

In particular, the indenting at each level has been reduced from 6 columns to 4. 
D26 8 7 PRINTBIND - IMPROVE HANDLING OF "DATABASE" INFORMATION 

The printout of DATABASE information has been improved. 

Specifically, the timestamp is printed in a meaningful date-time fashion, rather than in hex. 

Also, the names of items within the database are printed (with address couples when necessary) 
in EBCDIC rather than hex. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
PRINT BINDER INFO 



P2025 PRINTBIND - IMPROVED HANDLING OF UNKNOWN ITEMS 

PRINTBINDINFO wi I 1 now handle unknown universal class, subclass pairs in a more useful fashion. 

If the universal class is zero and the subclass is not known to PRINTBINDINFO, the entire 
contents of the item will be printed in hex. 

If the universal class is unknown, the universal class, subclass pair is printed and the 
contents of the item are recursively analyzed. 

In both cases, analysis of the binding information continues in a normal fashion. 

Finally, PRINTBINDINFO is brought up to date with knowledge of all current universal class and 
subclass i terns . 

P2026 PRINTBIND - CORRECT HANDLING OF "PL/I" ITEMS 

PL/I style variables, constants and arrays are correctly identified by PRINTBINDINFO. ARRAYs 
and CONTROLLED items are properly identified. 

PRINTBINDINFO will now detect PL/I items it does not understand and will no longer abort with 
an INVALID INDEX when they occur. 

P2065 PRINTBIND - LARGE CODE FILES 

PRINTBINDINFO can now handle programs that contain more than 20,000 words of binding 
i nforma t i on . 

P2470 PRINTBIND - PREVENT PRINTING TOO MANY "EXTRASEGS" 

PRINTBINDINFO has been prevent from analyzing erroneous "ADDITIONAL REENTRANT LOCATIONS" 
following the last procedure in the procedure directory. 
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DOCUMENT CHANGES NOTES (D NOTES) 
REMOTE JOB ENTRY 



D2578 RJE - "BUG DUMP <ARRAYNAME>" 

A new DEBUG option has been added to RJE. The "SM BUG" command has been expanded to allow the 
dumping to the PRINTFILE of any of the global arrays used by by RJE. 

Ex amp 1 e : 

<rje mix#> SM BUG DUMP <arrayname> 

The array specified by <arrayname> will be dumped in HEX and ALPHA. 

If <arrayname> does not exist, the following message will be displayed: 

"NO SUCH ARRAY: <arrayname>" 

If the request is correct, the following will be displayed: 

"#OK" 

This option will allow snap shots of the arrays used by RJE to be taken in real time. 

D2597 RJE - "DEBUG" OUTPUT CHANGE 

The JOBNUMBER of REMLPXX files will now be displayed in the DEBUG printer output for all 
UPDATEPRINTQUEUE, FIREUPINITIALIZATION and RECORDMANAGER display lines. This will aid in the 
debugging of AUTOBACKUP problems. 

D2625 RJE - "CLEAR" <LSN> COMMAND 

RJE will now allow the clearing of all stations on a line. A new control command "CLEAR" has 
been added, which will cause the following: 

1. Save all stations on the line. 

2. Recall all messages. 

3. Force the line not ready. 

4. DS any WFLTASK , AUTOBACKKUP , SERVICETASK (*RS) that is associated with the line. 

5. RESET all RJE control states. 

6. LOG OFF stations with cause being "STATION CLEARED". 

7. UPDATE LINKFILE. 

The stations on the line are left in a NOT/READY status and must be readied to be used. 

Syntax : 

— CLEAR — <lsn> — | 

02627 RJE - ACCESSCODE 

If an RJE must be logged on before use, an accesscode may be required on all RJE sessions. To 
require a default accesscode on all logons with a default usercode, RJE may be compiled with 
"ACCESSDEFAULT" set. To require default accesscodes later, the SM message "SO ACCESSCODE" or 
"RO ACCESSCODE" may be used to turn off default accesscode. 

When logging onto an RJE with a default usercode, if an accesscode is required for all users, 
or if the "ACCESSCODENEEDED" indicator for the usercode is set in the USERDATAFILE, RJE wi 1 1 
ask the following: "ACCESSCODE?". After an accesscode is entered, RJE will ask the following: 
"AND YOUR ACCESSCODE PASSWORD". A "." may entered if the accesscode has no password. The 
accesscode and password is validated in the USERDATAFILE. If valid, it will be applied to all 
jobs entered at the RJE unless an explicit accesscode or usercode specification appears in the 
job input. If it is not valid, RJE will respond with the following: 

"INVALID ACCESSCODE/PASSWORD, ENTER ACCESSCODE" 

The RJE will not be logged on until a valid accesscode and password has been entered. If 
"HELLO" is entered, RJE will abort the logon attempt and ask for the usercode again. 

If an RJE is logged on with a default usercode, the ACCESS command may be used, as follows: 

The accesscode may be changed. 

The accesscode may be added if there is no accesscode. 

The accesscode may be deleted. 
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The syntax is the same as the ACCESS command in CANDE, except that it is preceded by an "*". 

If an RJE does not require logon, and no default usercode is assigned, no default accesscode 
can be as s i gned . 

RJE will record the accesscode in the beginning of session messages and end of session 
messages. 

D2632 RJE - "MAXTERMINALS" NOT A POWER OF "2" 

RJE will now allow the setting of the define MAXTERMINALS to any positive integer value (it is 
used to determine the size of RJE working arrays). This removes the restriction that 
MAXTERMINALS be a power of 2 and will allow sites with large RJE networks to reduce the amount 
of overhead in the MCS . 

Note: MAXTERMINALS must be set to at least the number of RJE stations declared in the site's 
NDL. Values much greater will cause an increase in overhead and memory requirements for 
RJE. 

D263 8 RJE - NUMBER OF STATIONS ATTACHED 

The number of attached stations at BOJ of RJE will be stored in word SS of the first record of 
the LINKFILE. 

D2641 RJE - "LINKFILE" 

The RJE MCS employs a disk file with the internal name "LINK" and the title 
"SYSTEM/RJE/LINKFILE" to save information regarding the terminals under its control in the 
event of a halt/load. 

Saved in this file are such items as the states of the various run-time terminal options, 
usercodes, phone numbers, etc. All saved information is discarded if RJE is restarted after 
changing "NIF" and "DCPCODE" files as all saved information is considered as possibly 
incompatible with the new da t acorn environment. 

If the title of the RJE MCS is changed and then executed (assuming the new title is declared in 
the site's NDL), a new linkfile will be created called <mcs name>/LINKFILE. The 1 i nk file is 
always created and/or looked for on the family that the MCS is running. 

The file consists of a minimum of two 240 word records. The first record contains RJE' s mix 
number, version, and date and time of latest "NIF" and "DCPCODE" files. The remaining records 
consist of 48 word blocks containing information about each terminal followed by 48 word blocks 
containing autobackup restart record. 

The layout of the "LINKFILE" is as follows: 
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% 

% 

% 

% 

% 

% 

4RECORD 

% 

* 

* 

% 

% 

% 

% 

%RECORD 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 



WORD 


roi 




50 




51 




52 




54 




[55 



[53] 



LINKFILE INFO RECORD 



240 WORDS PER RECORD 



= RJE MIX NUMBER 

= NDL COMPILATION DATE 

= NDL COMPILATION TIME 

= RJE LEVEL (VERSION) 

= MAXTERMINALS 

= NUMBER OF ATTACHED STATIONS 



(MAXTERMINALS+4) DIV 5 : 

TERMINAL INFO BLOCKS 



48 WORD BLOCKS PER RECORD 



WORD 





1. 
2] 
2" 

4] 
7 

11. 

12] 

[13- 



[47:8] 
39:40]-[3] 
7] . [47:24] 
23:24]-[10] 



[47] 



TERMINAL STATUS WORD 

SESSION NUMBER 

LENGTH OF PHONE NUMBER 

PHONE NUMBER 

USERCODE 

ACCESSCODE 

CALL BACK INFO 

PRINT QUEUE INFO WORD 

JOB NO.S QUEUED FOR OUTPUT 



%RECORDS ((MAXTERMINALS+4) DIV 5)+l - (MAXTERMINALS* 2 +4) DIV 5 

% 

% AUTOBACKUP RESTART RECORDS 

% 



% 
% 
% 
% 
% 
% 



48 WORD BLOCKS PER RECORD 



WORD 



[0] 


15 


16 





23 


08 


1 


47 


16 


1 


31 


12 


2 


47 


08 


2 


[38 


12 


2 


27 


12 


2 


23 


04 


2 


19 


04 


3 


47 


12 


3 


35 


12 


[5]- 


-[47 





JOB NUMBER BEING PRINTED 
RJE SUPPLIED UNIQUENESS NUMBER 
BACKUP RECORD TO RESUME UPON 
INDEX WITHIN BACKUP RECORD 

# OF CHARACTERS IN DIR PB'ED 
USER SPECIFIED NUMBER OF COPIES 
USER SPECIFIED SAVE OR NOT 

# OF LEVELS IN DIRECTORY 
DIRECTORY FULL FILE NAME 
COPIES PRINTED 

# OF CHARACTERS OF CURRENT FILE 
NAME OF FILE CURRENTLY PRINTING 



% 
% 
% 

% 
% 
% 



% 

% 



% 
% 
% 
% 



% 
% 
% 
% 
% 
% 
% 
% 
% 



The structure of this file is subject to change at a future time. 

If the RJE MCS should ever be terminated with a fault, it is recommended that the "LINKFILE" be 
removed before the MCS is reactivated. 



D2810 RJE - FILE TRANSFER 

The implementation requirements of the foil 
number of "system control messages" (device 
the old messages. The use of these new "s 
problems with old or non-Burroughs RJE 
Transfer features in this release are appli 

SYSTEM/RJE has been modified to allow files 
host systems and terminals. The file tran 
NDL for each RJE station family. This new 
special attributes. An example of this n 
for this software release. 

Since this new feature is symmetric, it may 
to "HOST" vs. "TERMINAL" status; thus, t 
document . 

File transfer is supported for disk and pac 

1. Only code and 8-bit data files 

2. Only one file at a time may be 



owing new features have caused an increase in the 
address 00 messages) plus format changes to some of 
ystem control messages" may cause compatibility 
terminals and III.l SYSTEM/RJE. The use of the File 
cable only to B6000/B7000 series systems. 

to be transferred between host systems and between 
sfer is done through a new station added to a site's 
station has a device address of 04 but no other 
ew station can be found in the SYMBOL/ SOURCENDL file 



be invoked between any two systems without regard 
he term "HOST" will be used in the remainder of this 



k files with the following restrictions: 
(including text files) may be transferred, 
transferred in each direction. 
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3. File titles cannot be greater than 100 characters in length. 

The user initiates a file transfer by entering a variation of a WFL "COPY" statement on the 
host ODT. This command specifies source and destination hosts and file titles. The hosts are 
specified by the use of their "HOSTNAME"; in the case of a "LARGE SYSTEM" host (B6700, B6800, 
B7700, etc.), this hostname is created in the following fashion: 

If the "HN" (HOSTNAME) ODT command has not been used, then SYSTEM/RJE creates a hostname 
at run time. This hostname is the letter "B" followed by the 4 digit system model 
number (6700, 6800, etc.) and then the 3 or 4 digit system serial number. For sites 
that have specified a hostname by the "HN" ODT command, that hostname is used. Note 
that if two sites are connected to a host with the same hostname, requests to transfer 
files may not produce the desired results. 

The actual transfer of a file is initiated by the exchange of control information between the 
hosts. If the specified source host is the user's local host, the transfer is a "PUT"; if the 
source host is the remote host, then the transfer is a "FETCH". This means that if the file to 
be transferred from my host to your host is on my host, the "COPY" request will generate a 
"PUT" control message; if the file is on your host, it will generate a "FETCH" control message. 
All file transfers occur as "PUTS"; if one host wishes to do a "FETCH", it sends a "FETCH" 
message to the other host which causes it to initiate a "PUT" sequence. The "PUI"' message 
elicits a "PUT REPLY" which signals that data transfer may begin or supplies a reason for the 
rejection of the "PUT" request. If the transfer is OKed, the sending host then sends one or 
more data messages to device address 04 followed by an end-of-file message. The sending host 
processes a task called "FILEX[ < 1 sn> ] " , where <lsn> is the LSN of the station connected to the 
remote host. This task runs independently of SYSTEM/RJE. It opens the requested source file 
and performs any data compaction or translation required in the course of the transfer. The 
receiving host processes a task called "FILER[ < 1 sn> ] " which also runs independently of 
SYSTEM/RJE. This task reverses whatever FILEX did to the data and creates the requested 
destination file. Upon completion of the file transfer, the receiving host informs the 
requestor of completion of the request. 

Any file transfer requests that occur while another transfer is in progress are queued and then 
executed when possible. When a request is queued, the following message is displayed: 

#FILE TRANSFER STATION IN USE - COPY REQUEST WILL BE QUEUED. 

All requests are queued as "PUTS" , so i f a user requests a "COPY" that results in a "FETCH" 
being generated, the request is sent to the other host and may be queued for the reason given 
above. If the "COPY" request is syntactically correct and passes resident and security checks, 
the following message is displayed: 

#COPY REQUEST VALID - WILL FORWARD. 

The other host responds either with an error display or a request accepted display, in which 
case the transfer will start. 

All files on the destination hosts will be locked as type data. 

To implement this new feature, a set of new commands has been added to SYSTEM/RJE and several 
old commands have been modified. The file transfer requests and their progress displays are 
made on the host ODT by using SYSTEM/RJE "SM" message syntax. 

New SYSTEM/RJE SM Commands 



COPY 

— COPY — <f i lenaine> > 

]-<usercode spec>-| 
> FROM — <volume speo > 

AS < f i 1 ename> 

I I 

ONTO -| |-<usercode spec>- 

>- TO — <volume spec> 

<usercode speo 

— ( — USER — = — <usercode> ) — | 

, PASSWORD = <password> 
/ <password> 
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< volume >pec> 

DISK 

- PACK 

-<volumename>- 



KIND 



- TAPE 

- TAPE7 — 

- TAPE9 — 

- PETAPE - 

- PACK 



>- HOST == <hostname> — ) 



The "COPY" command transfers the requested file from the source host to the destination host. 
The <usercode spec> is used to verify access rights to the specified file and to the use of the 
file transfer station. It may also affect defaults for parts of the file title. For file names 
that start with the characters "*" or "(", the <usercode spec> usercode is not used as a 
prefix. The <usercode speo is required for any source or destination that is a large system 
host. The default volume kind is "PACK". The "COPY" request will not overwrite an existing 
file on the destination host unless the "ONTO" modifier is used. 

Exampl es : 

<rje mix#> SM COPY TESTFILE (USER=MIKE) FROM MCPMAST (HOST=B6700282) 
TO DISK (HOST=B68001004) 

Transfers "(MIKE)TESTFILE" from a pack called "MCPMAST" on host "B67O0282" to a pack 
named "DISK" on host "B68001004". Usercode "MIKE" (with no password) must be a valid 
usercode on both hosts. 

<rje mix#> SM COPY TESTFILE (USER=MIKE) AS X (USER=RJE/RJE) FROM 
MCPMAST (HOST=B6700282) TO DISK (HOST=B68001004) 

Same as first example except the destination file title is "(RJE)XON DISK". Usercode 
"MIKE" is used for all security and resident checks on host "B6700282" while "RJE/RJE" 
is used on host "B68001004". 



<rje mix#> SM COPY »WFL (USER=MIKE) ONTO TEMP (USER=WHY,PASSWORD=ME) 
FROM DISK (HOST=B6700282) TO PACK (HOST=B7700003) 

Transfers the system file "*WFL" from disk on host "B6700282" as a file called 
"(WHY)TEMP ON PACK" (overwrites the file if it already exists) on host "B7700003". 

The following error messages are produced as a result of an invalid "COPY" command: 

FILENAME GTR 100 CHAR. 

INVALID FILENAME: <filename>. 

NO FROM OR TO PARTS. 

NO FROM PART. 

INVALID VOLUMENAME: <volumename> . 

KIND MAY NOT BE SET THERE. 

setting "KIND=DISK" vhen volumename is 



Examp 1 e : 
"DISK". 



MISSING EQUAL. 



Equal signs are required after key words "USER", 
"PASSWORD" , "HOST" , "KIND" . 



INVALID MEDIA TYPE: <media type>. 

NO HOSTNAME. 

EXPECTING PARENTHESIS. 

NO TO PART. 

NO USERCODE/PASSWORD. 

INVALID USER/PASS SYNTAX. 

SOURCE AND DEST HOSTNAMES THE SAME. 
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THIS HOST NOT SOURCE OR DEST. 

USERDATAFILE FROZEN - TRY LATER. 

The userdatafile was not available at security 
check time. 

SECURITY ERROR ON USER = <usercode>. 

FILE <filename> NOT AVAILABLE. 

FILE <filename> NOT RESIDENT. 

FILE <filename> ALREADY EXISTS. 

FILE <filename> IS OPEN EXCLUSIVE AND CANNOT BE REPLACED. 

FAMILY <familyname> IS NOT PRESENT. 

ABORT 

— ABORT — <lsn> SEND | 

I- RECV - 



-< i n t eger> — 
-<f i 1 ename>- 



The ABORT command is used to stop an active file transfer or delete one or all entries that are 
queued for a host. The key words "SEND" and "RECV" are used to specify the type of transfer to 
abort. The <lsn> is the LSN of the station to which the remote host is connected. See the 
"FTS" command for more information concerning the <integer> and <filename> formats and 

mean i ngs . 

Ex amp 1 es : 

<rje mix#> SM ABORT <lsn> SEND 

Aborts the current active "FILEX" task (the sender). 

<rje mix#> SM ABORT <lsn> RECV 

Aborts the current active "FILER" task (the receiver). 

<rje mix#> SM ABORT <lsn> SEND = 

Deletes all requests queued at this host for the requested <lsn>. 

<rje mix#> SM ABORT <lsn> RECV = 

Deletes all requests queued at the remote host for transmission to the requested <lsn>. 

<rje mix#> SM ABORT <lsn> SEND <integer> 

Deletes the <integer> entry from the queued list but does not delete the active entry 
(queued number 0). 

<rje mix#> SM ABORT <lsn> RECV <integer> 

Deletes the <integer> entry from the queued list of the remote host connected to the 
requested <lsn>, but does not delete active entry (queued number 0). 

<rje mix#> SM ABORT <lsn> SEND <filename> 

Deletes the first queued entry from the queued list for the <lsn> requested where the 
queued source filename matches <filename>. 

<rje mix#> SM ABORT <lsn> RECV <filename> 

B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 REMOTE JOB ENTRY 



MARK 3 . 1 



PAGE 3 85 



Deletes the first queued entry from the queued list of the host that is using the <lsn> 
where the queued source filename matches <filename>. 

ONLINE and OFFLINE 

ONLINE <lsn>— | 

i- OFFLINE - 



The ONLINE command initiates the connection between two hosts, 
datacom connection, this command has different effects. 

SWITCHED LINE WITHOUT AUTOMATIC CALLING UNIT 

The request has no effect and elicits a response of : 

#NON DIALOUT CAPABLE STATION. 

SWITCHED LINE WITH AUTOMATIC CALLING UNIT 

Causes dialout if phone number is set up (see PH command). 
RJE will respond with either : 

#NO DIALOUT PHONE NUMBER 

or 
♦DIALING OUT STARTED 

DIRECT OR LEASED LINE 

Causes the ##RJE and 09 station-id messages to be sent. 
RJE will respond with 

#OK 



Depending on the type of 



If the <lsn> is already connected and active RJE displays: 
# STAT I ON ALREADY ACTIVE. 



The OFFLINE command causes termination of the datacom connection between two host systems. 
Depending on the type of datacom connection, this command has different effects. 

SWITCHED LINE - causes log-off and line disconnect. 

DIRECT OR LEASED LINE - causes log-off, but leaves line active. 



RJE responds with the following message to the OFFLINE command: 
#OK. 



PH (Phone Number) 

— PH — <lsn> 

- CLEAR 



-<phone number>- 
_ INT 



<phone nunber> 

— Maximum of 11 digits — | 
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The PH (phone number) command is used to display, clear, change or retry the automatic calling 
unit phone number associated with a station. 

Ex amp 1 es : 

<rje mix#> SM PH <lsn> 

Displays the current phone number (if any). 

<rje mix#> SM PH <lsn> CLEAR 

Clears the phone number. 

<rje mix#> SM PH <lsn> <phone number> 

Enters new phone number. 

<rje mix#> SM PH <lsn> INT 

Causes dialout retry if the callback option is set 
for < 1 sn> stat i on . 

SF (Set Factors) 

| < 1 

I i 

SF — <lsn> BLKSZ <integer>- 

BUFSZ 

FTBLK 

This command specifies the characters per transmission blocking factor (BLKSZ), buffer size in 
characters of remote printer and or punch output (BUFSZ) and the maximum number of characters 
allowed in a file transfer block (FTBLK). The following defaults and limits are imposed : 

Defaults Limits 

BLKSZ 400 132 through 40S (inclusive) 

BUFSZ 820 132 through 2000 (inclusive) 

FTBLK 400 400 through 2000 (inclusive) 

Changing any of these values should be done with the utmost care to avoid exceeding the limits 
of the remote terminal or of the da t acorn line. 

TF (Type Factors) 

— TF —| 

This command has been modified to display the characters per transmission blocking factor 
(BLKSZ), buffer size in characters of remote printer and or punch output (BUFSZ) and the 
maximum number of characters allowed in a file transfer block (FTBLK). The defaults and limits 
imposed are the same as for the SF command. 

FTS (File Transfer Status) 

— FTS 1 

J -<1 sn>-| 

The FTS command monitors the file transfer activity. This command without the optional <lsn> 
displays one or three lines for each active station attached to SYSTEM/RJE. If the station has 
no "HOSTNAME", or if there are no file transfers active on the station, one line will be 
displayed showing LSN, station name, hostname (if any) and a comment of "NO ACTIVE FILE 
TRANSFER". For stations with an active file transfer, three lines are displayed showing the 
status of the station and of the active file transfers. 

If the optional <lsn> is used with the FTS command, only the information for that station is 
displayed. In this case, the display is either one or four or more lines depending on the 
number of queued requests. 
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Exampl e output s : 



The examples that follow are the results of using the FTS command 
without the optional <Isn>. 

[034] RJE1 B6800282 NO ACTIVE FILE TRANSFER 
[039] RJETIO NO HOSTNAME NO ACTIVE FILE TRANSFER 
[044] RJEGMM B6700282 2 REQUEST QUEUED 

RECV: FILER ACTIVE (4321) 21 OF 54 

SEND: FILEX ACTIVE (4401) 1053 OF 10049 (PACING) 

The first line of the above example has the following meanings: 

[034] = The base LSN of the RJE station 
RJE1 = Station name 
B6800282 = Remote host name that is connected to this station 

In the second line of the above example the host or terminal using station RJETIO has 
not sent its host name (if it has one) and no file transfers are allowed. 

In lines three through five of the above example, the host B6700282 is active on station 
RJEGMM and there is a file transfer running in each direction. The "RECV" line shows 
the status of the receiving task FILER. The number in parentheses is the mix number of 
FILER while the XXX OF YYY numbers are the current count of records transferred of the 
total for the file. The "SEND" line shows the status of the sending task FILEX. The 
number in parentheses is the mix number of FILEX while the XXX OF YYY numbers are the 
current count of records transferred of the total for the file. The word "PACING" 
indicates that FILEX is waiting for a pacing flag before continuing with the next file 
transfer block of records. 

The example that follows is of LSN 44 in the last example 
using the optional <lsn>. 

[044] RJEGMM B6700282 2 REQUEST QUEUED 
RECV: FILER ACTIVE (4321) 21 OF 54 
<00> (MIKE)TESTFILE ON TESTPACK 

AS (MIKE)NEW/TESTFILE ON MCPMAST. 
SEND: FILEX ACTIVE (4401) 1053 OF 10046 (PACING) 
<00> (MIKE)RJEX ON MCPMAST. 
<01> *SYMBOL/WFL 

AS (MIKE)WFL ON TESTPACK. 
<02> (RJE)DUMMY ON PACK 

ONTO (MIKE)SAVE/THIS/FILE/FOREVER. 



The lines that start with the items [044], RECV: and SEND: have the same meanings as 
above. The lines that start with <00> are the file names of the active file transfers 
and the counts displayed in the recv and send lines refer to them. The lines under the 
send line that start with <01> through <02> are requests that have been queued. The 
numbers displayed within the <> and the file names on those lines are the numbers and 
file names used in the "ABORT" command described above. 



*SF and *TF 

The RSC keyin commands *SF and *TF have been changed to reflect the addition of the new factor 
"FTBLK" . The syntax of these commands is the same as their SM command counterparts. 

File Transfer Recovery 

If during a file transfer, one or both of the hosts stops (Halt/Load, RJE fault, DCP death, 
etc.), SYSTEM/RJE stores enough information about the transfer to restart it where it left off. 
This is done by storing the current record counts and the "COPY" requests in RJE' s "LINKFILE" . 

On the receiving host, the destination file is not created directly but a temporary file is 
created to allow restart and recovery. This temporary file is called "FILERFILE[<1 sn>] " and is 
created under the destination usercode, unless it is a system file (*), on the destination 
<vol umename> . Upon successful completion of the transfer, the temporary file is re-titled and 
locked . 
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At initialization RJE checks to see if it was involved in a file transfer that was not 
completed. The requirements to continue a file transfer are the following: 

1. Connection is made to the same host on the same station (datacom line) that was 
last using it. 

2. The linkfile on both hosts are still intact (do not remove the linkfile). 

3. The temporary output file on the receiving host is available. 

If the above conditions exist, then at initialization the receiving host requests the file 
transfer to continue. The "SEND" and "RECV" lines of the "FTS" command display have the word 
"RESTARTED" in parenthenses for any file transfer that has been continued. 

If the re-connection of the datacom line is to a different host, all queued request and the 
active requests are deleted and all restart information is discarded. 

Linkfile Restructure 



Several changes have been made to SYSTEM/RJE to support the file transfer feature. One of 
these is the restructuring of the linkfile. To ensure the correct linkfile format, SYSTEM/RJE 
checks at initialization the "LINKFILE VERSION" which is stored in word 56 of record 0. If the 
version of SYSTEM/RJE and its linkfile do not agree, the linkfile will be discarded. There are 
currently four reasons for discarding an old linkfile 

1. NDL file (DCPCODE and NIF) changes. 

2. Maxterminals in SYSTEM/RJE has changed. 

3. Linkfile version not correct. 

4. Parity error reading old file. 

Each of these conditions causes SYSTEM/RJE to display an appropriate message. 

D2828 RJE - "WAIT" STATE MAINTAINED 

The state of the WAIT SM command will be maintained over Halt/Loads and RJE being forced to EOJ 
by the QUIT command. The WAIT state will be stored in the LINKFILE in record word 57. 

D2862 RJE - "WFLMESSAGE ARRAY" USAGE INCREASE 

RJE will now better utilize the WFLMESSAGE ARRAY when handling card input from the remote site. 
RJE was causing insertion in the WFLQUEUE at 15% of capacity where now insertion will not take 
place until a minimum of 80%. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

REMOTE JOB ENTRY 

P1037 RJE - RECONFIGURATION WITH ACTIVE " AUTOBACKUP " TASKS 

RJE will no longer allow reconfiguration to a station that has logged off but still has an 
active AUTOBACKUP task. The error message "# STATION IN USE, ENTER STATION NAME" will be 
displayed at the site trying to log on. 

PI 579 RJE - "STATIONID" OR "USER" CHANGES 

Changing the status of STATIONID or USER with the SM, SO or RO commands will now cause an 
update of RJE' s LINKFILE. 

PI 6 10 RJE - "RJELEVEL" DISPLAY CHANGE 

The form of the RJE patch level that is displayed at logon time has been changed to include the 
patch number. The RJE LEVEL message is also displayed on the host site ODT at BOJ of RJE and 
is written to the PRINTFILE if DEBUG is set. 

PI 772 RJE - "RJE AUTOPRINT" HANG 

RJE's AUTOPRINT routine will now check that the PRINTER NOT READY message removed from its 
CURRENT QUEUE has been inserted by the REMOTECONTROL procedure and is not a message left from 
an earlier run. 

PI 794 RJE - "WFLCOMPILER" NOT GOING TO "EOT" 

It was possible for the WFLCOMPILER processed off by RJE to hang in the mix because of garbage 
characters in the QUEUEIN array. This has been corrected by blanking one character past the 
last character sent by the remote terminal to the host system. 

PI 795 RJE - "LSNRAY" VS. STATIONS WITH "NO-LINES" 

RJE will now build the LSNRAY correctly at BOJ when stations with NO-LINES are found. The 
problem could cause several error conditions, bad data or INVALID INDEX. Stations that have 
NO-LINES have only their processor (DA="00") entry updated in LSNRAY. The card reader, printer 
and RSC information are not needed when reconfiguration is requested by the STATIONID option. 

PI 8 14 RJE - SWAPPING PRINT QUEUES VS. STATION ID 

Several problems involving reconfiguration and exchanging of print queues have been corrected. 
These involved possible SEG ARRAY errors and storage of incorrect information in a print queue. 

PI 8 15 RJE - "CONT" AND "PRINT" BANNERS 

RJE will now print the CONT and PRINT banners when the NEWLINE option is reset. 

PI 8 16 RJE - "QT" PRINTER FILES SAVED OVER HALT/LOAD 

While printing a job with several print files, the remote site operator QTed a file to be 
printed later. A Halt/Load occurred at the host site; thus, on restart the remote printing 
continued from where it left off. However, on completion of the last file of the job, all 
files were removed including the file previously QTed. This problem has been corrected. 

PI 942 RJE - RESTARTFILE NAME "SEG ARRAY" ERROR 

RJE would die with a SEG ARRAY error if the title of the REMLP file used to restart an 
AUTOBACKUP task ended on a word boundary (<Iength of title> MOD 6=0). This caused the 
procedure DISPLAYTOSTANDARD not to find a delimiting "." or NUL . This problem has been 
corrected by increasing the title length by one to include the trailing ".". 

P2086 RJE - "MAXTERMINALS" GREATER THAN "48" 

RJE will now allow the setting of MAXTERMINALS to an integer value greater than 48 and not die 
with an INVALID OP. Several REAL and Boolean identifiers have been changed to EBCDIC ARRAY to 
remove the 48 MAXTERMINALS limit. (On III .0 and II. 9 levels of RJE, the requirement that 
MAXTERMINALS be a power of 2 still holds true; therefore, setting MAXTERMINALS to 64 will now 
work . ) 

P2204 RJE - "»ME COPIES 2" VS. RESIZE OF FILEINFO 

RJE's AUTOPRINT procedure will no longer DS with a SEG ARRAY error after the following is 
en t e r ed : 

*ME <job no>/<task no> COPIES 2 SAVE 
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P2205 RJE - NOLOGON VS. USERCODE 



For RJE stations with NOLOGON set, the MCS LOGON and LOGOFF log records will have zeroed word 
#7 (USERCODE). This will cause the line in the job summary output and in LOGANALYZER output 
"USERCODE:." to be deleted, as well as cause blank USERCODE lines in the summary block 
character heading. 

P2374 RJE - UNIT DEVICE NUMBER 

The first block of input from an RJE card reader could be lost under certain circumstances, if 
a card reader block is the first input from an uninitialized RJE terminal. This problem has 
been correccted. 

P2561 RJE - "*ME" FAILS ON SPECIFIC FILENAME IF "SB=PACK" 

RJE's autoprint will now print backup entries created by the *ME request when a specific 
filename is supplied and the REMCP files are on "PACK" (SB DISK=PACK) . 

P2562 RJE - "DESTNAME" DIRECTED "REMCP" FILES 

RJE will now automatically punch REMCP files which have been directed to it at the host site 
with REMOTEPUNCH reset. 

P2 5 63 RJE - "REMCP" FILE TITLES ON WORD BOUNDARY 

It was possible for AUTOBACKKUP to DS with a SEG ARRAY error in the DISPLAYTOSTANDARD procedure 
while building the restart record. This problem has been corrected. 
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READER SORTER - GENERAL 



D28 59 READ- SORT 



RSC3" CONTROLS 



The RSC3 control for the B9137-III Reader/Sorter has been implemented. As a result, the 
B7000/B6000 Sor t ercon t ro 1 Language Reference Manual (Form No. 5001183) should be revised as 
f o 1 1 ows . 

Page 2-17, the list of Procedure Description Division should read as follows: 

"BREAKOUT 
FLOW-STOPPED 
INITIATION 
INVALID- ITEM 
NORMAL- I TEM=M I CR- I TEM 
RESTART 
TERMINATION" 

Page 2-20, under ITEM-TYPE, the description should read as follows: 

"A read-only six-digit register that contains a value indicating the type of invalid 
document detected. ITEM-TYPE is valid only during execution of the INVALID-ITEM SECTION and 
the FLOW-STOPPED SECTION. 

For a B9134, only one digit is returned (right-justified). 

For a B9137, two digits are returned ( r i ght- j us t i f i ed) . The right-most digit is the value 
for HEAD1; the other digit is the value for HEAD 2 . " 

The values remain unchanged. 

In sections 3 and 4, references to the following sections have been combined into the 
NORMAL-ITEM SECTION ( synonym=MICR-ITEM SECTION), because the Reader/Sorter subsystem considers 
data to be no more than data transmitted to the UCR: 

MICR-ITEM SECTION 
OCR 1 -ITEM SECTION 
OCR2-ITEM SECTION 

Page 3-3, replace the syntax diagram with the following: 

— CONTROL — ( — HALT — ) 

( — SLEW — ) 

( — COUNT — ) 

( — LIGHT — <numeric operand) — ) - 

( — ICM — <numeric operand) — ) 

( — SELECT — <select options) — ) - 



<sel ec t opt ions > 

<numeric operand>- 

POCKET 

REJECT-POCKET — 



< 



ENDORSE 
CLICK — 



- ON EXCEPTION 



-<s t atement >- 



ELSE 



-<s t at ement>- 



|- NEXT SENTENCE 



Add the following as the first pararaphs of the semantics on Page 3-3: 
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s e 
ames 



"The CONTROL options are valid for RSC1 and/or RSC3 as follows: 
Option RSC1 RSC3 

HALT ~X~~ ~x" 

SLEW X 

COUNT X 

LIGHT X X 

ICM X 

SELECT(<num op>) X X 

SELECT( POCKET) X X 

SELECT (RE J -POC) X X 

SELECT(ENDORSE) X 

SELECT (CLICK) X 

If there are two heads, then ITEM-TYPE returns two digits; therefore, it must be declared 99 
in the UCR to get the information. 

The following options are exclusive; i.e., they cannot be used in combination with any other 
opt i ons : 

HALT, SLEW, COUNT, LIGHT, ICM" 

The third paragraph under Semantics should read as follows: 

"CONTROL (HALT) is valid in the NORMAL-ITEM SECTION." 

Add the following to Semantics on Page 3-3: 

"CONTROL (SLEW) is a microfilm command that advances the microfilm. It is valid only when 
flow is stopped and the Reader/Sorter is ready. Also, it is valid only by itself. 

CONTROL(ICM (numeric operand>) is a microfilm command that causes the Reader/Sorter to u 
the last used microfilm identification number on the next <numeric operand> fram 
(maximum=9). Flow must be stopped and the Reader/Sorter must be ready. 

CONTROL (COUNT) causes the batch counter to advance." 

Page 3-4, the first paragraph should read as follows: 

"CONTROL (SELECT) is valid in the following procedure sections: 

INVALID- ITEM SECTION 

NORMAL- ITEM SECTION=MICR-ITEM SECTION" 

Page 3-4, add the following paragraphs to the semantics for 
CONTROL: 

"The following semantics apply only to the B9137; they are invalid for the B9134. 
CONTROL (SELECT <numeric operand> ENDORSE) means 

a. Route this check to POCKET #<numeric operand> 

b. Load all four bands in the UCR endorser record 

c. Endorse all four bands in the UCR endorser record 

CONTROL( SELECT <numeric operand) CLICK) means 

a. Route this check to POCKET #<numeric operand> 

b. Microfilm this check 

CONTROL (SELECT (numeric operand> ENDORSE CLICK) means 

Select pocket, load all bands, endorse all bands and microfilm the check." 

Page 3-23, the first paragraph should read as follows: 

"The REMAP statement is valid only in a repass UCR that performs image-matching procedures. 
REMAP may be specified in the following sections: 

FLOW-STOPPED SECTION 
NORMAL- ITEM SECTION 
RESTART SECTION" 

In Section 4, Unit Control Routine (UCR), all references to the following SECTIONS should be 
deleted, as they are now handled as NORMAL- I TEM s : 

BLACK-BAND-MICR SECTION 
BLACK-BAND-OCR 1 SECTION 
BLACK -BAND-OCR2 SECTION 

Page 4-2, replace the syntax diagram with the following: 
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ROUTINE 



-<comment i n forma t i on> — " 



~/l»*\- DATA SECTION PROCEDURE 

-/1\- ENDPO I NT- ATTRIBUTES SECTION — 
-/1\- IMAGE-FILE ATTRIBUTES SECTION 

-/1\- POCKET- ATTRIBUTES SECTION 

-/1**\- READER-SORTER SECTION 

-/1\- RECOVERY- FILE SECTION 

-/1\- SORT-FIELDS SECTION 



l < 

i 
>_: /i\_ BREAKOUT SECTION 

-/1\- FLOW-STOPPED SECTION — 

-/1\- INITIATION SECTION 

-/1\- INVALID-ITEM SECTION — 

|-/1\ NORMAL-ITEM SECTION - 

I 

|- MICR-ITEM SECTION 

|-/1\- RESTART SECTION 

-/1\- TERMINATION SECTION 



Page 4-13, replace the syntax diagram for READER-SORTER SECTION 

with the foil owi ng : 



READER -SORTER SECTION 



— /1\- HEAD1 -RECORD REVERSE 

I-/1V- HEAD2-RECORD -I 

I 

|-/ IV- ENDORSER-RECORD 



I 



-<record description > 



|-<pattern expression>- 



Page 4-14, replace the first four paragraphs under "Semantics" 
with the following: 

"The READER-SORTER SECTION describes the format(s) of acceptable document images and the 

endorse rarea. 

HEADI-RECORD and HEAD2-RECORD (for B9137 only) identify a particular <record description> 
(data area) into which document images are read from the Reader/Sorter HEAD1 and HEAD2 read 
heads, respectively. HEAD1 HEAD2 <record desc r ipt i on>s are referred to as READER- SORTER 

<record description^. 

REVERSE must be specified for HEAD1 and HEAD2 records. REVERSE indicates that the <record 
description) is interpreted with the individual data fields described from right-to-left. 
(Check formats require a r i gh t- t o- 1 e f t scan to detect delimiters.) Document format 
description must be from right-to- left. 

<recorcl description) must contain a complete description of the documents to be processed. 
The HEAD1, HEAD2 and ENDORSER <record description) represents the default or most 
commonly-expected document format. The <record description) must describe the document 

format from r i gh t- t o- 1 e f t . 

IL e ,™ nclorser area (for B9137 only) describes the data sent to the Reader/Sorter when the 
CONTROL (SELECT ENDORSER) statement is executed. REVERSE is not valid. The contents of the 
endorser area are sent to the control every time this statement is executed. All four 
32-byte bands are loaded and endorsed." 
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Page 4-15, change "MICR" to "HEAD2". 

Page 4-18, the list of procedure description sections should read 
as fol lows : 

BREAKOUT 

FLOW- STOPPED 

INITIATION 

INVALID- ITEM 

NORMAL-ITEM=MICR-ITEM SECTION 

RESTART 

TERMINATION 

Page 4-19 should be deleted. 

Page 4-20 should be deleted 

Page 4-21 should be deleted 

Page 4-23, under Semantics, the fifth paragraph should read as follows: 

"Detection of a Black-Band item causes the NORMAL-ITEM SECTION to be invoked. Upon exiting 

the NORMAL-ITEM SECTION, the FLOW-STOPPED SECTION is invoked. (If the SET END-OF-RUN 

statement is issued, the TERMINATION SECTION is invoked rather than the FLOW-STOPPED 
SECTION. )" 

Page 4-2S, under Semantics, the first paragraph should read as follows: 

"The INVALID-ITEM SECTION is invoked when a READ COMPLETE is received but there is no data 
(i.e., unencoded) or the data is not valid." 

Page 4-26, replace the syntax diagram with the following: 

— USE FOR NORMAL-ITEM . <paragraph> END > 

I- MICR-ITEM . 1 

> NORMAL-ITEM . 1 

|- MICR-ITEM . J 

The semantics should read as follows: 

"The NORMAL-ITEM SECTION is invoked when a read complete is received and valid data is sent 
from the Reader/Sorter. The NORMAL-ITEM SECTION must contain the code necessary to fully 
process MICR documents." 

Page 4-27 should be deleted. 

Page 4-28 should be deleted. 

Page 4-31, replace the syntax diagram with the following: 

— LABEL-ROUTINE > 

|- " — <comment i nformat ion> — " -| |- . -| 

I < | 

> /1»*\- DATASECTION PROCEDURE . > 

-/1**\- READER-SORTERSECTION - 



< 

> /1*»\- FLOW-STOPPEDSECTION I 

|-/1**\- NORMAL-ITEMSECTION — | 

Page 4-32, the fourth paragraph should read as follows: 

"The NORMAL-ITEM SECTION must be declared. This section must release exactly one 
display-form label. The label must be terminated with a period; e.g., "RS/TWO.". This 
procedure must also select the document to a pocket." 

Appendix A, revise the list of reserved words as follows: 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 READER SORTER - GENERAL 



PAGE 39 5 
MARK 3. 1 



Delete the following words: 

BLACK-BAND-M I CR 
BLACK- BAND-OCR 1 
BLACK-BAND-OCR2 
OCR1-ITEM 
OCR2-ITEM 
OCR 1 -RECORD 
OCR2 -RECORD 

Add the following words: 

ENDORSER 
HEAD1 
HEAD2 
NORMAL 
NORMAL- ITEM 
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DOCUMENT CHANGES NOTES (D NOTES) 
READER SORTER - INITIALIZER 



D1744 INITIALIZER - "RSC3' 



INITIALIZER now recognizes RSC3 controls. A change has been made to send RSMONITOR only a code 
number to report an RSC1 or RSC3 or disk control (previously, INITIALIZER sent the result 
descriptor). Now RSPINITIALIZER does not know the format of the RD, only the defines for 
Reader/Sorter controls. INITIALIZER only acknowledges the presence of Reader/Sorter controls. 
Any other control is ignored by INITIALIZER and no record of it is sent to RSPINITIALIZER. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 READER SORTER - INITIALIZER 



PAGE 397 
MARK 3 . 1 



DOCUMENT CHANGES NOTES (D NOTES) 
READER SORTER - MIL6700 



D2743 MIL6700 - DEBUG 
To activate DEBUGTRACE, set DEBUG and TRACE. 
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DOCUMENT CHANGES NOTES (D NOTES) 



D2 74 5 READERSORTER 



RSC3" 



RSPINITIALIZER gets a code from INITIALIZER for the types of control present, 
checks the code against the RSUNITTABLE created from RSNET, then logs 
RSPINITIALIZER no longer knows about the RD format in the RSP. 



RSPINITIALIZER 

wha t it finds. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
READER SORTER - READERSORTER 



PI 43 5 READERSORTER - SCAN ERROR WORD 



RSSCANIN and RSSCANOUT now use the stored fault information upon detection of a fault 
condi t i on . 
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DOCUMENT CHANGES NOTES (D NOTES) 
READER SORTER - RSANALYZER 



D2746 RSANALYZER - CHANGE CARD FILE NAME 
The internal name of the program' 9 card file has been changed from "CD" to "CARD". 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
READER SORTER - RSLOG 



PI 441 RSLOG - "RSC3" 
RSLOG has been modified as follows: 

1. To recognize RSC3 controls. 

2. To show the reason for initiation (RSMONITOR option). 

3. To show the fault reason in BICERROR during scans. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
READER SORTER - RSMCP 



P2487 RSMCP - "RSMONITOR" 
RSMONITOR now looks for a BIC, then forks RSMONITOR in the local box that can see the BIC. 
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DOCUMENT CHANGES NOTES (D NOTES) 
READER SORTER - SORTERCONTROL 



D2747 SORTERCONTRL - "RSC3" 

New error messages have been added. Other message declarations have been tidied. 

D2 748 SORTERCONTRL - "RSC3" 

The compiler has been modified to allow for the compilation of multiple Reader/Sorter record 
descr ipt ions . 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
READER SORTER - SORTERCONTROL 



PI 372 SORTERCONTRL - ALLOW FILLER WITH "USAGE" 

Filler can now specify usage. 
P1463 SORTERCONTRL - "RSC3" 

The following changes have been made: 

1. Added the following reserved words: 

NORMAL- ITEM 

HEAD 1 -RECORD 

HEAD2-RECORD 

ENDORSER-RECORD 

ENDORSE, SLEW, ICM, CLICK 

2. Deleted all references to the following: 

M1CR 
OCR1 
OCR2 
BLACK-BAND SECTIONS 

3. Renumbered UCR sections to take account of deleted OCR and BLACK-BAND sections. 

4. Added communicate codes for SLEW and ICM on microfilm. 

5. Modified compiler to handle one or two read head declarations. 
PI 464 SORTERCONTRL - "RSC3" 

The CONTROL statement, used for controlling the Reader/Sorter, has been modified to allow the 
following additional functions: 

1. ENDORSE - To activate the non-impact endorser. 

2. CLICK - To activate the microfilm camera. 

3. SLEW - To slew the microfilm. 

4. ICM - To place image count marks on microfilm. 
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DOCUMENT CHANGES NOTES (D NOTES) 
SCRMCP 



D2943 SCRMCP - "MCP" SYMBOLIC CONSOLIDATION 

The external procedures MAINTENANCE and SORT have been moved into the MCP symbolic Thev can 
no longer be separately compiled and bound; however, they can be changed using SEPCOMP 

D2947 SCRMCP - "CURRENTDATE" 

A CURRENTDATE function has been added to the MAT language. It returns a six-digit number whose 
value is the current date in mmddyy form. "'8'' numoer wnose 

No. a 5000169): the followi " g chan « es shoul <» °* "»<** to the MAT Language Information Manual (Form 
Page 2-15: 

Add "| CURRENTDATE" to the list of options for <primary>. 
Page 2-20: 

Add the f o 1 lowi ng : 

"CURRENTDATE 

This primary returns the current date as a six-digit number of the form mmddyy This 
C ro S ram C " " prOVlded ,0 al,ow for *<= • f-i den t i f i ca t ion of the printed results from a MAT 
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SCRMCP 



P2486 SCRMCP - "IOTIMEOUT" 

IOTIMEOUT default is now set at 90,000 milliseconds instead of 90. TIMELIMIT default for 
datacom files is now set at 90 seconds instead of 90,000. 

P2535 SCRMCP - LABEL "CASE" STATEMENTS 

All unlabeled CASE statements are now labeled. 

P2615 SCRMCP - HANDLE "VOIDT" PROPERLY 

Previously, $SET VOIDT would delete lines from the file CARD as well as the file TAPE. Now it 
deletes lines only from the file TAPE. 

P2621 SCRMCP - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK11 

PK10 

PK09 

PK08 

PK07 

PK06 

PK0 4 
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DOCUMENT CHANGES NOTES (D NOTES) 

SCR 

D2246 SCR - "B6800 MCP" 

New hardware interrupt literals are now recognized, and, where appropriate, logged. 

The format of log records reporting B6800 processor errors or diagnostic interrupts is as 
f o I 1 ows : 



ord 


Cont en t s 





Link 


1 


Date 


2 


Time 


3 


Type 3 1 




15 


4 


MCPID 47 




35 




23 




1 1 



16 = 2 (LOGMAJMAINT) 

16 = 15 (MLCONFIDENCEERROR) 

12 = System Serial # 

12 = Mark Digi t 

12 = Mark Level 

12 = Patch Level 

5 PirocessorlD, WHOI Value 

6 PI Parameter, PI Interrupt Parameter with Tag set to 

7 P3 Parameter, P3 Interrupt Parameter with Tag set to 

8 P2 Parameter Tag 

9 P2 Parameter, P2 Interrupt Parameter with Tag set to 

The interpretation of PI, P2 and P3 is based on B6800 processor specifications. 

D2414 SCR - ADD "RSC-3" TEST NAME 

The name "RSC3MAINT" has been added to the list of names which may be specified as test 
routines files to be loaded to an RSP. This is to allow the new system file 
SYSTEM/RS/RSC3MAINT to be loaded. This file is the test routine which will be used in 
conjunction with the RSC-3 Control and B9I37 Reader/Sorter. 

D27 5 8 SCR - "GCR" TAPE ALLOWED 

Code has been added to SCR (MAT Language) to allow for the testing of GCR type tape units. 
When generating a "VERIFY" "TESTAPE", the following densities MUST be specified at some point 
after "TESTAPE": "DENSITY 6250" or "DENSITY 1600". This is required only on GCR type units. 
"DENSITY" is not required during options "CERTIFY" or "SELECT". 

Ex amp 1 es : 

(1) SCR; VERIFY TAPE MT80 (TESTAPE DENSITY 6250 REEL 1) 

(2) SCR; VERIFY TAPE MT80 (SELECT ALL) 

D2933 SCR - "IOSTATEMENT" DOCUMENTATION 

The following changes should be made to the MAT Language Information Manual (Form No. 5000169) 
to reflect the implementation of the previously undocumented IOSTATEMENT: 

Add the following to the right side of <PRIMARY> on page 2-15: 

"/ < IOSTATEMENT IDENTIFIER> ( < IOSTATEMENT ID PARAMETER> )" 

Add the following to the syntax on page 2-16: 

"< IOSTATEMENT ID PARAMETER> ::= MPXNO / RESULT / UNITNO / 

UNITTYPE / IOLENGTH / IOSIZE / PCROUTE / I OCW. ADDRESS / 
I OCW. CONTROL" 

Add the following to examples on page 2-17: 

"12. READPK( UNITNO) 
1 3 . READPK ( I OCW . ADDRES S ) " 

Add the following paragraphs to semantics on page 2-20: 

"< IOSTATEMENT IDENTIFIER> (MPXNO) 

THIS PRIMARY RETURNS THE MULTIPLEXOR ROUTE NUMBER USED BY THE MOST 
RECENT EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
< IOSTATEMENT IDENTIFIER^ 

< IOSTATEMENT IDENTIFIER> (RESULT) 

THIS PRIMARY RETURNS THE RESULT DESCRIPTOR OF THE MOST RECENT 
EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
< IOSTATEMENT IDENTIFIER> . THE ERROR FIELD OF THE RESULT DESCRIPTOR 
IS THE ONLY PORTION OF THE RESULT DESCRIPTOR RETURNED. 
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<IOSTATEMENT IDENTIFIER) (UNITNO) 

THIS PRIMARY RETURNS THE PHYSICAL UNIT NUMBER OF THE UNIT USED BY 
THE MOST RECENT EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
< I OSTATEMENT I DENT I F I ER > . 

<IOSTATEMENT IDENTIFIER) (UNITTYPE) 

THIS PRIMARY RETURNS THE RESULTS OF THE SCANIN FOR UNIT TYPE OF THE 
UNIT USED BY THE MOST RECENT EXECUTION OF THE I/O STATEMENT 
ASSOCIATED WITH <IOSTATEMENT IDENTIFIER). 

< I OSTATEMENT IDENTIFIER) (IOLENGTH) 

THIS PRIMARY RETURNS THE WORD COUNT USED BY THE MOST RECENT 
EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
<IOSTATEMENT IDENTIFIER). 

<IOSTATEMENT IDENTIFIER) (IOSIZE) 

THIS PRIMARY RETURNS THE ACTUAL SIZE OF THE RECORD (IN CHARACTERS) 
USED BY THE MOST RECENT EXECUTION OF THE I/O STATEMENT ASSOCIATED 
W I TH < I OSTATEMENT I DENT I F I ER > . 

<IOSTATEMENT IDENTIFIER) (PCROUTE) 

THIS PRIMARY RETURNS THE PATH NUMBER USED BY THE MOST RECENT 
EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
< I OSTATEMENT 1 DENT I F I ER > . 

<IOSTATEMENT IDENTIFIER) ( I OCW . ADDRES S ) 

THIS PRIMARY RETURNS THE LOWER 28 BITS OF THE IOCW USED BY THE MOST 
RECENT EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
< I OSTATEMENT I DENT I F I ER ) 

<IOSTATEMENT IDENTIFIER) ( I OCW . CONTROL ) 

THIS STATEMENT RETURNS THE UPPER 20 BITS OF THE IOCW USED BY THE 
MOST RECENT EXECUTION OF THE I/O STATEMENT ASSOCIATED WITH 
<IOSTATEMENT IDENTIFIER) . " 

Modify the syntax of I/O STATEMENTS on page 3-17 as follows: 
" SYNTAX : 

<I/0 STATEMENTS) ::= <I/0 STATEMENT) / 

* < I OSTATEMENT IDENTIFIER) * <I/0 STATEMENT) 
<I/0 STATEMENT) : ■ = BACKSPACE I/O STATEMENT) / 



Add the following to the examples on page 3-18: 

"15. *READPK* READ . . . ; " 

Add the following paragraph to the semantics on page 3-19: 

"THE EXECUTION OF AN < I /O STATEMENT) PRECEDED BY AN <IOSTATEMENT IDENTIFIER) ASSOCIATES THE 
<I/0 STATEMENT) WITH THE <IOSTATEMENT IDENTIFIER). THE <IOSTATEMENT IDENTIFIER) MAY BE 
REFERENCED AS A <PRIMARY> IN ORDER TO GET CERTAIN CHARACTERISTICS OF THE LAST EXECUTION OF 
THE <I/0 STATEMENT). THE <IOSTATEMENT IDENTIFIER) MAY BE USED IN A LOG STATEMENT IN ORDER 
TO LOG THE RESULTS OF THE LAST EXECUTION OF THE <I/0 STATEMENT)." 

Add the following to the right side of <DECLARATION> on page 4-2: 

'/ < I OSTATEMENT DECLARATION)" 

Add the following subsection to SECTION 4: 

"I OSTATEMENT DECLARATION 

SYNTAX : 



<IOSTATEMENT DECLARATION) ::= IOSTATEMENT <IOSTATEMENT IDENTIFIER) 
<IOSTATEMENT IDENTIFIER) ::= IDENTIFIER) 



EXAMPLE : 



IOSTATEMENT READPK; 
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SEMANTICS: 



AN <IOSTATEMENT DECLARATION DECLARES THE <IDENTIFIER> AS AN 
<IOSTATEMENT IDENTIFIER). IF ANY <I/0 STATEMENT> IS LABELED 
*< IOSTATEMENT IDENTIFIER>» , THE <IOSTATEMENT IDENTIFIER) MUST BE 
DECLARED. THE <IOSTATEMENT IDENTIFIER) MAY BE REFERENCED AS A 
<PRIMARY> OR IN A LOG STATEMENT." 

Add the following paragraph to the semantics for SUBROUTINE DECLARATION on page 4-10: 

"IOSTATEMENT IDENTIFIERS MAY BE PASSED TO SUBROUTINES ONLY AS 
CALL- BY-VALUE PARAMETERS. IF A PARAMETER OF A SUBROUTINE 
DECLARATION IS AN IOSTATEMENT IDENTIFIER, IT MUST BE DECLARED AS AN 
IOSTATEMENT IDENTIFIER WITHIN THE SUBROUTINE, AND AN I/O STATEMENT 
WITHIN THE SUBROUTINE MAY NOT BE LABELED WITH THIS IOSTATEMENT 
IDENTIFIER. FOR EXAMPLE, CONSIDER THE FOLLOWING PROGRAM: 

BUFFER A = 80 CHARACTERS; % 1 

VARIABLE CURMPX; % 2 

VARIABLE CURRES; % 3 

IOSTATEMENT READPK ; % 4 

SUBROUTINE WINGIT(LASTIO) ; % 5 

IOSTATEMENT LASTIO; <h 6 

BEGIN * 7 

SET CURMPX == LASTIO(MPXNO) ; % 8 

STATUS PK 67; % 9 

END; % 10 

FOR 5 DO % 1 1 

•READPK* READ PK 67 CYLINDER = 2 INTO BUFFER A; % 12 

CALL WING I T( READPK ) ; % 13 

SET CURRES = READPK ( RESULT ) ; % 14 

LOG RESULTS OF READPK; % 15 

"CURMPX" IS SET TO THE MULTIPLEXOR NUMBER OF THE FIFTH EXECUTION OF 
THE I/O STATEMENT AT LINE 12. "CURRES" IS SET TO THE ERROR FIELD 
OF THE RESULT DESCRIPTOR OF THE FIFTH EXECUTION OF THE SAME I/O 
STATEMENT. THE RESULTS OF THIS I/O STATEMENT ARE LOGGED AT LINE 
15. THE I/O STATEMENT AT LINE 9 MAY NOT BE LABELED BY THE 
IOSTATEMENT IDENTIFIER "LASTIO"." 
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SOFTWARE IMPROVEMENTS NOTE8 (P NOTES) 

SCR 

P1014 SCR - "TD830," DISKPACK "233" CORRECTIONS 

TD830 now returns CR only instead of CR-LF. 

SCR and MAT now can run on BX38S-DPK23S . 
PI 171 SCR - "VERIFY" DOES NOT RECOGNIZE "3N" DISK 

DISK VERIFY can now run on SN disk. 
PI 172 SCR - DEADLY EMBRACE 

A deadly embrace between SCR and CONTROLLER has been prevented. 
PI 173 SCR - ADDRESS CYLINDER "811" 

SCR can now address cylinder 811 on disk pack type 235. 
P1174 SCR - SERIAL NUMBER EXPANDED 

The SCR system serial number has been expanded from 3 to 4 digits. 
PI 175 SCR - "SCR" TEST "9" 

SCR Test 9 now works properly on disk pack type 235. 
PI 176 SCR - DEFAULT "VERSION" 

"$ VERSION ML.NN" now sets the version to "ML.NN.OOO". 
PI 177 SCR - BUFFER FILL CORRECTION 

Buffer fill of N"X" has been corrected. 

P1241 SCR - MAKE FILE CARD "FILETYPE=8" 

The file card (patch deck or symbol) is now made FILETYPE=8 at run time so that the file card 
can come from disk or disk pack by using a file-equation card. 

PI 242 SCR - RETURN SAVED MEMORY 

The system now returns saved memory when address is used in a buffer declaration. 
P1243 SCR - NO DECODE OF "RD=1FFFF" 

The system no longer decodes all bits on a result descriptor of 1FFFF (I/O timeout). 
PI 244 SCR - "NRZ" TAPES 

SCR MAKE TESTAPE now works correctly for 7- and 9-track NRZ tapes. 

PI 24 5 SCR - "SCR" "HI TESTAPE" MESSAGE 

An extra Cr (carriage return) in the MAKE TESTAPE response to a Hi message, which caused an 
overflow in ADM to line 1, has been removed. 

P1246 SCR - "TESTOP RD" ANALYSIS 

SCR now decodes TESTOP RD results correctly. 

PI 247 SCR - PACK UNIT SUBTYPE FIELD 

SCR disk pack unit subtype field has been corrected. SCR now allows I/O to greater than 
cylinder 405 for disk pack type 235. 

PI 25 1 SCR - "SCR MARKNO III" 

The SCR MARKNO is now III in SCR printouts. 

PI 252 SCR - "SCR" VS. FIRST ACTION 

When SCR got a "first action" result descriptor from a disk pack unit, it was possible for a 
dump by "IOERROR LEFT ON" and for all I/O's to the pack to hang. This has been corrected. 
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PI 307 SCR - ALLOW "SET, RESET, POP" OF "VOIDT" 

The system now allows SET, RESET and POP of VOIDT if MERGING is set. 
PI 764 SCR - "B6700/B7700" COMPATIBILITY 

The following changes have been made: 

1. B7700 commonality patches have been included. 

2. Magnetic tape unit type on error listings from magnetic tape confidence is now reported 
correctly. 

3. Result descriptor on error listings in all cases is now reported correctly. 

P2430 SCR - NEW HIGH ORDER PRIORITY SCHEME 

The priority of a process stack for acquiring a processor must often be raised above the normal 
visible priority range 0-99. The exalted priority is sometimes permanent, as for certain 
independent runners, MCS programs, and the like; for other stacks, the priority must be raised 
temporarily, as during a period that MCP global locks are held. (If a process cannot reacquire 
a processor to unlock some resource, many other processes can be starved of that resource.) 

The MCP keeps processor priority in a three-part field. The declared visible priority is in 
the middle, with fine priority (biasing towards I/O-bound tasks) at the low end and the 
special-case priorities in the high end. The management of this high-order field has been 
changed. 

Since the II. 8 release, the MCP has initialized this field, called PRIORCLASSF, to various 
values according to the type of process. Then the field was used as a counter, bumped up and 
down as the code PROCUREd and LIBERATEd events, etc. In the new scheme, the field is divided 
into several subfields which may be used orthogonally. The function of lock counting has been 
moved to a new word in the base of the stack; one bit in the priority field records the 
non-zero state of that counter. The field as a whole is called PRIORBIASF; the subfields are 
as f ol 1 ows : 

HIGHESTBIASF [47:1] Set for invisible independent runners. 
LOCKBIASF [46:1] Set if LOCKCOUNT is non-0; used for soft 

locks and similar resources. 
IRBIASF [45:2] Used for special independent runners, both 

visible and invisible. Among the former 

are AUTOBACKUP and DCCONTROL. 
MCSBIASF [42:2] Used for special user programs: an MCS gets 

2, a CPed non-MCS gets 1. 
DSEDBIASF [39:1] Used to accelerate a DSed process off the 

system, freeing any resources it has used. 
INTERACT I VEB I ASF [38:1] Set for a swap task currently in an 

interactive (not time-sliced) mode. 
JOBBIASF [37:1] Set for all WFL JOB stacks. 

(The fields have been described in the positive sense; the data are actually kept in 
ones-complemented form to utilize the LLLU operator.) 

In an additional change, any time PRESENCEBIT locks a descriptor, the LOCKCOUNT is incremented 
as though an event had been PROCURED. 

P9229 SCR - "ANABOLISM" VS "MAKEJOBFILE" 

It was possible to hang the system when starting a SCR, RES, RET or XD task. If a disk pack I/O 
error occurred at the same time INITIATE (who was called by ANABOLISM) called MAKEJOBFILE, 
ANABOLISM could hang waiting for a lock. This problem has been corrected. 

P92 8 5 SCR - TASK RESTRUCTURING 

The task and base-of-s t ack structures have been reorganized; many items were moved from the 
stack to the task. 

The changes were required for B6800 multiprocessor systems. They will also improve control and 
monitoring of swap jobs. Most interaction that previously was rejected for swap tasks is now 
processed normally. 
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DOCUMENT CHANGES NOTES (D NOTES) 
SCTABLEGEN 



D2 648 SCTABLEGEN - ADD RESERVED WORDS 

The following reserved words have been added: 

AT 

FROM 

GLOBAL=G 

D2681 SCTABLEGEN - NEW "ODT" OPTION " I OD I AGNOST I CS " 

A new ODT option, IODIAGNOSTICS , has been implemented. When set, it provides extensive error 
checking in the PHYSICALIO module's interface. Memory dumps are taken when errors are 
detected. When reset, no error checking is performed. This is option #36. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SCTABLEGEN 



P1015 SCTABLEGEN - ADD RESERVED WORDS TO DICTIONARY 

The following have been added to the dictionary of reserved words: 

GLOBAL 

GLO 

LOCAL 

LOC 

MCSNAME 

MCS 

PI 080 SCTABLEGEN - REMOVE UNUSED "TO" 

Since the following test options are no longer referenced in the MCP, they have been removed 
from the test option list in the CONTROLLER via SCTABLEGEN: 

RETENTION (0) 
RECONDUMP (11) 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

SORT 

P1016 SORT - "KANGAROO" 

Problems often occurred in handling the HISTORY and ABORTEDRCW of SORT jobs on multiprocessor 
and SWAPPER systems. This problem has been corrected. 

PI 7 10 SORT - SECURITY VIOLATION ON "SORT/ STATISTICS" 

A problem has been corrected where a security violation could occur if a non-privileged user 
created and then attempted to lock the SORT/ STAT I ST I CX file. 

P1711 SORT - "MERGE" VS. "SWAPPER" 

A MERGE being run in SWAPSPACE will no longer fail as a result of invalid memory addresses 
being returned in the stack subsequent to a swap-in. 

PI 854 SORT - ERROR FOR INSUFFICIENT CORE 

SORT would get an INVALID OP if (CORE SIZE)/ (RECORD SIZE) < 1 and disk size and number of tapes 
were zero. Now, SORT gives ERROR #3 when it is passed these parameters. 

P92 8 5 SORT - TASK RESTRUCTURING 

The task and base-of-s t ack structures have been reorganized; many items were moved from the 
s tack to the t ask . 

The changes were required for B6800 multiprocessor systems. They will also improve control and 
monitoring of swap jobs. Most interaction that previously was rejected for swap tasks is now 
processed normally. 
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SORTMCP 



D2943 SORTMCP 



"MCP" SYMBOLIC CONSOLIDATION 



The external procedures MAINTENANCE and SORT have been moved into the MCP symbolic. They 
no longer be separately compiled and bound; however, they can be changed using SEPCOMP. 
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SOURCENDL 



D2698 SOURCENDL - MESSAGE ORIENTED DATACOM "(BBSC)" 

SYMBOL/ SOURCENDL has been updated to include the line control and message request sets for use 
with the new message-oriented broadband bisync control (BBSC), together with sample terminal, 
station, line and DCP definitions. In addition, appropriate changes have been made in the 
other requests and controls to allow them to operate correctly in a message-oriented datacom 
system and make use of features like auditing, remote filemode output, and autonomous 
operation. However, since many sites may not require these new features at present and also to 
allow continued use of older versions of the NDL compiler, all these new statements are 
conditionally omitted or included in SOURCENDL as controlled by a dollarcard called "ENHANCED" 
at sequence number 00000040. The default state of ENHANCED is RESET, so that the new 
statements are omitted. 

D2699 SOURCENDL - "AUXLOGIC" REDUCES LOCAL MEMORY USAGE 

Since its implementation in II. 9 (see SOURCENDL note D1884), auxiliary logic usage has been 
available to reduce local memory requirements by placing parts or all of various request sets 
in main memory. The error recovery and "?" command processing portions of all requests in 
SYMBOL/ SOURCENDL have been moved into main memory by surrounding each section of code with 
"$SET AUXLOGIC=AUXCODE" . . . "JPOP AUXLOGIC". All usages of auxiliary logic in 
SYMBOL/SOURCENDL can be enabled/disabled by setting/resetting a single dollarcard option 
"AUXCODE" at sequence number 00000050. The default state of AUXCODE is SET. 

D2 700 SOURCENDL - AUTOMATIC RECALL OF OUTPUT MESSAGES 

Currently, output messages to a powered-down poll/select device are kept around almost forever, 
even though the station may not have responded to a select for hours. Besides using main 
memory and the DCP's time in an unnecessary manner, if one of the messages is CANDE's 
"TIMELIMIT ELAPSED" message, a further bad action occurs. CANDE waits for a response saying 
that the message was actually received (hours, if necessary). Then it recalls all messages for 
that station, discards any input, and resets everything associated with the station. The user 
usually learns of this when he turns on his terminal in the morning, enters his 
usercode/password, and suddenly receives half a dozen messages sent the night before, including 
a timelimit elapsed message which purges his input. That problem has been corrected by using 
the RETRY value to count the number of times a select is done with no response (terminal 
powered down) and then simulates a "?BRK" input to cause CANDE to recall all its outstanding 
output messages. 

D2701 SOURCENDL - IMPLEMENTATION OF "7BRK" FOR SCREENTTY 

CANDE now treats a BREAK condition on transmit as a signal to recall all outstanding output to 

the station or, if none, to discontinue the command it is executing and to proceed with the 

next one. The "7BRK" input is used in the POLLTD820 request as the signal from the user to 

simulate the break on transmit condition. This implementation adds that same abilitv to the 
READSCREENTTY request. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 

SOURCENDL 



P208 7 SOURCENDL - CORRECT SCROLLING ON "TD820/TD830" REQUESTS 

Two major problems have been corrected. First, when in scrolling mode with the POLLTD820 AND 
SELECTTD820 request sets, input and output which contain more than 80 characters (total, or 
between embedded carriage returns) will now be properly scrolled. Second, output whose length 
is an exact multiple of 80 characters will no longer be displayed with a blank line between 
each line of output. 

Numerous other changes and improvements have been made to the POLLTD820 and SELECTTD820 request 
sets in the process of implementing these corrections. Most important is the implementation of 
DCP paging, enabled by "?+P" and disabled by "?-P". (Note that a TD830 must be configured for 
DO programmatic mode control and must not automatically remain in receive mode if paging is to 
work correctly.) Paging is accomplished by dropping the terminal into LOCAL mode when the 
proper number of messages have been received to fill the display. Pressing the RCV (Receive) 
key allows the next page of information to be displayed. The page size and initial state of 
paging (enabled/disabled) is specified in the station definition. 

The other major change immediately apparent is that the request sets have been reformatted and 
rewritten to use alphanumeric labels and defines for all tallys and togs, thus making them much 
easier to read and understand. Other minor changes are: (1) transparent output is now really 
transparent (the line is not cleared first, (2) SKIP <n> carriage control now homes the cursor 
and then skips <n>-l lines down (without changing lines skipped over), and (3) NDL "?" command 
processing has been made more efficient. 

P208 8 SOURCENDL - CHANGES TO "POLLCONTENTION" LINE CONTROL 

As implemented, the POLLCONTENTION line control routine stays in contention mode only half a 
second, then exits to check if any queued output can be sent, and returns (still in contention 
mode) to wait another half second if it finds no queued output to send. There are two problems 
with this implementation. One, contention mode is exited frequently when it need not be; two, 
a station on a single-drop (or even multi-drop) line may sometimes see noise on the line and 
leave contention mode without the DCP being aware that it has. In the latter case, since the 
DCP is not polling the station, it is unable to transmit until contention mode is restored; 
therefore, the following changes have been made to POLLCONTENTION. As long as output is queued 
for some powered-up station on the previous poll/select cycle, contention mode is exited every 
150 milliseconds (giving faster response than the current value of 500 milliseconds). When no 
output is queued, however, contention mode will be exited every 30 seconds and the "go to 
contention" message will be reissued; thus, noise on the line cannot make a station unable to 
transmit for more than 30 seconds. 

P2089 SOURCENDL - PREVENT INFINITE LOOP 

When RJE terminals are attached to the B6700 dat acorn subsystem, they may get into infinite 
loops under some error conditions. Specifically, these conditions occur with synchronous 
modems with constant carriers if the terminal sends all zeroes on the line when it is not 
transmitting. This problem has been corrected. 

P2090 SOURCENDL - CHANGES TO "POLLD I SPLAYS" REQUEST 

Several problems in the POLLDISPLAYS request set have been corrected. The receive code to 
discard a sequence mode form was checking for US instead of for RS as its first character. If 
the form was not present and a control input were entered, no checking was done for "?BRK" . If 
"?BRK" were entered, it was being returned as an input message instead of being discarded. 
Finally, group polling was not implemented properly for receiving another message automatically 
after the ACK of the first one. 

P2091 SOURCENDL - CORRECT TRANSMISSION OF "NUL" CHARACTER 

A recent change to the SELECTTD800 request set (see II. 9 note P9303) allowed the NUL character 
to be transmitted rather than discarded; however, it should not be counted, since it is not a 
visible character. Counting the NUL leads to the cursor not being properly positioned in 
column one after the transmission. This problem has been corrected; now the NUL is transmitted 
without being counted. 

P2092 SOURCENDL - PREVENT RESET OF TALLY BIT 

In the RJE request set, the DLE padding control bit is no longer reset incorrectly. 
P2093 SOURCENDL - RECOGNIZE "ENQ" CORRECTLY 

SOURCENDL now handles DLE ENQ and ENQ correctly for RJE. 
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P2203 SOURCENDL - LINE "TOGS" AND "TALLYS" CLEARED 

The RJE request sets will now clear all line TOGS and TALLYS at disconnect time for switched, 
leased and direct connect lines. This change will eliminate the failure at log-on time of the 
terminal and subsequent host rejection of messages due to ARM character mismatch. 
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DOCUMENT CHANGES NOTES (D NOTES) 
STATSTOPPER 



D2912 STATSTOPPER - FILE NAMES, NEW MODES, FLAG SIGMA<DELTA 
The name (INTNAME and default TITLE) has been changed for two files manipulated by STATSTOPPER: 

1. The name of the input file of procedure names and numbers has been changed from COUNTS to 
STATNAMES. This file is generated by the compiler; the corresponding name change has been 
made in NEWP but not in ESPOL, so either the ESPOL file COUNTS or the STATSTOPPER file 
STATNAMES must be equated. 

2. The name of the intermediate file of statistical data has been changed from SRT to STATS. 
Two new modes of operation have been provided: 

1. If the TASKVALUE for STATSTOPPER is set odd, the program will produce only its first report 
(in order of procedure declaration); it will skip all sorting and the other five reports. 

2. If the file STATS is equated (NEWFILE=FALSE) , the program will not make any GETSTATUS calls 
to shut off statistics; instead it will read the STATS file produced by an earlier run of 
STATSTOPPER and generate the reports from those data. 

In the first report, any line on which the total DELTA time exceeds the total SIGMA time will 
be flagged "** S<D". This anomaly should not occur if the statistics mechanism is working 
proper 1 y . 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
STATSTOPPER 



P2220 STATSTOPPER - OUTPUT FORMATTING 

The output format has been changed so that longer statistics runs may be made without 
overflowing the format. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SUSPENDER 

PI 890 SUSPENDER - MULTIPROCESSOR SYSTEM "SUSPENDER" 

SUSPENDER now runs on a B6800 Multiprocessor system as well as a monolith. SUSPENDER will 
control thrashing in a 86800 Multiprocessor system on a box-by-box basis. The output format 
used by SUSPENDER when the PRINT or MONITOR option is set is slightly different. The action 
format is now as follows: 

<box no. where action occurred) <action> <mix no. that action affected> 

The rest of SUSPENDER'S output remains unchanged in format. 

SUSPENDER will not monitor nor attempt to control the mix in GLOBAL on a B6800 Multiprocessor 
(Tightly-Coupled) system. 
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DOCUMENT CHANGES NOTES (D NOTES) 
UDSTRUCTURE TABLE 



D2 505 UDSTRCTTAB - ACCESSCODE 

Two nodes have been added to the USERDATAFILE. The "ACCESSCODELIST" is a list of accesscodes 
with optional crunched passwords. "ACCESSCODENEEDED" is a bit which may be set to require an 
accesscode whenever a user logs onto CANDE or RJE. 

D2 801 UDSTRCTTAB - RECOMP I LAT I ON OF "UDSTRUCTURETABLE" 

The example shown on Page 9-2-12 of the B7000/B6000 System Software Operational Guide (Form No. 
5001688-2) for recomp i 1 a t i on of the UDSTRUCTURETABLE is incorrect. The following example 
should replace the example given: 

<i> BEGIN JOB; 

COMPILE SEP/UDSTRUCTURETABLE WITH USERSTRUCTURE TO LIBRARY; 

COMPILER FILE CARD=SYMBOL/UDSTRUCTURE ON DISK; 
<i> BIND NEW/INTRINSICS WITH BINDER TO LIBRARY; 

COMPILER DATA 

HOST IS SYSTEM/INTRINSICS; 

BIND UDSTRUCTURETABLE FROM SEP/= ; 
<i> END JOB 

D2892 UDSTRCTTAB - "SYSTEMUSER" BIT 

Bit 45 in node 1 is now designated the SYSTEMUSER bit for distributed processing. When this 
bit is set in the usercode entry, it designates the usercode as one associated with inter-host 
system communications (i.e., non-user comraun i ca t ins ) . This bit may be interrogated using the 
locater SYSTEMUSER, as follows: 

MAKEUSER Syntax: 

MU SYSTEMUSER — | 

- + 



Sample USERDATA Interface: 

ARRAY ENTRY[0:255] ; 

REAL UDRSLT; 

<assume array entry already contains the usercode entry> 

UDRSLT := USERDATA( ,0,USERDATALOCATER( "SYSTEMUSER" ) ,0, ENTRY) ; 

IF BOOLEAN (UDRSLT) . [46 : 1 ] THEN 

<usercode in entry is a system usercode> 

ELSE 

<usercode in entry is a normal (non-system) usercodo 
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USERSTRUCTURE COMPILER 



D2506 USERSTRUCT - ACCESSCODE 



A new type of typed node has been added to the USERDATASTRUCTURE, the ACCPSW LIST (node type 
25), for storing accesscodes and passwords. The passwords are crunched, using the same 
procedure used to crunch usercode passwords. The accesscode/password combination is treated 
like a file name, consisting of either one name (an accesscode with no password), or as a name, 
a slash, and a 6-character crunched password: 

ACCESS/"??????" . 
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DOCUMENT CHANGES NOTES (D NOTES) 
WORK FLOW LANGUAGE 



D27 3 3 WFL - FLEXIBILITY IN "REMOVE, CHANGE" STATEMENTS 

The following changes have been made to the syntax for the WFL REMOVE and CHANGE statements, to 
provide increased flexibility: 

1. Familynames may now be used as names for individual volumes. For example: 

REMOVE X FROM PACK(KIND=DISK) ; 

2. The KIND attribute may be specified for any volume name. If KIND is not specified, the WFL 
compiler will use the following default values: 

Volume Name Default Kind 



DISK DISK 

PACK PACK 

<other> TAPE 

3. Remove and Change statements now allow SERIALNO specifications. 

4. INTERCHANGE and SERIALNO attributes may be specified on all DISK and PACK families. 
D2 741 WFL - ACCESSCODE 

The only part of this discussion which will apply to pre-II.9 WFL is the ACCESSCODE task 
a t t r ibut e . 

An accesscode may be applied to a job or task. If no accesscode is supplied for a task, it 
will inherit the job's accesscode. 



— ACCESSCODE 

I 

|- = — <accesscode> 

I 

|- / — <password>- 

"ACCESSCODE" specifies that the job (or task) has no accesscode. 

"ACCESSCODE=<acces scode>" specifies the accesscode for the job (or task). The 
accesscode/password will be validated in the USERDATAFILE. 

WFL will understand the ACCESSCODE task attribute whenever it is supplied with a task, as 
described for CANDE. Supplying an accesscode for a task does not change the job's accesscode. 

The accesscode password will be suppressed in the job summary printout. 

The "SECURITY" WFL statement will accept "CONTROLLED <filename>". 

A new executable statement has been added to WFL so that the password on the current accesscode 
of the job may be changed. 

— ACCESS — PASSWORD — = — <new password> — | 

At the time this statement is executed, the job must have a usercode and a valid accesscode. 
The password for the current accesscode is changed to <new password>. 

D27 5 2 WFL - NEW COMPILER NAMES 

The following compiler names should be added to the <compiler name list> on page 8-9 of the 
Work Flow Language Reference Manual (Form No. 5001555): 

COBOL74 

LCOBOL 

NEWP 
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D2793 WFL - "OF <HOSTNAME> " RECOGNIZED IN FILE TITLES 

WFL now recognizes "OF <hostname>" (as well as "ON <packname>") in file titles for use with 

Shared Resource systems and Burroughs Network Architecture. If both "ON <packname>" and "OF 

<hostname>" occur, "OF <hostname>" must occur last. The following is an example of a valid 
file title: 

ABC ON PACK2 OF HOST2 

D2894 WFL - "WFL" MANUAL CORRECTIONS 

The following corrections should be made to the Work Flow Language Reference Manual (Form No. 

5001555): 

1. The note on page 6-9 of the WFL manual should be changed to read as follows: 

NOTE 

For the II. 9, III.O and III.l System 
Releases, <serial number> must be a constant. 

2. The following note should be added to page 7-1 of the WFL manual, after the railroad diagram 
for the <"single" file title>: 

NOTE 

For the II. 9, III.O and III.l System 
Releases, the <"single" file title> has 
NOT been implemented. 

3. The note on page 7-2 of the WFL manual should be changed to read as follows: 

NOTE 

For the II. 9, III.O and III.l System 
Releases, the <"improved" file title Iist> 
has NOT been implemented. 

4. The following note appears on pages 8-8, 8-15, 8-33 and 8-41 of the WFL manual: 

NOTE 

For the II. 9 System Release, the 

<" improved" file title 1 i s t > has NOT been 

imp 1 emen t ed . 

On pages 8-8, 8-15 and 8-33, the note should be changed to read as follows: 

NOTE 

For the II. 9, III.O and III.l System 
Releases, the <"improved" file title list> 
and <"single" file title> have NOT been 

imp 1 emen t ed . 

On page 8-41, the note should read as follows: 

NOTE 

For the II. 9, III.O and III.l System 
Releases, the <"improved" file title list>, 
<"single" file title>, and <"old" file name 
list> have NOT been implemented. One 
single-level file name must be used, as 
shown in the examples above. 

D2895 WFL - FILE ATTRIBUTE "SERIALNO" NOT IMPLEMENTED 

The following note should be added to page 4-8 of the Work Flow Language Manual (Form No. 
5001555), after the railroad diagram: 

NOTE 

For the II. 9, III.O and III.l System 
Releases, the ability to the use file 
attribute SERIALNO as a string primary 
has NOT been implemented. 
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D2896 WFL - CHANGE FILENAME USING "(PACK)" 

Previously, an attempt to change a filename using a "(PACK)" specification would not change the 

filename. In addition, no error message or warning would be displayed to indicate that the 

filename was not changed. If the "(PACK)" specification were removed, the filename would be 
changed . 

WFL will now change filenames when the (PACK) specification is included. 

D2924 WFL - VARIABLE NOT USER AND SYSTEM DEFINED 

On page 3-2 of the Work Flow Language Reference Manual (Form No. 5001555), the following 
paragraph should be added: 

"System attributes and mnemonics (e.g., "DISK") may be redefined by the user within a WFL 
job. When this is done, the system's definition for that variable is not valid in the job. 
For example, if F is a <file id>, then the following is not valid: 

STRING DISK; 
DISK —"PRINTER"; 
F(KIND=DISK); 
F(KIND=#DISK) ; 

"DISK" must only be used as DISK or "PRINTER"." 

On page 4-11, the following should be omitted: 

"F(KIND=DISK) yields KIND=DISK". 

D2925 WFL - "WFL" JOB TRANSFER TO/FROM REMOTE HOST 

WFL jobs may now be sent from one host to another, using an "AT <hostname>" between the invalid 
character and the "BEGIN JOB" on the first card. The following example will send the job to 
HOSTC : 

?AT HOSTC BEGIN JOB X; 

?END JOB 

The WFL compiler at the receiving host system compiles the job; the sending host does not 
analyze the contents of the job (except for the ?END JOB). 

D2926 WFL - COPY FILES TO REMOTE HOSTS 

The file attribute "HOSTNAME=<hos t name> " will cause a specified file to be copied to the 
specified host via the COPY statement. 

Ex amp I e : 

COPY ABC FROM BLUE(KIND=PACK, HOSTNAME=HOSTA ) TO RED 
KIND=PACK, HOSTNAME=HOSTB) 

The above example will transfer file "ABC" from the BLUE pack on HOSTA to the RED pack on 
HOSTB. 

The COPY statement will only transfer files from Post-II.9 WFL jobs; "old" WFL jobs containing 
the HOSTNAME attribute will get a syntax error. 

D2931 WFL - TASK ID IN TASK FAMILY DECLARATION 

The following information should be added to the Work Flow Language Reference Manual (Form No. 
5001555): 

On page 3-2, add a new paragraph after the second paragraph, as follows: 

"File and task attributes in a file or task declaration may only be assigned constant 
values." 

On page 6-4, add the following sentence to the first paragraph: 

"Attribute values in <task declaration statements must be constants or constant 
express ions . " 

On page 6-8, add the following sentence to the first paragraph: 

"Attribute values in <file declaration> statements must be constants or constant 
express ions . " 
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D2932 WFL - "STATUS" ATTRIBUTE 



The following should be added at the end of the STATUS task attribute description on page B-6 
of the Work Flow Language Manual (Form No. 5001555): 

"The STATUS task attribute may be set in a task declaration statement, but may not be used 
in the task equation list of a task initiation. Thus, in the following jobs, job (1) is 
valid and job (2) is not valid: 

(1) 100 7BEGIN JOB STEST; (2) 100 7BEGIN JOB STEST2 • 

200 TASK T(STATUS=NEVERUSED) ; 200 TASK T- 
300 RUN X[T] ; 300 RUN X[f ] ; 

400 7ENDJOB. 400 STATUS =NEVERUS ED ■ 

500 7 END JOB. " 

Job (2) will now get a syntax error on line 400. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
WORK FLOW LANGUAGE 



P1830 WFL - PREVENT "SEG ARRAY" ERROR WHEN JOB RESTARTS 

A SEG ARRAY error will no longer occur when a job is restarted in a subroutine with parameters. 

PI 873 WFL - INCORRECT CODE FOR FILE TITLE ASSIGNMENTS 

A problem has been corrected whereby some dynamic file titles could cause incorrect code to be 
generated for a subsequent file title assignment. This could cause a FAULT IN DO CODE system 
dump. The following is an example of the kind of job for which incorrect code was generated: 

<i>BEGIN JOB X; 

FILE GRDTST; 

STRING STR; 

STR :="C"; 

IF FILE A/B/#STR IS RESIDENT THEN; 

CRDTST(TITLE=CARDTEST) ; 
< i >END JOB 

PI 87 5 WFL - CONCATENATION OF MORE THAN "15" STRINGS 

WFL will no longer generate incorrect code for concatenation of more than fifteen string 
express ions . 

P2001 WFL - ZIP WITH ARRAY 

A zip with a long array will no longer result in a SEG ARRAY error in the WFL compiler. 

P2002 WFL - ZIP WITH ARRAY 

Previously, a zip with a long array could result in a MSG SIZE error in the WFL compiler. WFL 
will no longer generate the MSG SIZE error. 

P2007 WFL - "REMOVE" COMMAND 

Previously, an attempt to remove a file from a named pack using a (PACK) or (KIND=PACK) 

specification would not remove the file. In addition, no error message or warning would be 

displayed to indicate that the file was not removed. If the (PACK) or (KIND=PACK) 

specification was taken out of the statement, the file would be removed. 

Ex amp I e : 

REMOVE X FROM ARK(PACK) would not remove file X 
REMOVE X FROM ARK would remove file X 

WFL will now remove files from named packs when the (PACK) or (KIND=PACK) specifications are 
used . 

P2008 WFL - "ELSE" NO LONGER IGNORED 

Previously, if a REMOVE, CHANGE, SECURITY, START or RERUN statement appeared in the THEN 
portion of an IF-THEN-ELSE statement, the ELSE portion of the statement would be executed 
unconditionally unless a semicolon appeared immediately before the ELSE. 

Ex amp 1 e : 

IF X THEN REMOVE TEST1 ELSE DISPLAY "TEST1 NOT REMOVED"; 

If X is true, TEST1 would be removed and the message would appear (erroneously). If X is 
false, the message would be displayed. 

WFL will no longer incorrectly execute both parts of the conditional. 

P2077 WFL - EXTRA "BEGIN" IN "WFL" JOB DECK 

An extra BEGIN at the end of a 7BEGIN JOB card caused the WFL compiler to loop and print error 
mes sages . 

The following sample job headings would all cause the looping to occur: 

7BEGIN JOB X; CLASS=IO; BEGIN 
7BEGIN JOB B; USER=XYZ; BEGIN 
7BEGIN JOB K; BEGIN 

The WFL compiler would display "MISSING END JOB CARD", the "7BEGIN JOB" card and the message 
"COMPILATION ABORTED". It would then attempt to compile the job again. 

The WFL compiler will no longer loop under these circumstances. 
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P2116 WFL - "BCL" JOBFILE LIBRARY PROBLEM 



WFL jobs that contain a BCL data deck, and were compiled with NEWSOURCE (or LIBRARY for 
pre-II.9 WFL), would not run correctly when reexecuted using the START WFL statement. This 
problem has been corrected. 

P2117 WFL - AMBIGUOUS "COPY" STATEMENTS 

Syntax errors will now be generated for ambiguous COPY AS statements. Examples of such 
ambiguities include the following: 

COPY A/= AS B 
COPY A AS B/= 
COPY = AS = 

P2118 WFL - ZIP WITH ARRAY LOOPING 

The WFL compiler no longer gets into an infinite loop when the following conditions are true: 
(1) the job is a zipped array, (2) the job card gets a syntax error, (3) and there are no other 
statements to be compiled or an END JOB card is not seen. 

P2119 WFL - INSTRUCTION BLOCKS 

WFL will no longer get an INVALID INDEX on large: INSTRUCTION blocks within a WFL job. 
P2120 WFL - HISTORY 

The following task attributes will now return the proper fields of the history word: 

HISTORYTYPE 

HISTORYREASON 

HISTORYCAUSE 

P2121 WFL - "WFL" FAULT IN ERROR HANDLING PROCEDURE 

WFL will no longer get an INVALID INDEX on extraneous blank cards after the END JOB card. 
P2122 WFL - RESERVED WORDS AS FAMILYNAMES 

WFL will now allow reserved words as family names. 

P2123 WFL - "SEG ARRAY" IN JOB STACK 

WFL will no longer cause a job stack to get a SEG ARRAY error because a string constant in a 
RUN statement was improperly reused. 

P2124 WFL - DECIMAL NUMBER 

WFL will now correctly handle decimal numbers that are preceded only by a decimal point. 

Ex amp 1 e : 

X + .5 

P2125 WFL - FAULT ON BAD TASK ATTRIBUTE 

WFL will no longer generate a "BAD TASK ATTRIBUTE" error message on COMPILE TO LIBRARY AND GO. 
The bad task attribute would appear on a subsequent running of the object file. 

P2126 WFL - CHARGECODE VS. "DECK" STATEMENT 

Charge code is now allowed with DECK statements. 

P2175 WFL - CHARGECODE VS. ONE STATEMENT "ODT" JOB 

Chargecodes will now be allowed on one statement ODT jobs in pre-II.9 WFL. 

P2464 WFL - WFL "BEGIN; JOB" CORRECTION 

The WFL compiler will no longer loop when it encounters a job card of the following type. 

■'BEGIN; JOB 

Instead, it will display the message: 

"ILLEGAL JOB CARD" 
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P2 471 WFL - "COMPILATION ABORTED" NOT TRUNCATED 

Previously, the following message would be truncated on a remote terminal after "ABOR" : 
"•••ERROR LIMIT EXCEEDED, COMPILATION ABORTED* ***• " 

Now, the message will be displayed in its entirety. 

P2509 WFL - ELIMINATE RECURSIVE HANDLING OF QUOTES 

WFL will no longer handle missing quotes recursively, as this led to problems when WFL kept 
looking for the second quote even after it passed a record boundary. 

P25 10 WFL - "COMPILE" STATEMENT WITHOUT COMPILER NAME 

Previously, when WFL encountered a COMPILE statement with no compiler name, it would continue 
reading cards as if they were WFL statements. If a DATA statement preceded by a compiler name 
(e.g., "ALGOL DATA") followed after the COMPILE statement, it was not recognized, so that the 
data deck was also read as WFL statements. 

WFL will now give the correct syntax error for a missing compiler name, and will correctly 
handle data decks after that point. 
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MARK 3 . 1 
DOCUMENT CHANGES NOTES (D NOTES) 



XREF ANALYZER 



D2 89 8 XREFANALY - CHANGE HEADING 



The XREFANALYZER will 
software level, "ccc" 



now print its 
is the cycle, 



own 
and 



version 
"PPP" ' 



in the form " 1 1 . ccc . ppp" , where 
i the most recent patch number. 



II" 



the 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
XREF ANALYZER 



PI 556 XREFANALY - MORE INFORMATION IN "REF" FILE 

Information about the procedure context in which a sequence numbers occurs has been appended to 
the REFs file. 

P2206 XREFANALY - PORT AND SIGNAL ARRAYS 

The INTERACT I VEXREF will now give information on port arrays and signal arrays. 

P9193 XREFANALY - MEMORY REQUIREMENTS 

All calls on system SORT will be disk sorts; no core-only sorts will be attempted. This 
corrects a problem which caused XREFANALYZER to ask for a large block of continuous memory 

words . J 
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DOCUMENT CHANGES NOTES (D NOTES) 
SYSTEST - DCP/MAINTMCS 



D2890 MAINTMCS - EXTENSION TO "ADAPTER ADDRESS" 

The patch mark for this note is 31.195.002. 

ADAPTER ADDRESS (AA) syntax for DCP test execution has been extended to optionally allow line 
adapter position within a cluster to be specified. The value of the line adapter position may 
range from to 15. If this optional parameter is omitted, position is assumed. The 
extended syntax is intended for use in Cluster III tests (and is ignored by those tests which 
do not require this information). Both of the following examples specify line adapter position 
of front end control 1 of basic control 2 of DCP2 : 

<mix no>SM DCPTEST DCP 3, TEST (AA2: 1:0)4-5 
<mix no>SM DCPTEST DCP 3, TEST (AA 2:1)3-8 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - DCP/MAINTMCS 



P2370 MAINTMCS - ERROR MESSAGE DISPLAYS CORRECT LENGTH TOKEN 

The patch mark for this note is 31.195.001. 

Certain erroneous syntax within a DCPTEST list of tests following a left parenthesis failed to 
display the error token. The token is now displayed correctly. 
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PI 832 DOCUMENTOR - UPDATE DOCUMENT PRINTER FOR "GMM" FILES 

After adding "GMM" to the tables, the document program printed "BIC" in the directory. This 
problem has been corrected. 

PI 833 DOCUMENTOR - MODIFIED MARK # IN DIRECTORY PRINT FILE 

Previously, the mark # printing was a define of a real #; now, it is a define to the compiler 
(20). 

P2069 DOCUMENTOR - REMOVE "PROGRAMDOC" FROM EXCLUDED GROUP 

SYMTEST/GMM/PROGRAMDOC has been removed from the EXCLUDEd group. 

P262 9 DOCUMENTOR - MISCELLANEOUS CHANGES 

1. DOCUMENTOR would DS when it processed a symbolic without documentation which was not 
explicitly excluded. Now, DOCUMENTOR skips the symbolic and continues with the next one. 

2. If DOCUMENTOR calls PROGRAMDUMP, it now prints files as well as arrays. 



B7700/B6700 MARK 3.1 RELEASE 21 AUGUST 1979 SYSTEST - DOCUMENTOR 



PAGE 4 3 6 
MARK 3 . 1 



SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - 10/ I OP 



P2490 IOIOP - TAPE DENSITY 
To test 1600/62S0 tape units, enter the following from the ODT: 

SN MT <unit #> <serial #> (<tape density;.) 
The tape density, 1600 or 6250, selects the mode of operation. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - IO/IOTEST 



P2 630 IOTEST - INCLUDE "PK" AS UNITTYPE 
IOTEST may be run for packs; therefore, PK may be included as unittype. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - OFF/MPX 



PI 836 MPX - "TD850" REVISIONS 

The following changes have been made in handling TD850s : 

A delay has been added to subsequent ODT writes such that the TD850s will be in a READY state 
prior to the next WRITE operation. 

The capability has been added to recognize status change interrupts during the PRESENTCOLDSTART 
interrupt handling procedure to prevent loops under certain status change conditions. 

The "ETX" character has been added at the end of ODT write data to ensure proper operations 
wi th TD830/850S . 

The memory addresses for non-save identifiers have been changed to prevent sequence errors. 
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P1837 PEP - "TD8 50" TEST RUNS WITH NO READ BACK 

When the device specified is a "SC2" and the option selected is "write only", a timer has been 
added to allow the TD850 to accomplish this. 

When the device specisied is a "SC2" and the option selected if "write with read back", the 
"XMT" key may be depressed only after "RECEIVING" has been flashed three times on the 
respective ODT and before the next three "RECEIVING" appear. 

P2621 PEP - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK11 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKXD 



P2619 PKXD - MISCELLANEOUS CHANGES 
PKXD has been modified, as follows: 

1. It now runs for all disk pack types. 

2. The interval of the XDed area to test has been corrected. 

3. Now the address portion of the record read is compared to the address portion of the record 
written. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK04 



P262 1 PK04 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK1 1 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK06 



P2621 PK06 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 21S and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK1 1 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK07 



P2621 PK07 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK1I 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK08 



P2 621 PK08 - TEST RESTRICTED TO PACK TYPES 
The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PKU 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK09 



P2 621 PK09 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 21S and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 
PK11 
PK10 
PK09 
PK08 
PK07 
PK06 
PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK10 



P2621 PK10 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK1 1 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK11 



P262! PK11 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK11 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK15 



P2621 PK15 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 223 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK1I 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PK16 



P262 1 PK16 - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK1 1 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKSCAN 



P2072 PKSCAN - LOGGING AUTOCORRECT I ON "RD" 

PKSCAN now correctly logs results to CHECKP and READPU. 
P2616 PKSCAN - CHECKING FOR USED SPARE SECTORS 

Checking for used spare sectors is now done only for old firmware. 

P2617 PKSCAN - LOG ERROR FOR "AUTOCORRECT" 

If AUTOCORRECT is set and an I/O gets an error, it is printed saying that the RD should be 
"C01". If the error is corrected (i.e., RD="C01"), the message is no longer printed. 

P2618 PKSCAN - "PKSCAN" FOR WRITE DISABLED PACKS 

Since PKSCAN does not do WRITEs to pack, wr i t e-di sabl ed packs may now be scanned. 
P2620 PKSCAN - WORK WITH ALL PACK TYPES 

The PKSCAN utility now works with all types of disk packs. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKSEEK 



P26 31 PKSEEK - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX38S, the program would give 
the following erroneous error message: 

">>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#> , <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanin for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/385" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKBASIC 



P2631 PKBASIC - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX385, the program would give 
the following erroneous error message: 

">>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#> , <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanin for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/385" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/SUPERIV 



P2076 SUPERIV - "SUPERIV" CORRECTIONS 

1. SUPERIV will now detect whether the 2.0 or 1.5 firmware is running. If the 2.0 firmware is 
running the firmware itself will do the head positioning; thus, SUPERIV will not run extra 
verification cycles. 

2. The VIA construct handling has been modified so that it will not expend excessive processor 
time. It is suggested that a nonexistent IOM (e.g., 4) be specified when asked to input the 
IOM number to bypass the VIA mechanism. 

3. The message asking for "MPX#" has been modified to ask for "MPX# OR IOM#" . 

4. The value of is now permitted as a legal IOM number. The maximum value permitted is still 
4, since IOMs are not numbered above 3; this maintains compatibility with the B 6800/B 6700. 

5. When asked to "SET HEADS CENTER <1 OR 2>", the reply should be "VALUE 2". The value of 1 is 
used for an earlier model controller when intervention was necessary to manually offset the 
heads for t es t i ng . 

P2621 SUPERIV - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR function) 

SUPERIV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK11 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKHDOVER 



P2 631 PKHDOVER - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX385, the program would give 
the following erroneous error message: 

">>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#>, <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanin for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/385 " 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKINTERCH 



P263 1 PKINTERCH - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX385, the program would give 
the following erroneous error message: 

">>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#> , <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanin for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/385 " 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKACTUATOR 



P2631 PKACTUATOR - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX385, the program would give 
the following erroneous error message: 

' >>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#> , <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanin for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/385" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKHEADISOL 



P263 1 PKHEADISOL - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX385, the program would give 
the following erroneous error message: 

">>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#> , <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanm for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/38S" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - SCR/PKWRITEREAD 



P2631 PKWR1TEREAD - DISK PACK CONTROLLER ERROR MESSAGE 

Previously, if the disk pack controller was not a BX380, BX383 or BX38S, the program would give 
the following erroneous error message: 

">>>ERROR<<< UNIT <#> NOT OF PACK TYPE 
>>>ERROR<<< UNIT <#> INVALID 
TYPE CONTROL BX<ctype> UNIT TYPE <utype>" 

where <#> , <ctype>, <utype> are numbers. In particular, <ctype> would be the result of doing a 
scanin for controller type, not the BX number. 

Now, the program prints the following error message: 

">>>ERROR<<< CONTROLLER TYPE FOR UNIT <#> IS NOT BX380/383/385" 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - UTIL/PKTEST 



P2073 PKTEST - REMOTE USAGE OF "SPOTAB" OPTION 

Executing PKTEST via remote terminals, the input "AX SPOTAB" will now show the display every 
time it is transmitted. File CON must be 1 abe 1 -equa t ed prior to execution. 

P2074 PKTEST - "TAB" OPTION CAUSING "INVALID INDEX" 

The use of the TAB option will no longer produce an erroneous INVALID INDEX. 
P2 07 5 PKTEST - DIRECT "I/O" HANDLING 

PKTEST now reports all failing direct I/O result descriptors which occur during execution. 
P2 62 1 PKTEST - TEST RESTRICTED TO PACK TYPES 

The following tests (or utilities) have been restricted to 215 and 225 packs only: 

IV (SCR funct ion) 

SUPER IV 

PK15 

PEP 

The following tests (or utilities) have been restricted to 215, 225 and 235 packs only: 

PKTEST 

PK16 

PK11 

PK10 

PK09 

PK08 

PK07 

PK06 

PK04 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - GMM/EVENTS 



PI834 EVENTS - TEST "309" FAILED WITH "GSC" ABSENT 

Test 309 had a GSC option. If GSC were not present, the test would fail because the MCP selec 
did not get the scan bits off the 68-GMM interface. This problem has been corrected. 
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DOCUMENT CHANGES NOTES (D NOTES) 
SYSTEST - GMM/FLIPFLOPS 



D2977 FLIPFLOPS - ERROR MESSAGES IN HEX 

Previously, scan in/out information was printed as a string of bits. Now, it will be done in 
hex . 
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DOCUMENT CHANGES NOTES (D NOTES) 
SYSTEST - GMM/ FUNCTIONAL 



D2976 FUNCTIONAL - DELETED "MISSING PORT" MESSAGE 

Because most * GLOBAL tm Memory systems have one or more ports absent, the "MISSING PORT" 
message will no longer be printed. 

* "GLOBAL Memory" is a trademark of Burroughs Corporation. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - GMM/MEMTEST 



P2 07 1 MEMTEST - STOP PAGING WHILE LOOPING 
The system will now ignore ODT paging option if looping. 
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DOCUMENT CHANGES NOTES (D NOTES) 
SYSTEST - GMM/ INTERPRETER 



D2 97 5 INTERPRETER - INTERRUPT ERROR HANDLING 
The following changes have been made to the handling of hardware interrupts: 

1. The printing of hardware interrupt error messages has been modified. 

2. Tests have been added for EMNT and EVNT FFs while in SNAP compare mode. 

3. Previously, the program terminated after hardware interrupts; now, it stays in the mix. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - GMM/ INTERPRETER 



PI 83 5 INTERPRETER - "SNAP" COMPARE MODE 

Priority resolution, which caused problems on SNAP compare when the mu 1 t i -cabi ne t adapter was 
missing, has been corrected. 

P2070 INTERPRETER - PRINT LAST AND CURRENT RECORDS 

The following changes have been made: 

1. The format of the GMM page dump has been changed from 64 half-pages to 32 full pages- pages 
in the printout now match the display pages. 

2. Last and current snap records are printed when snap compare errors occur. 

3. Miscellaneous changes have been made. 
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MARK 3 . 1 
SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYaTEST - DCP/BBSC 



PI 839 BBSC - CORRECT "ASCII" CHARACTER DEFINES 

The ASCII control character defines for WAC and RVT were incorrect, which caused test 26 to 
fail. T\ i s only had an effect if the dollar option ASCII were SET. This has been corrected. 

P2368 BBSC - REPLACE "$POP LIST," ALLOW "SSET LIST" 

The patch mark for this note is 31.195.0002. 

When LIST is set during compilation, the printout stops at line 25601600 due to "SRESET LIST" 
in the symbolic. The matching "$POP LIST" at line 25602000 was omitted due to the dollar sign 
being in column 1 instead of column 2. This problem has been corrected. 
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SOFTWARE IMPROVEMENTS NOTES (P NOTES) 
SYSTEST - DCP/AUTONBBSC 



PI 839 AUTONBBSC - CORRECT "ASCII" CHARACTER DEFINES 

The ASCII control character defines for WAC and RVT were incorrect, which caused test 26 t' 
fail. This only had an effect if the dollar option ASCII were SET. This has been corrected. 

P2368 AUTONBBSC - REPLACE "SPOP LIST," ALLOW SSET LIST" 

The patch mark for this note is 31.195.0002. 

When LIST is set during compilation, the printout stops at line 25601600 due to "SRESET LIST" 
in the symbolic. The matching "SPOP LIST" at line 25602000 was omitted due to the dollar sign 
being in column 1 instead of column 2. This problem has been corrected. 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE PATCH 



0060 

0060 

0060 

0060 

0060 

0060 

0060 

0113 

0113 

01 13 

0113 

0113 

01 13 

0113 

0114 

01 14 

01 14 

01 14 

01 14 

0114 

0114 

01 14 

01 14 

0114 

0114 

01 14 

01 14 

01 14 

01 14 

01 14 

0114 

0114 

0116 

0116 

0116 

0120 

0120 

0120- 

0120 

0120- 

0120- 

0120- 

0121- 

0121- 

0121- 

0122- 

0122- 

0122- 

0122- 

0122- 

0122- 

0122- 

0122- 

0125- 

0125- 

0125- 

0125- 

0125- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128- 

0128 

0128 

0128 

0128- 

0128 

0128 

012 8 



7145 
7152 
7152 
7152 
-7155 
7155 
7156 
0819 
-0819 
-0819 
-0879 
-0882 
-0885 
-0896 
-0377 
-0385 
-1001 
-1001 
-1001 
-1001 
-1004 
-1026 
-1040 
-1042 
-1046 
-1046 
-1046 
-1046 
-2001 
•2004 
•2004 
-3106 
-0106 
-01 12 
-0118 
-0170 
0184 
•0191 
-0197 
-0207 
0207 
0215 
0187 
0187 
0187 
5013 
5026 
5037 
5040 
5043 
5046 
5048 
5051 
0222 
0223 
0228 
0228 
0241 
0358 
0389 
0389 
0390 
0397 
0399 
0399 
0410 
0421 
0436 
0441 
0479 
0487 
0492 
0493 
0497 
0501 
0504 
0505 
0506 
0522 
0523 
0523 
0524 



D2860 

D2267 

D2267 

D2267 

P2357 

P235 7 

P1921 

P2302 

P2302 

P2302 

D2815 

P1516 

D2815 

P1662 

P2591 

P1081 

P9146 

P9146 

P9146 

P9146 

P2238 

P1244 

P1760 

P1516 

D2623 

D2623 

D2623 

D2623 

P2289 

D2841 

D2841 

P2624 

P1073 

PI 193 

P2583 

D2249 

D2778 

P1767 

P2007 

P2252 

P2252 

P2062 

P2237 

P2237 

P2237 

P1850 

P1898 

P1715 

PI 5 16 

P1709 

P1765 

P1734 

P1516 

P2464 

P1733 

P2358 

P2358 

P1794 

P9162 

P9024 

P9024 

P1217 

PI 129 

P9150 

P9150 

P9153 

D2765 

P1086 

PI 192 

P1721 

D2822 

P1991 

P2023 

P1715 

P1792 

PI 7 12 

P1709 

P1939 

P2322 

P2022 

P2022 

P1781 



BDMSCOBOL 

CONTROLLER 

DUMPANALY 

JOBFORMAT 

INTERFACE 

INTERFACE 

DASDL 

BINDER 

FORTRAN 

MCP 

BINDER 

BINDER 

BINDER 

COBOL 

ESPOLINTRN 

MCP 

MCP 

MCP 

MCP 

MCP 

ALGOL 

SCR 

ALGOL 

BINDER 

ALGOL 

ALGOL 

ALGOL 

ALGOLTABLE 

ALGOL 

JOBFORMAT 

LOGANALY 

MCP 

CONTROLLER 

MCP 

DATACOM 

MCP 

ALGOL 

DUMP ALL 

WFL 

COBOL 

COBOL 7 4 

COBOL 

ALGOL 

ALGOL 

ALGOLTABLE 

FORTRAN 

MCP 

MCP 

BINDER 

JOBFORMAT 

CONTROLLER 

MCP 

BINDER 

WFL 

MCP 

DUMPANALY 

MCP 

RJE 

MCP 

IN-OUTPUT 

IN-OUTPUT 

MCP 

MCP 

CONTROLLER 

MCP 

MCP 

ALGOL 

MCP 

MCP 

MCP 

FORTRAN 

ALGOL 

MCP 

MCP 

ALGOL 

MCP 

JOBFORMAT 

FORTRAN 

FORTRAN 

MCP 

MCP 

IN-OUTPUT 



31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

3 1 . 

31 

31 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 



31 .0. 
31 .0. 



31 

31 
31 
31 
31 
31 
31 
31 
31 
31 



31.0. 
31.0. 
31 .0. 



31 
31 
31 
31 
31 
31 



31.0. 
31.0. 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 



31.0 
31.0 



31 
31 
31 
31 
31 



0011 
001 1 
0004 
0014 
0016 
0030 
0044 
0040 
0720 
0015 
0012 
0015 
0035 
0067 
0166 
0062 
0073 
0125 
0135 
0149 
0025 
0037 
0012 
0030 
003 1 
0036 
0005 
0163 
0029 
003 1 
0875 
0015 
0213 
0979 
0059 

0003 
0021 
0097 
0149 
0084 
0148 
0152 
0023 
0020 
0489 
0356 
0012 
0019 
0046 
0416 
0012 
0073 
0413 
0067 
0783 
0027 
0009 
0017 
0132 
0221 
0189 
0008 
0067 
0071 

0174 
0212 
0371 
0034 
0104 
0499 
0356 
0040 
0352 
0019 
0033 
0041 
0492 
0637 
0376 
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DESCRIPTION 

Use of <structure number> Cons 

Four vs Three Digit System Ser 

Four vs Three Digit System Ser 

Four vs Three Digit System Ser 

Link to Set Qualification 

Link to Set Qualification 

Global Chain Not Overlayed 

Invalid PARAMETER MISMATCH 

Invalid PARAMETER M 1 SMATCH 

Invalid PARAMETER M I SMATCH 

Mul t ipl e BIND= Cards 

Binding Entry Points 

Mul t iple BIND= Cards 

Except i oncode for ANSI74 Corre 

FORTRAN BCL Format t i ng 

NON ANCESTRAL TASKFILE 

Reserve Locks 

Reserve Locks 

Reserve Locks 

Reserve Locks 

SPAGE and the Compiler Linecou 

NRZ Tapes 

No Error on "REAL (P:P EQL "AB 

Binding Entry Points 

Equation Disallowed in 

Equation Disallowed in 

Equation Disallowed in 

Equation Disallowed in 

No "COMPILER ERROR IN 
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Global 
Global 
Global 
Global 
BUILDITE 
"MAJOR TYPE=2 MINOR TYPE=5" Vs 
"MAJOR TYPE=2 MINOR TYPE=5" Vs 

Protection from Tag-7 Interrup 

ADMEVENT M 

FM Vs. SU 

Subtract Station Fault with No 

OF of GETSTATUS Waiting on <fi 

Files LINE and ERRORFILE 

ROUTINE and COPY Statements Re 

REMOVE Command 

Statistics Not Correct for STO 

Statistics Not Correct for STO 

SELECTION Expressions 

Syntaxing of Format Specificat 

Syntaxing of Format Specificat 

Syntaxing of Format Specificat 

Multiple Entry Points with OPT 

Compi le-and-Go with SUBSPACES= 

Dying Stack in WSSHERIFF 

Binding Entry Points 

Includes LSN for Job Summary 

SQ Command Correction 

FM Vs. Saved LP 

Binding Entry Points 

WFL "BEGIN; JOB" Correction 

READALABEL Vs EXTMODE 

OVERLAYCF 

OVERLAYCF 

WFLCOMPILER Not Going to EOT 

NO MEM in Swapspace 

F I BLOCK and TIMESTAMP 

F I BLOCK and TIMESTAMP 

Family Substitution Vs. Ca t a 1 o 

File Removed Message 

FILEKIND 

FILEKIND 

Change Title of Cataloged File 

Large Numeric Literals 

Unlabeled Tape Corrections 

SWAPPER Vs . Crunch 

LINKLISTINSERT Vs . XTEND 

Binding and Statistics 

Recovering from Syntax Error 

SEG0 of Flat rows 

Dying Stack in WSSHERIFF 

No Error on "TITLE=<p t r > " 

VOLUME DELETE 

Includes LSN for Job Summary 

Run Time Problems with Very La 

FORTRAN XREF 

Rebui Id Vs . AD 

Rebui Id Vs . AD 

CANCEL/D I RECTDCREAD 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



PATCH 



DESCRIPTION 



0128-0525 


P2542 ESPOLINTRN 


0128-0528 


P1794 RJE 


0128-0529 


P2391 MCP 


0128-0538 


P2534 MCP 


0130-0682 


P9158 MCP 


0130-0710 


Pllll MCP 


0130-0778 


P2 1 1 3 ALGOL 


0132-0105 


P2381 COBOL 


0134-0156 


PI 184 MCP 


0134-0158 


P24I4 RECOVERY 


0139-0107 


D2761 ALGOL 


0141-0271 


D2959 COBOL 


0141-0273 


PI 664 COBOL 


0141-0273 


PI 664 COBOL74 


0141-0275 


P2062 COBOL 


0141-0278 


PI 128 IN-OUTPUT 


0141-0292 


P2274 MCP 


0141-0292 


P2274 MCP 


0141-0292 


P2274 MCP 


0141-0293 


P2274 MCP 


0141-0293 


P2274 MCP 


0141-0293 


P2274 MCP 


0141-0298 


PI 709 JOBFORMAT 


0141-0299 


P9176 MCP 


0141-0307 


D2816 COBOL 


0143-0232 


P1082 MCP 


0143-0236 


P9220 MCP 


0143-0250 


PI 856 IN-OUTPUT 


0143-0250 


PI 856 IN-OUTPUT 


0143-0251 


PI 767 DUMPALL 


0143-0252 


P1459 MCP 


0143-0256 


P2311 MCP 


0143-0260 


P2515 DUMPANALY 


0144-0083 


P2005 LCOBOL 


0148-0049 


PI 767 DUMPALL 


0148-0117 


P2245 LCOBOL 


0148-0118 


P2246 LCOBOL 


0148-01 19 


P2463 LCOBOL 


0148-0120 


P2463 LCOBOL 


0149-0379 


P1177 SCR 


t>149-0422 


P1030 IN-OUTPUT 


0149-0435 


P9272 DUMPANALY 


0149-0435 


P9272 IN-OUTPUT 


0149-0452 


P9227 MCP 


0149-0458 


P9224 MCP 


0149-0461 


P9225 MCP 


0149-0463 


P9229 MCP 


0149-0463 


P9229 SCR 


0149-0464 


P1172 SCR 


0149-0473 


P1087 MCP 


0149-0486 


PI 729 MCP 


0149-0489 


P2003 BACKUP 


0149-0493 


PI 762 BACKUP 


0151-0361 


P1054 MCP 


0151-0372 


P2397 DATACOM 


0151-0387 


PI 726 MCP 


0154-0167 


P2381 COBOL 


0154-0173 


P2085 NDL 


0154-0201 


P2085 NDL 


0154-0203 


P2319 COBOL 


0154-0210 


P2381 COBOL 


0154-0217 


P2381 COBOL 


0156-0066 


P9143 MCP 


0156-0073 


PI 125 MCP 


0156-0075 


PI 609 MCP 


0156-0080 


PI 767 DUMPALL 


0156-0083 


P1715 MCP 


0156-0092 


P1715 MCP 


0156-0093 


P1715 MCP 


0156-0100 


PI 609 MCP 


0156-0102 


D2852 COBOL 


0156-01 10 


P25 80 BACKUP 


0156-01 12 


P23 5 8 DUMPANALY 


0156-01 12 


P23 5 8 MCP 


0156-01 17 


P2537 MCP 


0161-0114 


D295 8 COBOL 


0163-0078 


P23 8 7 ACR 


0166-021 1 


P92 74 IN-OUTPUT 


0166-021 1 


P92 74 IN-OUTPUT 


0166-0214 


P92 74 IN-OUTPUT 


0166-0214 


P9274 IN-OUTPUT 


0166-0219 


P9222 MCP 



31.0.0063 Formatting Intrinsics 

31.0.0027 WFLCOMPILER Not Going to EOT 

31.0.0797 Catalog Remove 

31.0 0913 CHECKPOINT Vs. JEDGARHOOVER 

31.0.0077 WFL USER Statement in Subrout 

3 1.0.0163 AUTOPRINT Vs. Multiple SKIP TO 

3 1.0.0134 INVALID OP in Freefield WRITE 

31.0.0139 Erroneous Syntax Error 

31.0.0207 EOT Vs. TAPEPAR I TYRETRY 

31.0.0048 REBUILD and RECONSTRUCT Back U 

31.0. MAKEHOST Envi ronments 

31.0. Fi le Attribute IORECORDNUM 

31.0.0038 Graceful Exit from Syntaxed ST 

31.0.0099 Graceful Exit from Syntaxed ST 

31.0.0084 SELECTION Expressions 

31.0.0182 CHECKCOUNT Vs. 5500 Tapes 

31.0.0692 CLOSE Errors Fatal 

31.0.0825 CLOSE Errors Fatal 

31.0.0976 CLOSE Errors Fatal 

31.0.0692 CLOSE Errors Fatal 

31.0.0825 CLOSE Errors Fatal 

31.0.0976 CLOSE Errors Fatal 

31.0.0019 Includes LSN for Job Summary 

31.0.0090 SWAPPER QT's BACKUP 

31.0.0049 NOTE Verb Extensions 

31.0.0162 LEIBNITZ Vs. Overlay 

31.0.0113 PLANT MESSAGE v s AUTOBACKUP 

31 .0.0449 Log Vs. Ti It le 

31 .0.0504 Log Vs. Title 

31.0.0003 ROUTINE and COPY Statements Re 

31.0.0308 MISSINGPROCEDURE Call 

31.0.0736 EOJ Vs. USTKAS SIGNED 

31.0.0086 DCC and DCI» Station Info 

31.0.0007 TU Firmware Buffer Lengths 

31.0.0003 ROUTINE and COPY Statements Re 

31.0.0009 IF Statement with OPTIM Correc 

31.0.0010 DISPLAY Statement Correction 

31.0.0014 Incorrect Code, Invalid Syntax 

31.0.0014 Incorrect Code, Invalid Syntax 

31.0.0017 Buffer Fill Correction 

31.0.0152 Change INTNAME 

31.0.0013 FIBLOCKSNR 

31.0.0136 FIBLOCKSNR 

31.0.0131 HDREXPAND 

31.0.0097 VERIFYFAMILY vs HDRVECTORLOCK 

31.0.0098 DESCRIPTOR error on Packs 

31.0.0129 ANABOLISM vs MAKEJOBFILE 

31.0.0006 ANABOLISM vs MAKEJOBFILE 

31.0.0012 Deadly Embrace 

31.0.0175 MCSREADY on SM Input 

31.0.0386 SIRWOFADDRESS 

31.0.0010 Backward Skip 

31.0.0008 All Copies Not Printed 

31 .0.0156 IC Diskpacks 

31.0.0821 Restarting DSed DCP 

31 .0.03 81 DUMP Vs. RD 

31.0.0139 Erroneous Syntax Error 

31.0.0001 FILE <family> Statement 

31.0.0001 FILE <family> Statement 

31.0.0123 Condition Names 

31.0.0139 Erroneous Syntax Error 

31.0.0139 Erroneous Syntax Error 

31.0.0057 Fatal Stack Overflow 

31.0.0178 Unit Left Assigned 

31 .0.0349 Guardf i le 

31.0.0003 ROUTINE and COPY Statements Re 

31.0.0356 Dying Stack in WSSHERIFF 

31.0.0356 Dying Stack in WSSHERIFF 

31.0.0356 Dying Stack in WSSHERIFF 

31 .0.0349 Guardf i le 

31.0. Separator s 

31.0.0026 BACKUP Vs. System Without DISK 

31.0.0067 OVERLAYCF 

31 .0.07 8 3 OVERLAYCF 

31.0.0907 Reel Switch Vs. Parity Error 

310. Setting of System Compatibilit 

31.0.0118 Erroneous Not Found Result 

31.0.0142 CLOSE HERE on Empty Tape File 

31.0.0258 CLOSE HERE on Empty Tape File 

31.0.0142 CLOSE HERE on Empty Tape File 

31.0.0258 CLOSE HERE on Empty Tape File 

31.0.0118 CP vs SWAPPER 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



PATCH 



0166- 


-0225 


P9219 


MCP 


31 . 


0. 


01 16 


0166- 


-0229 


P9220 


MCP 


31 . 


0. 


01 13 


0166- 


-0268 


P1767 


DUMPALL 


31 . 


0. 


0003 


0166- 


-0269 


P1664 


COBOL 


31 . 


0. 


0038 


0166- 


-0269 


PI 6o4 


COBOL 7 4 


31 . 


0. 


0099 


0166- 


-0271 


02249 


MCP 


31 . 


0. 


0059 


o ; o t> - 


-028* 


P202S 


PRINTBIND 


31 . 


0. 


0005 


! 60- 


-0293 


D2570 


MCP 


31 . 


0. 


0351 


0166- 


-0293 


D2576 


MCP 


31 . 


0. 


0401 


0166- 


-0296 


P22;s 


COBOL 


31 . 


0. 


0105 


01o6- 


-03C2 


P16o2 


COBOL 


31 . 


0. 


0035 


1 66- 


-0506 


D257o 


MCP 


31 . 


0. 


0351 


16o- 


-0306 


D2576 


MCP 


31 . 


0. 


0401 


Oloo- 


-0308 


PP20 


MCP 


31 . 


0. 


0366 


16o- 


-031 1 


PI "'52 


ALGOL 


31 . 


0. 


0040 


i o o - 


-0 3 1.5 


P2296 


FILEDATA 


31 . 


0. 


0008 


0166- 


-0318 


P2580 


BACKUP 


31 . 


0. 


0026 


166- 


-03 2! 


P!709 


JOBFORMAT 


31 . 


0. 


0019 


016s- 


-0324 


P2 5 76 


BACKUP 


31 . 


0. 


0024 


0160- 


-0324 


P2576 


BACKUP 


3 1 . 


.0. 


0025 


0166- 


-0327 


P1766 


DUMPALL 


31 


.0. 


0002 


016o- 


-0328 


P2382 


JOBFORMAT 


31 


.0. 


0036 


0166- 


-0332 


P2532 


MCP 


31 


0. 


0924 


OloS- 


-0262 


P1941 


PL I 


31 


.0. 


0016 


16a- 


-0323 


P1786 


MCP 


31 


0. 


0430 


0168- 


-0336 


P2 3 22 


FORTRAN 


31 . 


0. 


0041 


01 6S- 


-034 3 


P259 1 


ESPOLINTRN 


31 


.0. 


0067 


0168- 


-034o 


P1781 


IN-OUTPUT 


31 . 


.0. 


0376 


0168- 


-0357 


P1516 


BINDER 


31 


.0. 


0012 


0168- 


-0358 


P1933 


ALGOL 


31 


.0. 


0119 


3168- 


-0372 


P1609 


MCP 


31 


.0. 


0349 


0168- 


-0374 


P1768 


DUMPALL 


31 


.0. 


0004 


0168- 


-0384 


P2471 


WFL 


31 


,0. 


0074 


0163- 


-0387 


P2312 


MCP 


31 


.0. 


0738 


0168- 


-0389 


P2125 


WFL 


31 


.0. 


0044 


016S- 


-0397 


P1819 


ALGOL 


31 


.0. 


0043 


01o9- 


-0131 


P1449 


ALGOL 


31 


.0. 


0145 


0169- 


-0148 


P9024 


IN-OUTPUT 


31 


,0. 


0017 


0169- 


-0148 


P9024 


I N-OUTPUT 


31 


,0. 


0132 


0169- 


-0158 


P9230 


MCP 


31 


.0. 


0128 


0169- 


-0161 


P1016 


SORT 


31 


.0. 


0002 


0169- 


-0181 


P ! - 8 5 


MCP 


31 


.0 


.0428 


0169- 


-0183 


PI 5 16 


BINDER 


31 


.0. 


.0012 


0169- 


-0185 


P9272 


DUMPANALY 


31 


.0 


0013 


0169- 


-0185 


P9272 


IN-OUTPUT 


31 


.0 


0136 


0169- 


-0186 


P1715 


MCP 


31 


.0 


0356 


0169- 


-0188 


P2257 


COBOL 


31 


.0 


0104 


0169- 


-0189 


P1786 


MCP 


31 


.0 


.0430 


0170- 


-0075 


P9193 


XREFANALY 


31 


.0 


.0003 


0170- 


-0100 


P2338 


COBOL 


31 


.0 


.0127 


0171- 


-0004 


P2252 


COBOL 


31 


.0 


,0097 


0171 


-0004 


P2252 


COBOL 7 4 


31 


.0 


.0149 


0174- 


-0127 


P2237 


ALGOL 


31 


.0 


.0148 


0174- 


-0127 


P2237 


ALGOL 


31 


.0 


.0152 


0174- 


-0127 


P2237 


ALGOLTABLE 


31 


.0 


.0023 


0174- 


-0141 


P221S 


ALGOL 


31 


.0 




0174- 


-0141 


P2218 


ALGOLTABLE 


31 


.0 


.0022 


0174- 


-0153 


P1254 


MCP 


31 


.0 


.0237 


0174- 


-0157 


D2776 


ALGOL 


31 


.0 




0174- 


-0162 


P2253 


COBOL 


31 


.0 


.0048 


0174- 


-0165 


P2205 


RJE 


31 


.0 


.0041 


0174- 


-0172 


P2349 


ACR 


31 


.0 


.0109 


0174- 


-0175 


P1767 


DUMPALL 


31 


.0 


.0003 


0174- 


-0176 


P2347 


ACR 


31 


.0 


.0106 


0174- 


-0180 


P2237 


ALGOL 


31 


.0 


.0148 


0174 


-0180 


P2237 


ALGOL 


31 


.0 


.0152 


0174- 


-0180 


P2237 


ALGOLTABLE 


31 


.0 


.0023 


0174- 


-0186 


P2529 


DUMPALL 


31 


.0 


.0014 


017 5 


-0025 


P1516 


BINDER 


31 


.0 


.0012 


017 5- 


-003 2 


P2125 


WFL 


31 


.0 


.0044 


0175 


-00 3 3 


P2259 


COBOL 


31 


.0 


.01 10 


0176 


-0174 


PI767 


DUMPALL 


31 


.0 


.0003 


0176 


-0176 


P2051 


COBOL 


31 


.0 


.0069 


0178 


-3001 


P18 19 


ALGOL 


31 


.0 


.0043 


0180 


-0459 


D2762 


ALGOL 


31 


.0 




0180 


-0536 


P2125 


WFL 


31 


.0 


.0044 


0180 


-0538 


P1516 


BINDER 


31 


.0 


.0012 


0180 


-0543 


P 1 5 1 6 


BINDER 


31 


.0 


.0012 


0180 


-C550 


P2125 


WFL 


31 


.0 


.0044 


0180 


-0554 


P1942 


RJE 


31 


.0 


.0037 


0181 


-0086 


P9 159 


MCP 


31 


.0 


.0078 


0183 


-2904 


P 1 9 2 8 


UTIL 


31 


.0 


.0025 



DESCRIPTION 

DBS vs CHECKPOINT 

PLANT MESSAGE vs AUTOBACKUP 

ROUTINE and COPY Statements Re 

Graceful Exit from Syntaxed ST 

Graceful Exit from Syntaxed ST 

OF of GETSTATUS Waiting on <fi 

Improved Handling of Unknown I 

RERUN Vs . EOF 

RERUN Vs . EOF 

INVALID INDEX in Bad REPORT Wr 

Except i oncode for ANSI74 Corre 

RERUN Vs . EOF 

RERUN Vs . EOF 

Checkpo i n t 

No Error on "TITLE=<pt r> " 

Allow CANDE LFILES with No Di 

BACKUP Vs. System Without DISK 

Includes LSN for Job Summary 

First Level Filename Vs. Userc 

First Level Filename Vs. Userc 

UL OP t ion Correction 

CLOSE Types 

CHECKPOINTFILE Vs. Abort 

Deallocate Dynamic Bounds Auto 

Guardfile Vs. S t ackover f I ow 

FORTRAN XREF 

FORTRAN BCL Fo rma t t i ng 

CANCEL/D I RECTDCREAD 

Binding Entry Points 

SERIALNO File Attribute 

Guardf i 1 e 

DMPMT Short Records 

COMPILATION ABORTED Not Trunca 

SWAPPER Gets DIV BY ZERO 

Fault on Bad Task Attribute 

Update Pointer in REPLACE BY S 

Small Pools for Formats 

FIBLOCK and TIMESTAMP 

FIBLOCK and TIMESTAMP 

HISTORY vs PROGRAMDUMP 

KANGAROO 

Software Interrupt Execution 

Binding Entry Points 

FIBLOCKSNR 

FIBLOCKSNR 

Dying Stack in WSSHERIFF 

Too Many REPORT Writer Code CI 

Guardfile Vs. St ackover f low 

Memory Requirements 

Large Report Writer Exceeded C 

Statistics Not Correct for STO 

Statistics Not Correct for STO 

Syn taxing of Format Specificat 

Syntaxing of Format Specificat 

Syntaxing of Format Specificat 

Warning Message Given for Form 

Warning Message Given for Form 

DISKLIMIT Vs . RSVP 

MOD Operator When Second Param 

SELECT Statement Syntax Errors 

NOLOGONVs. Usercode "." 

ORDERED Data Set INVALID OP 

ROUTINE and COPY Statements Re 

Ordered Available Table Corrup 

Syntaxing of Format Specificat 

Syntaxing of Format Specificat 

Syntaxing of Format Specificat 

Error Me s sages 

Binding Entry Points 

Fault on Bad Task Attribute 

ANSI 74 LINAGE WRITE AT END OF 

ROUTINE and COPY Statements Re 

VALUE Clause for COMP-4 Items 

Update Pointer in REPLACE BY S 

VECTORMODE Loops with Length < 

Fault on Bad Task Attribute 

Binding Entry Points 

Binding Entry Points 

Fault on Bad Task Attribute 

Restart file Name SEG ARRAY Err 

Information Carry Over 

Tape Block Count Not Properly 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



PATCH 



0184- 


-0044 


P1734 


MCP 


31 


.0 


,0416 


0184- 


-0046 


P2210 


REORG 


31 


.0 


,0024 


0184- 


-0047 


P2136 


REORG 


31 


.0 


,0017 


0184- 


-005 3 


P1816 


RJE 


31 


.0 


.0033 


0184- 


-0058 


P2473 


ACR 


31 


.0 


,0129 


0184 


-0058 


P2473 


ACR 


31 


.0 


,0132 


0184- 


-0063 


P1884 


UTIL 


31 


.0 


.0051 


0184- 


-0067 


P2579 


ALGOL 


31 


.0 


,0181 


0184- 


-5001 


D2591 


BUILDREORG 


31 


.0 


.0015 


0185- 


-0236 


D2932 


WFL 


31 


.0 


.0075 


0185- 


-0239 


D2463 


CONTROLLER 


31 


.0 


.0021 


0185- 


-0239 


D2463 


MCP 


31 


.0 


.0222 


0185- 


-0260 


P1768 


DUMPALL 


31 


.0 


.0004 


0185- 


-0263 


P1732 


MCP 


31 


.0 


,0390 


0185- 


-0264 


P1781 


IN-OUTPUT 


31 


.0. 


.0376 


0185- 


-0269 


P2251 


INQ 


31 


.0. 


0039 


0185- 


-0270 


P2373 


COBOL 


31 


.0, 


0135 


0187- 


-0172 


P2108 


DATACOM 


31 


.0. 


0528 


0187- 


-0172 


P2108 


DCPPROGEN 


31 


.0 


,0003 


0187- 


-0186 


P1078 


LOADER 


31 


.0 


,0005 


0187- 


-0188 


P2397 


DATACOM 


31 


.0 


0821 


0187- 


-0191 


P2108 


DATACOM 


31 


.0. 


0528 


0187- 


-0191 


P2108 


DCPPROGEN 


31 


.0. 


.0003 


0187- 


-0194 


P2002 


WFL 


31 


.0. 


.0023 


0187- 


-0197 


P1863 


MCP 


31 


.0, 


,0456 


0187- 


-0197 


P1863 


MCP 


31 


.0 


0534 


0187- 


-0197 


P1863 


MCP 


31 


.0 


.0549 


0188- 


-01 10 


P1879 


ALGOL 


31 


.0 


,0049 


0188- 


-0141 


P9169 


MCP 


31 


.0, 


,0085 


0188- 


-0143 


P9228 


IN-OUTPUT 


31 


.0. 


0130 


0188- 


-0146 


P9169 


MCP 


31 


.0. 


,0085 


0188- 


-0150 


PI 191 


MCP 


31 


.0. 


,0211 


0188- 


-0151 


P1253 


MCP 


31 


.0 


,0235 


0188- 


-0163 


P1516 


BINDER 


31 


.0 


0012 


0188- 


-0168 


P1516 


BINDER 


31 


.0 


,0012 


0188 


-0169 


P2001 


WFL 


31 


.0, 


0022 


0188- 


-0170 


P1880 


ALGOL 


31 


.0. 


,0050 


0188- 


-0171 


P2002 


WFL 


31 


.0. 


0023 


0188- 


-0172 


D2649 


ALGOL 


31 


.0. 


0048 


0188 


-0174 


P1878 


ALGOL 


31 


.0. 


0047 


0188- 


-0177 


P1459 


MCP 


31 


.0. 


0308 


0188- 


-0183 


P2383 


JOBFORMAT 


31 


.0. 


,0037 


0188- 


-0186 


P2492 


BINDER 


31 


.0. 


0048 


0188- 


-0187 


P2465 


BINDER 


31 


.0. 


0047 


0189- 


-0176 


D2865 


MCP 


31 


.0. 




0191- 


-0120 


P2340 


COBOL 


31 


.0 


0129 


0191- 


-0125 


P2545 


MCP 


31 


.0. 


0931 


0192- 


-0299 


P1794 


RJE 


31 


.0 


,0027 


0192- 


-0300 


P2552 


MCP 


31 


.0. 


0978 


0193- 


-0519 


P1863 


MCP 


31 


.0 


0456 


0193- 


-05 19 


P1863 


MCP 


31 


.0 


0534 


0193- 


-0519 


P1863 


MCP 


31 


.0 


0549 


0193- 


-0525 


P2188 


FILECOPY 


31 


.0 


0008 


0194- 


-0222 


D2576 


MCP 


31 


.0. 


,0351 


0194- 


-0222 


D2576 


MCP 


31 


.0. 


0401 


0194- 


-0234 


P2530 


MCP 


31 


.0. 


,0933 


0194- 


-0239 


D2960 


COBOL 


31 


.0 




0200- 


-0203 


PI 182 


MCP 


31 


.0. 


0203 


0200- 


-0264 


P1715 


MCP 


31 


.0. 


0356 


0201- 


-0220 


P1936 


FORTRAN 


31 


.0. 


,0030 


0201- 


-0225 


P9146 


MCP 


31 


.0 


,0062 


0201- 


-0225 


P9146 


MCP 


31 


.0. 


.0073 


0201- 


-0225 


P9146 


MCP 


31 


.0 


.0125 


0201- 


-0225 


P9146 


MCP 


31 


.0. 


,0135 


0201 


-0226 


P1763 


COBOL 


31 


.0 


0041 


0201- 


-0230 


P9218 


MCP 


31 


.0 


0111 


0201- 


-0242 


D2762 


ALGOL 


31 


.0 




0201- 


-0256 


P2003 


BACKUP 


31 


.0 


0010 


0201- 


-0266 


P1794 


RJE 


31 


.0 


,0027 


0202- 


-0268 


P1784 


MCP 


31 


.0 


,0425 


0202- 


-0291 


P1788 


MCP 


31 


.0 


,0433 


0202- 


-0306 


P1893 


DUMPANALY 


31 


.0 


,0043 


0202- 


-0315 


P2396 


MCP 


31 


.0 


,0794 


0203- 


-0154 


P1453 


ESPOLINTRN 


31 


.0 


.0060 


0203 


-0156 


P2568 


BACKUP 


31 


.0 


.0019 


0203 


-0160 


P1879 


ALGOL 


31 


.0 


,0049 


0203 


-0164 


P2569 


BACKUP 


31 


.0 


,0020 


0203 


-0165 


P2509 


WFL 


31 


.0 


.0078 


0203 


-0167 


P2399 


CONTROLLER 


31 


.0 


.0094 


0203 


-0171 


P2510 


WFL 


31 


.0 


.0079 


0203- 


-0175 


P1933 


ALGOL 


31 


.0 


.0119 


0203- 


-0183 


P1915 


ACR 


31 


.0 


,0068 



DESCRIPTION 

FM Vs. Saved LP 

Index Random, Random Shadow Fi 

Unused Fold Words 

QT Printer Files Saved Over Ha 

Incorrect Statistics Totals 

Incorrect Statistics Totals 

TDATABEGIN Field Not Initializ 

String in DEFINE Too Long 

Checking BUILDREORG Status in 

STATUS Attribute 

RESOURCECHECK 

RESOURCECHECK 

DMPMT Short Records 

ELAPSEDTIMELIMIT 

CANCEL/D I RECTDCREAD 

Display of Numeric Items 

Condition Names 

DCCONTROL Invalid Index 

DCCONTROL Invalid Index 

Three-Multiplexor System 

Restarting DSed DCP 

DCCONTROL Invalid Index 

DCCONTROL Invalid Index 

Zip wi th Array 

DISCSTATUS 

DISCSTATUS 

DISCSTATUS 

Syntax Errors Not Being Report 

Processor Priority 

AVAILABLE 

Processor Priority 

FINDINPUT Vs. UNBRF 

Zip with Large Array 

Binding Entry Points 

Binding Entry Points 

Zip Wi th Array 

AUTOBIND and One Level Codefil 

Zip with Array 

New Information in the Listing 

IF FALSE in Procedures to be B 

M I S S I NGPROCEDURE Call 

JOB ENTERED SYSTEM Time 

Rebinding with FORTRAN DATA S 

Entry Binding Corrections 

Verify 235 Packs in IV Message 

Negative Zeros in VALUE Clause 

GETAREA Vs . Locks 

WFLCOMPILER Not Going to EOT 

Card Reader Secured Status 

DISCSTATUS 

DISCSTATUS 

DISCSTATUS 

Punched Output 

RERUN Vs . EOF 

RERUN Vs . EOF 

CHECKPOINT Vs . OLAYHEADER 

Comparison of Nonnumeric Opera 

DBS D3 NOMEM 

Dying Stack in WSSHERIFF 

FREE Format Vs. INCLUDE 

Reserve Locks 

Reserve Locks 

Reserve Locks 

Reserve Locks 

User Intrinsic Calls Not Scann 

BD Files vs EOF=0 

VECTORMODE Loops with Length < 

Backward Skip 

WFLCOMPILER Not Going to EOT 

CRUNCH Vs . CP 

LOOKFORIT Control State 

SIRW Analysi s 

CPRESTART EOJ 

STATISTICS Option 

Loops When "<skip count>" Omit 

Syntax Errors Not Being Report 

REEL Attribute Not Set Before 

Eliminate Recursive Handling o 

Message Greater Than 1896 Char 

COMPILE Statement Without Comp 

SERIALNO File Attribute 

COPYAUDIT Not Zipped if Error 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



PATCH 



0205 

0205 

0205 

0205 

0207 

0207 

0208 

0208 

0208 

0208 

0208 

0208 

0209 

0209 

0209 

0209 

0209 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

021 1 

021 1 

0213- 

0214 

0215 

0215 

0215- 

0215- 

0215- 

0215 

0215- 

0216 

0216- 

0216 

0222- 

0222- 

0222- 

0222- 

0222- 

0222- 

0222- 

0225- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0226- 

0227- 

0227- 

0227- 

0227- 

0227 

0227- 

0227- 

0227 

0231 

0231 

0231 

0231 

0231 

0231 

0231 

02 3 1 

02 3 1 

0231- 

0232 

0238 

02 3 8 



-0616 
-0617 
-0617 
-0617 
-0125 
-0127 
-7708 
7801 
-7805 
-7808 
-7817 
-7823 
-0029 
-0048 
-0049 
-0049 
-0049 
-0115 
-0117 
-0124 
-0126 
-0127 
-0137 
0142 
-7743 
-7747 
-0075 
0030 
0149 
0149 
0149 
0149 
0157 
0159 
0160 
0068 
0075 
0076 
0366 
0368 
0373 
0380 
0383 
0384 
0388 
0021 
0352 
0354 
0355 
0363 
0370 
0383 
0383 
0388 
0395 
0395 
0395 
0399 
0410 
0418 
0422 
01 15 
01 16 
01 16 
01 16 
01 17 
01 17 
01 17 
0123 
0381 
0386 
0403 
0404 
0409 
0410 
04 1 1 
0428 
0433 
0439 
0026 
0167 
0168 



P2492 

P2290 

P2290 

P2290 

D2674 

P9156 

PI 1 12 

P1787 

P2077 

P1734 

P1820 

P1781 

P9223 

P2562 

P2461 

P2461 

P2461 

PI 1 12 

PI 1 12 

P2007 

P2062 

P2202 

P2086 

P2202 

P9157 

P9153 

P2264 

P1516 

D2623 

D2623 

D2623 

D2623 

P1516 

P1792 

P2077 

P2392 

P2591 

P1819 

P1941 

P2591 

P1516 

P1516 

P2125 

P1373 

P2025 

P2024 

P9275 

P9269 

P9143 

D2765 

P1715 

P1800 

P1800 

P1925 

P1863 

P1863 

P1863 

P1827 

P2642 

P2136 

P1903 

P2006 

P2274 

P2274 

P2274 

P2274 

P2274 

P2274 

P2276 

P9143 

P2331 

P25 15 

P1862 

P1715 

P1766 

P2002 

P2295 

P2260 

D2687 

P9143 

P2316 

P 1 7 3 4 



B I NDER 

ALGOL 

ALGOL 

ALGOLTABLE 

CANDE 

MCP 

MCP 

MCP 

WFL 

MCP 

ACR 

IN-OUTPUT 

MCP 

RJE 

UTIL 

UTIL 

UTIL 

MCP 

MCP 

WFL 

COBOL 

BDMSCOBOL 

RJE 

BDMSCOBOL 

DATACOM 

MCP 

LOGGER 

BINDER 

ALGOL 

ALGOL 

ALGOL 

ALGOLTABLE 

BINDER 

ALGOL 
WFL 

MCP 

ESPOLINTRN 

ALGOL 

PL I 

ESPOLINTRN 

BINDER 
BINDER 
WFL 
ALGOL 

PRINTBIND 
MCP 

IN-OUTPUT 

MCP 

MCP 

ALGOL 

MCP 

CONTROLLER 

MCP 

RECOVERY 

MCP 

MCP 

MCP 

REORG 

UTIL 

REORG 

REORG 

LOADER 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

INQ 

MCP 

BDMSCOBOL 

DUMPANALY 

MCP 

MCP 

DUMP ALL 

WFL 

COBOL 

COBOL 

PRINTBIND 

MCP 

COBOL 

MCP 



31 

31 

31 

31 

31 

31 

31 

31 

31 . 

31 

31 . 

31 . 



31.0 
31.0 



31 
31 
31 
31 
31 
3 1 
31 
31 
31 



31 .0 
31.0 
31.0 
31 .0 



31 
31 
31 
31 
31 



31.0 
31.0 
31.0 
31 .0 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 



31 .0 
31.0 
31 .0 



31 

31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 , 



.0048 
.0164 
.0168 
.0026 
.0035 
.0074 
.0165 
.0431 
.0026 
.0416 
.0054 
.0376 
.0099 
.0052 
.0062 
.0063 
.0067 
.0165 
.0165 
.0021 
.0084 
.0095 
.0038 
.0095 
.0075 
.0071 
.0020 
.0012 
.0030 
.0031 
.0036 
.0005 
.0012 
.0040 
.0026 
.0814 
0067 
0043 
0016 
0067 
0012 
0012 
0044 
0142 
0005 
0506 
0143 
0160 
0057 

0356 
0049 
0443 
0025 
0456 
0534 
0549 
0005 
0072 
0017 
0012 
0025 
0692 
0825 
0976 
0692 
0825 
0976 
0040 
0057 
0120 
0086 
0454 
0356 
0002 
0023 
0109 
0111 
0009 
0057 
0118 
0416 



DESCRIPTION 

Rebinding with FORTRAN DATA S 
No Spurious UNKNOWN DOLLAR CAR 
No Spurious UNKNOWN DOLLAR CAR 
No Spurious UNKNOWN DOLLAR CAR 
Data Files Update 
Task Attribute Errors 
AUTOPRINT Vs. FM Reply 
TAPEPARITYRETRY Vs . BLOCKEXIT 
Extra BEGIN in WFL Job Deck 
FM Vs. Saved LP 
Faulty Audit Constraint 
CANCEL/D I RECTDCREAD 
SUBSPACES vs USERCODE 
DESTNAME Directed REMCP Files 
COPY AS Error 
COPY AS Error 
COPY AS Error 
AUTOPRINT Vs. FM Reply 
AUTOPRINT Vs. FM Reply 
REMOVE Command 
SELECTION Expressions 
Bad DMS Invoke Listing 
MAXTERMINALS Greater Than 48 
Bad DMS Invoke Listing 
Inserting Null Message in Inac 
Change Title of Cataloged File 
Elapsed Time of Jobs Run Throu 
Binding Entry Points 
Equation Disallowed in Global 
Equation Disallowed in Global 
Equation Disallowed in Global 
Equation Disallowed in Global 
Binding Entry Points 

No Error on "TITLE=<pt r> " 
Extra BEGIN in WFL Job Deck 
Swap Out Waiting for Schedule 
FORTRAN BCL Fo rma 1 1 i ng 
Update Pointer in REPLACE BY S 

Deallocate Dynamic Bounds Auto 

FORTRAN BCL Forma 1 1 i ng 

Binding Entry Points 

Binding Entry Points 

Fault on Bad Task Attribute 
Storing Singles into Doubles 
Improved Handling of Unknown I 

GETSTATUS Vs. UINFO 

EVEN Parity Vs. EOF1 

Density Vs. Printlabel 

Fatal Stack Overflow 

Large Numeric Literals 

Dying Stack in WSSHERIFF 

WAITLIMIT 

WAITLIMIT 

ABORT Gets WAITING ON ROWLOCKO 

DISCSTATUS 

DISCSTATUS 

DISCSTATUS 

DATAERROR 001 when Reorganizin 

Failure to Dump Partitions 

Unused Fold Words 

Generation of Manual Subsets 

Uni t Di spl ay 

CLOSE Errors Fatal 

CLOSE Errors Fatal 

CLOSE Errors Fatal 

CLOSE Errors Fatal 

CLOSE Errors Fatal 

CLOSE Errors Fatal 

Display Limit for OPTION PRINT 

Fatal Stack Overflow 

of I tern Wi th Same 
Station Info 



Dec 1 ara t i on 

DCC and DCP 

RSNINVALID 

Dying Stack in WSSHERIFF 

UL OPtion Correction 

Zip with Array 

Exception Code Erroneously Che 

Random File Getting Serial Wr i 

Improve Handling of DATABASE I 

Fatal Stack Overflow 

Maximum Files Allowed 

FM Vs . Saved LP 
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f'TR ACTION .ABLE 

FTR NOTE SOFTWARE 



PATCH 



DESCRIPTION 



C, 2 3 '■> - i'l 8 7 
0242-0004 
0246-0048 
246-0048 
•j24t>-0048 
0243-0! IS 
024vj_0i .58 
024^-0162 
2 10-00 3 
0250-003 ! 
2-0-003 : 
3 2 5 0-0 35 
02 50-003 7 
0250-0039 
02 50-0040 
02 50-0042 
02 50-0043 
02 50-0043 
0253-0058 
0254-001 8 
0254-0022 
0254-0023 
0254-0025 
02 54-002 7 

025 5- 1004 
0255-2014 
0255-2024 
0258-0032 
0258-0039 
02 5 8-003 9 
0260-0064 
0260-0! 14 
0260-01 15 
0260-01 18 
0260-01 1 8 
0261-0 134 

026 1-01 58 
0261-0160 
0261-0171 
0261-0200 

026 1 -02 10 
0261-02 13 
0261-0214 
02 61 -0239 
0261-0243 
0261-0244 
0261-0253 
0261-0262 
0261-0268 
0261-0269 
0264-0080 
0264-0098 
0264-0101 
0264-0102 

027 1-0344 
027! -9004 
02 78-003 1 
0285-0032 
0285-0033 
0280-0035 
0286-0047 
0286-0048 
0286-0048 
0286-0048 
0286-0053 
0286-0068 
02 86-0068 
02 86-0077 
0286-0078 
0292-0105 
0292-01 19 
0292-0 127 
0292-0132 
0292-0 133 
02 92-014 1 
0292-0 143 
029 2-0 153 
2 9 2-01 59 
02 9 2-0 I 5 9 
0292-0 163 
0292-0 1 64 
0292-0 165 



P927 1 
•? i 7 6 5 
P2274 
p 2 2 7 4 
P2274 
PI 768 
P 1 8 8 8 
P2 193 
P 1 7 i 6 
P202 2 
P2 02 2 
P25SO 
P2 3 30 
P 1 8 7 1 
P2642 
P2604 
P2 546 
P2546 
P97.70 
P 1 7 6 7 
P 1 7 ! 5 
P2125 
P2580 
PI 794 
P 1 2 1 9 
P 1 S 1 6 
P i 9 3 6 
P23 53 
D256 8 
D2 5 6 8 
P2 248 
P2077 
D2822 
D2 8 74 
D2 8 74 
P1845 
P9217 
P9 173 
P914S 
P 1 2 i 6 
D2 822 
P 1 8 8 6 
P2001 
P 1 7 2 7 
P1765 
P 1 8 1 3 
P2275 
P207 7 
P2322 
P2322 
P 1 7 1 
P2596 
P2477 
P2556 
P2464 
P2236 
D2 77 7 
PI 801 
P2202 
D2763 
P 1 7 3 4 
P22 74 
P2274 
P2274 
PI 862 
P2 301 
P2 301 
P2 127 
P2414 
P2 3 97 
PI 077 
P 1 7 6 7 
P1767 
P1766 
P1661 
Pi 706 
P2464 
P2 105 
P2105 
P23 17 
D2832 
P1732 



MCP 

CONTROLLER 

MCP 

MCP 

MCP 

DUMPALL 

DCALGOLINT 

MCP 

MCP 

MCP 

MCP 

BACKUP 

BDMSCOBOL 

UTIL 

UTIL 

ACR 

MCP 

MCP 

MCP 

DUMPALL 

MCP 

WFL 

BACKUP 

RJE 

MCP 

BINDER 

FORTRAN 

BUILDINQ 

DASDL 

PROPERTIES 

ALGOL 

WFL 

FORTRAN 

COBOL 

COBOL 7 4 

FORTRAN 
CONTROLLER 

MCP 

MCP 

MCP 

FORTRAN 

CAROLINE 

WFL 

MCP 

CONTROLLER 

LOGGER 

MCP 

WFL 

FORTRAN 

FORTRAN 

SORT 

DATACOM 

BUILDREORG 

LOGGER 

WFL 

ALGOL 

ALGOL 

MCP 

BDMSCOBOL 

ALGOL 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

ACR 

RECOVERY 

DATACOM 

CONTROLLER 

DUMPALL 

DUMPALL 

DUMPALL 

COBOL 7 4 

CONTROLLER 

WFL 

CONTROLLER 

MCP 

COBOL 

PROPERTIES 

MCP 



3 1 
3 1 
31 
3 1 
3 1 
3 I 
3 1 
3 1 
31 
3 1 
3 1 
3 1 
31 
31 
31 
3 1 
31 
31 
3 1 
3 1 
31 
3 1 
31 
3 1 
3 1 
3 1 . 
31 . 
31 . 

31 . 

3 1 . 

31 . 

3 1 . 

31 . 

31 . 

31 . 

3 1 . 

31 . 

31 . 

31 . 



.0.0137 CP Vs. Backup Tape 
.0.0046 SQ Command Correction 
.0.0692 CLOSE Errors Fatal 
.0.0825 CLOSE Errors Fatal 
.0.0976 CLOSE Errors Fatal 
.0.0004 DMPMT Short Records 
.0.0004 Correct DCP Sleep Address Inte 
0.0575 GETAROW Vs. catalog 
0.0357 PB 2 Level Name 
0.0492 Rebui Id Vs. AD 
0.0637 Rebui Id Vs . AD 

0.0026 BACKUP Vs. System Without DISK 
0.0116 Listing of the Variable Format 
0.0024 Missing Entry in HL File 
0.0072 Failure to Dump Partitions 
0.0145 NOT FOUND for Partitioned Orde 
0.08 50 DD Vs . CM 
0. 0860 DD Vs . CM 
0.0138 DBS PROGRAMDUMP 

0.0003 ROUTINE and COPY Statements Re 
0.0356 Dying Stack in WSSHERIFF 
0.0044 Fault on Bad Task Attribute 
0.0026 BACKUP Vs. System Without DISK 
0.0027 WFLCOMPILER Not Going to EOT 
0.0226 REMOVE Vs. Security 
0012 Binding Entry Points 
0030 FREE Format Vs. INCLUDE 

Invalid TABLE EXCEEDED Error 
Allow More Structures, Items P 
Allow More Structures, Items P 
Exclamation Mark and Underscor 
Extra BEGIN in WFL Job Deck 
Binding and Statistics 
0134 OCCURS DEPENDING Option 
OJI83 OCCURS DEPENDING Option 
Monitor Binder Interface 
SQ NO ENTRIES 
LEIBNITZ EOTINHDR 
CRUNCH Vs . COPY 
3 1 .0.0220 OF Vs. Exclusive 
31.0.0034 Binding and Statistics 
31.0.0002 Job Cards Transferred to Disk 
0.0022 Zip With Array 
0.0383 AUTOBACKUP Priority 
0.0046 SQ Command Correction 

Items Extending Past Column 72 
"COPY =" Many Fi les 
Extra BEGIN in WFL Job Deck 
FORTRAN XREF 
FORTRAN XREF 

Security Violation on SORT/STA 
Not Ready Lines After Cluster 
INVALID INDEX at 30139840 
ALINK Vs. MATCHM (BOJ.EOJ) 
WFL "BEGIN; JOB" Correction 
IF FALSE and SLINEINFO 
Missing Actual Parameter in De 
F I BLOCK Vs . PROGRAMDUMP 
Bad DMS Invoke Listing 
Clarification of REPLACE State 
FM Vs. Saved LP 





0. 

0. 

0. 
0. 
0. 
0. 
0.0015 
0.0009 
0.0091 
0.0061 
0220 



0021 
0013 
0002 
0153 
0026 
0034 



31 

31 

31 

31.0 

31.0 

31.0 

31.0 

31.0 



31 
31 
31 
31 
31 
3 1 
31 
3 1 
3 1 
31 
3 1 
31 
31 
31 
31 
31 
3 1 
31 
31 
31 . 
3 1 . 
31 . 
31 , 
31 . 
31 . 
3 1 . 
3 1 . 
3 1 . 
3 1 . 
31 . 
31 . 
3 1 . 



.0022 

.0383 
0046 
0014 
0701 
0026 
0041 
0041 
001 1 
1011 
0013 
0024 
0073 
0147 

0444 
0095 



0416 

0692 

0825 

0976 

0454 

0712 

0750 

008 1 

0048 

0821 

0017 

0003 

0003 

0002 

0097 

0037 

007 3 

0061 

051 1 

01 19 

0023 

0390 



CLOSE Errors Fatal 

CLOSE Errors Fatal 

CLOSE Errors Fatal 

RSNINVALID 

AB Buffer Si ze 

AB Buffer Size 

Clear Read/Write Ahead Statist 

REBUILD and RECONSTRUCT Back U 

Restarting DSed DCP 

PC Vs. MPX3 

ROUTINE and COPY Statements Re 

ROUTINE and COPY Statements Re 

UL OP t ion Correction 

Task to Task String Attribute 

NEXT on RJE Peripheral Status 



WFL "BEGIN; 
DUP FAMILY 
DUP FAMILY 
Info Tab 1 e 
DUPLICATES 



JOB" Co r r ec t i on 



ELAPSEDTIMELIMIT 



Ove r f 1 ow 
Subcategory 



2 Exp 1 a 



FTR ACTION TABLE 

FTR NOTE SOFTWARE 



0292 

0292 

0292 

0292 

0292 

0292 

0293 

0293 

0293 

0293 

0297 

0299 

0299 

0299 

0299 

0299 

0300 

0300 

0300 

0300 

0300 

0300 

0300 

0303 

0306 

0306 

0306 

0307 

0308 

0308 

0308 

0308 

0309 

0309 

0311 

0311 

0311 

031 1- 

0312- 

0312- 

0312- 

0312- 

0314- 

0314- 

0316- 

0316- 

0316- 

0316- 

0318- 

0319- 

0319- 

0319- 

0319- 

0319- 

0319- 

0319- 

03 19- 

0319- 

0323- 

0323- 

0323- 

0323- 

0323- 

0323- 

0323- 

0323- 

0323 

0323 

0323 

0323 

0323- 

03 24 

03 24- 

0324 

03 24 

3 2 7 

03 29 

03 3 1 

0332 

0332 

0335 

0335- 



-0180 

-0180 

-0181 

-0184 

-0186 

0193 

-0068 

-0085 

-0087 

-0088 

-0021 

-0153 

-0159 

-0161 

-0165 

-0172 

-7624 

-7729 

-7759 

-7759 

-7803 

-7805 

-7838 

-0002 

-0006 

-0032 

-0034 

-0027 

0002 

0003 

0008 

•0010 

•0022 

•7155 

0166 

0166 

0194 

0195 

0042 

0065 

0066 

0069 

0015 

0021 

0015 

0015 

0022 

0024 

001 1 
0049 
0064 
0065 
0066 
0068 
0070 
0072 
0074 
0075 
0016 
0019 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 

002 5 
0026 
0009 
0018 
0018 
0038 
0012 
1008 
0100 
2904 
3005 
0037 
0046 



P2325 

P2325 

P1884 

P2515 

P2384 

D2949 

P1705 

P1705 

PI 191 

D2784 

D2931 

P1771 

PI 71 8 

P2107 

P2567 

D2822 

P1083 

PI 125 

D2576 

D2576 

P1730 

P1784 

P2272 

P1885 

P1767 

P2129 

P2579 

P1820 

P1768 

P1734 

P2077 

P1927 

P2214 

P1715 

P9024 

P9024 

P1896 

P1896 

P1791 

P1731 

P2106 

P1877 

PI 181 

P2378 

P2108 

P2108 

PI 125 

PI 191 

P1516 

P2333 

P1762 

P2002 

P2025 

P2106 

D2764 

P1768 

P2441 

D2949 

P2591 

PI 134 

D2705 

D2705 

D2705 

D2705 

D2705 

D2705 

D2705 

D2705 

D2705 

D2705 

P2125 

P2315 

D2874 

D2874 

P2623 

PI 1 12 

P1734 

P1766 

P2478 

P1713 

P2126 

P1819 



DCPPROGEN 

NDL 

UTIL 

DUMPANALY 

LOGGER 

DUMPANALY 

CONTROLLER 

CONTROLLER 

MCP 

MCP 

WFL 

BDMSPLI 

MCP 

DATACOM 

BACKUP 

FORTRAN 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

JOBFORMAT 

BACKUP 

DUMPALL 

ACR 

ALGOL 
ACR 

DUMPALL 

MCP 

WFL 

REORG 

MCP 

MCP 

IN-OUTPUT 

IN-OUTPUT 

MCP 

MCP 

ALGOL 

MCP 

DATACOM 

MCP 

MCP 

LOGANALY 

DATACOM 

DCPPROGEN 

MCP 

MCP 

BINDER 

BDMSCOBOL 

BACKUP 

WFL 

PRINTBIND 

DATACOM 

ALGOL 

DUMPALL 

DCPPROGEN 

DUMPANALY 

ESPOLINTRN 

MCP 

LOADER 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

UT I LOADER 

UT I LOADER 

WFL 

COBOL 

COBOL 

COBOL74 

DATACOM 

MCP 

MCP 

DUMPALL 

COPYAUD- 1 I 

MCP 

WFL 

ALGOL 



PATCH 

31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 



31 
31 
31 



31 
31 
31 
31 
31 
31 
31 



31 
31 
31 
31 



31 
31 
31 
31 
31 
31 



31 
31 
31 
31 
31 
31 



31 
31 



31 
31 
31 



31.0 
31.0 
31.0 
31.0 



31 
31 
31 



31.0 
31 .0 



31 
3 1 
31 
31 
31 



31 .0 
31.0 



31 

31 



31 .0 
31.0 



31.0 
31.0 
31.0 
31.0 



31.0. 
31.0. 
31 .0. 



31.0. 
31.0. 
31.0. 
31.0. 



31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 



31 .0. 
31.0. 



31.0. 
31.0. 
31.0. 
31.0. 



31 
31 



0008 
0009 
005 1 
0086 
0023 
0093 
0034 
0034 
021 1 
0605 

.0008 
.0367 
.0527 
.0018 
.0034 
.0168 
.0178 
.0351 
.0401 
.0387 
.0425 
.0030 
.0009 
.0003 
.0084 
.0181 
.0054 
.0004 
.0416 
.0026 
.0009 
.0584 
.0356 
.0017 
.0132 
.0346 
.0346 
0039 
.0388 
0526 
0469 
0200 
0036 
0528 
0003 
0178 
021 1 
0012 
0126 
0008 
0023 
0005 
0526 

0004 
0013 
0093 
0067 
0193 
0027 
0541 
0554 
0573 
0593 
0634 
0934 
0963 
0005 
0006 
0044 
01 17 
0134 
0183 
1015 
0165 
0416 
0002 
0007 
0353 
0046 
0043 
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DESCRIPTION 

Further Auxiliary Logic Correc 

Further Auxiliary Logic Correc 

TDATABEG IN Field Not Initializ 

DCC and DCP Station Info 

YTDFILE Update 

Descriptor Analysis 

REMOTES PO 

REMOTES PO 

FINDINPUT Vs . UNBRF 

NIF and DCPCODE Disk I/O Error 

Task Id in Task Family Declara 

Proper Printing of Length Attr 

IOTRACE 

Recon t i meou t Failure 

Buffer Reduction for LIN File 

Binding and Statistics 

CATALOG ADD Tape Files 

Un i t Le f t Ass i gned 

RERUN Vs . EOF 

RERUN Vs . EOF 

Checkpoint File Header Timesta 

CRUNCH Vs . CP 

SCR Jobs Generate JOBFORMATTER 

LP# Lost After Forms File 

ROUTINE and COPY Statements Re 

Control File Open on Abort 

String in DEFINE Too Long 

Faulty Audit Constraint 

DMPMT Short Records 

FM Vs. Saved LP 

Extra BEGIN in WFL Job Deck 

Multiple Reel Intermediate Tap 

AB Vs. EOF 

Dying Stack in WSSHERIFF 

FIBLOCK and TIMESTAMP 

FIBLOCK and TIMESTAMP 

New GOTOSOLVER 

New GOTOSOLVER 

No Error After Direct I/O Stat 

Model III Multiplexor 

Segmented Array Disk I/O 

Library Maintenance Reel Switc 

II. 6 Vs. Timestamp 

Character Count on Log Title 

Inva I i d Index 

Inva 1 i d Index 

Ass i gned 

Vs . UNBRF 
Binding Entry Points 
Inconsistent Handling of Key C 
All Copies Not Printed 
Zip with Array 

Improved Handling of Unknown I 
Segmented Array Disk I/O 
OWN Arrays in a PROCESSed Proc 
DMPMT Short Records 
LOS SOFCARR I ER=D I SCONNECT Vs. S 
Descriptor Analysis 
FORTRAN BCL Forma t t i ng 
UR Vs. Re source 
7A Tape Con t ro 1 
7A Tape Con t ro I 
7A Tape Control 
7A Tape Con t ro 1 
7A Tape Con t ro I 
7A Tape Con t ro 1 
7A Tape Con t ro 1 
7A Tape Con t ro 1 
7A Tape Con t ro 1 
7A Tape Control 
Fault on Bad Task Attribute 
INVALID INDEX in Large Code Se 
OCCURS DEPENDING Option 
OCCURS DEPENDING Option 
DCTANKING Error Handling Corre 
AUTOPRINT Vs. FM Reply 
FM Vs . Saved LP 
UL OPtion Correction 
Close New Audit Before Old 
Library Maintenance BADFILE Vs 
Chargecode Vs. DECK Statement 
Update Pointer in REPLACE BY S 
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DCCONTROL 
DCCONTROL 
Unit Left 
FINDINPUT 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



PATCH 



DESCRIPTION 



0335 


-0049 


P2272 


JOBFORMAT 


31 


.0 


.0030 


0335 


-0052 


P2571 


BACKUP 


31 


.0 


.0022 


0335 


-0053 


P2382 


JOBFORMAT 


31 


.0 


.0036 


0338 


-0011 


P2397 


DATACOM 


31 


.0 


.0821 


0339- 


-003 8 


P1937 


FORTRAN 


31 


.0 


.0031 


0342 


-0012 


P9240 


MCP 


31 


.0 


.0159 


0342 


-0013 


P2583 


DATACOM 


31 


.0 


.0979 


0342- 


-0032 


P1763 


COBOL 


31 


.0 


.0041 


0342- 


-0034 


P1820 


ACR 


31 


.0 


.0054 


0342- 


-0035 


P1820 


ACR 


31 


.0 


.0054 


0342- 


-0036 


P2009 


ACR 


31 


.0 


.0073 


0342- 


-0038 


P2272 


JOBFORMAT 


31 


.0 


.0030 


0342- 


-0041 


P2009 


ACR 


31 


.0 


.0073 


0342- 


-0042 


P2132 


ACR 


31 


.0 


.0087 


0342- 


-0051 


P2483 


RECOVERY 


31 


.0 


.0052 


0342- 


-0052 


P1912 


ACR 


31 


.0 


.0064 


0342- 


-0052 


P1912 


REORG 


31 


.0 


.0010 


0342- 


-0059 


P2412 


BUILDINQ 


31 


.0 


.0024 


0342- 


-0065 


P2536 


MCP 


31 


.0 


.0906 


0342- 


-0069 


P2497 


ACR 


31 


.0 


.0138 


0343- 


-0020 


P1715 


MCP 


31 


.0 


.0356 


0343- 


-0025 


P1772 


RJE 


31 


.0 


.0026 


0343- 


-0026 


P2414 


RECOVERY 


31 


.0 


.0048 


0343- 


-0033 


P2129 


ACR 


31 


.0 


.0084 


0343- 


-0039 


P1820 


ACR 


31 


.0 


.0054 


0345- 


-0001 


P9209 


MCP 


31 


.0 


.0164 


0345- 


-0909 


P1761 


BACKUP 


31 


.0 


.0007 


0345- 


-0910 


P2575 


BACKUP 


31 


.0 


.0023 


0345- 


-2901 


P1732 


MCP 


31 


.0 


.0390 


0345- 


-2902 


D2842 


LOGANALY 


31 


.0 


.0032 


0345- 


-2903 


P2008 


WFL 


31 


.0 


.0025 


0345- 


-2908 


P1709 


JOBFORMAT 


31 


.0 


.0019 


0345- 


-2915 


P1708 


DUMPANALY 


31 


.0 


.0035 


0345- 


-2916 


P1799 


MCP 


31 


.0 


.0442 


0347- 


-0046 


PI 181 


MCP 


31 


.0 


.0200 


0347- 


-0048 


PI 191 


MCP 


31 


.0 


0211 


0347- 


0052 


P1735 


MCP 


31 


.0 


.0417 


0348- 


-0042 


P1181 


MCP 


31 


.0. 


.0200 


0348- 


-0044 


P1852 


LOADER 


31 


.0. 


0023 


0348- 


-0044 


P1852 


LOADER 


31 


.0. 


0024 


0348- 


-0056 


P2008 


WFL 


31 


.0. 


0025 


0348- 


-0057 


P1896 


MCP 


31 


.0. 


0346 


0348- 


-0060 


P2087 


SOURCENDL 


31 


,0. 


0002 


0348- 


-0064 


P1896 


MCP 


31 


.0. 


0346 


0348- 


-0076 


P1736 


IN-OUTPUT 


31 


.0. 


0418 


0348- 


-0080 


P1731 


MCP 


31 


.0. 


0388 


0348- 


-0102 


PI 864 


MCP 


31 


,0. 


0457 


0348- 


-0103 


P1864 


MCP 


31 


.0. 


0457 


0348- 


-0110 


P2236 


ALGOL 


31 


.0. 


0147 


0348- 


-0123 


P2160 


ESPOLINTRN 


31 


.0. 


0055 


0348- 


-0128 


P2461 


UTIL 


31 


,0. 


0062 


0348- 


-0128 


P2461 


UTIL 


31 


.0. 


0063 


0348 


-0128 


P2461 


UTIL 


31 


.0. 


0067 


0348- 


-0129 


P1929 


UTIL 


31 


.0. 


0026 


0348- 


-0139 


P2374 


RJE 


31 


.0, 


0049 


0348- 


-0147 


P2528 


DUMP ALL 


31 


,0, 


0015 


0348- 


-0148 


P2514 


MCP 


31 


.0. 


0968 


0348- 


-0151 


P1733 


MCP 


31 


.0. 


0413 


0348- 


-0153 


P2212 


LOGANALY 


31 


.0, 


0024 


0348- 


-0153 


P2212 


MCP 


31 


.0. 


0582 


0348- 


-0153 


P2212 


MCP 


31 


.0. 


0621 


0348- 


-0153 


P2212 


MCP 


31 


,0. 


0648 


0349- 


-008 1 


P1862 


MCP 


31 


.0. 


0454 


0353- 


-001 1 


P1054 


MCP 


31 


.0. 


0156 


0353- 


-0020 


P1733 


MCP 


31 


.0 


0413 


0353- 


-0027 


P1786 


MCP 


31 


.0 


0430 


0353- 


-0030 


P2576 


BACKUP 


31 


.0. 


0024 


0353- 


-0030 


P2576 


BACKUP 


31 


.0 


0025 


0361- 


-0026 


P1771 


BDMSPLI 


31 


.0. 


0008 


0361- 


-0072 


P2026 


PRINTBIND 


31 


.0 


0006 


0361- 


-007 5 


P9221 


MCP 


31 


,0, 


0114 


0361- 


-0095 


P2025 


PRINTBIND 


31 


.0. 


0005 


0361- 


-0101 


P1709 


JOBFORMAT 


31 


.0, 


0019 


0361 


-0104 


P2008 


WFL 


31 


.0. 


0025 


0361- 


-0105 


D2895 


WFL 


31 


.0 




0361- 


-0107 


P1925 


RECOVERY 


31 


.0, 


0025 


0361- 


-0109 


D2843 


LOGGER 


31 


.0. 


0019 


0361- 


-0112 


P2346 


PLINTRN 


31 


.0. 


003 1 


0361- 


-0115 


P2208 


INQ 


31 


.0. 


0034 


0361- 


-0120 


P2264 


LOGGER 


31 


.0. 


0020 


0364- 


-0017 


P2579 


ALGOL 


31 


.0 


.0181 


0366- 


-0036 


P2365 


COBOL 


31 


.0, 


0131 



SCR Jobs Generate JOBFORMATTER 

Invalid Option Combination 

CLOSE Types 

Restarting DSed DCP 

INVALID INDEX, Subroutine Call 

Tape Parity Retry Vs. Tapemark 

Subtract Station Fault with No 

User Intrinsic Calls Not Scann 

Faulty Audit Constraint 

Faulty Audit Constraint 

Return Restart Areas 

SCR Jobs Generate JOBFORMATTER 

Return Restart Areas 

Eliminate Unnecessary Displays 

Quickfix May Fail on Check summ 

Reorganization of Compact Data 

Reorganization of Compact Data 

Maximum Size of DM I NQD I RECTORY 

PATH MARKED OFFLINE 

COPYAUDITVs. Audit Ioerror Sw 

Dying Stack in WSSHERIFF 

RJE AUTOPRINT Hang 

REBUILD and RECONSTRUCT Back U 

Control File Open on Abort 

Faulty Audit Constraint 

Ha It /Load with 64 Mods of Memo 

Filenames With Special Charact 

ODT Display Format 

ELAPSEDTIMELIMIT 

ABORT, ERRORS Vs. Other Option 

ELSE No Longer Ignored 

Includes LSN for Job Summary 

MOD 63 Gives False Tape Error 

PRINTLIMIT Vs. PROGRAMDUMP 

II. 6 Vs. Time st amp 

FINDINPUT Vs . UNBRF 

Reelswitch Vs. Catalog 

II. 6 Vs. Timestamp 

TD850 ODT 

TD850 ODT 

ELSE No Longer Ignored 

New GOTOSOLVER 

Correct Scrolling on TD820/TD8 

New GOTOSOLVER 

Negative Boolean 

Model III Multiplexor 

FORGETSPACE Vs. FORM 

FORGETSPACE Vs. FORM 

IF FALSE and SLINEINFO 

BASIC, Resize Format Buffer 

COPY AS Error 

COPY AS Error 

COPY AS Error 

Correct Family Not Set 

Unit Device Number 

NEWFILE Vs. Old File 

PURGIT RD Message 

READALABEL Vs. EXTMODE 

Scratchpad Parity Error 

Scratchpad Parity Error 

Scratchpad Parity Error 

Scratchpad Parity Error 

RSNINVALID 

IC Di skpacks 

READALABEL Vs. EXTMODE 

Guardfile Vs. St ackover f low 

First Level Filename Vs. Userc 

First Level Filename Vs. Userc 

Proper Printing of Length Attr 

Correct Handling of PL/I Items 

DBS STACK vs GETSTATUS 

Improved Handling of Unknown I 

Includes LSN for Job Summary 

ELSE No Longer Ignored 

File Attribute SERIALNONot Im 

ABORT Gets WAITING ON ROWLOCKO 

Summary Reports 

Eliminate SEG ARRAY Error in T 

INVALID INDEX Using Defines 

Elapsed Time of Jobs Run Throu 

String in DEFINE Too Long 

Large Record Descriptions 
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FTR NOTE SOFTWARE 



0366 

0366 

0366 

0366 

0366 

0366 

0366 

0367 

0368 

0368 

03 68 

0368 

0368 

0369 

0369 

0369 

0369 

0370 

0372 

0372 

0372 

0372 

0372 

0372 

0373 

0373 

0373 

0373 

0373 

0373 

0.374 

0374 

0374 

0374 

0374 

0374 

0374 

0374 

0374- 

0374 

03 74- 

0374- 

0374- 

0374- 

0380- 

0381- 

0382- 

0384- 

0386- 

0386- 

0386 

0390- 

0390- 

0390- 

0390- 

0393- 

0393- 

0393- 

0393- 

0393- 

0393- 

0393- 

0393- 

0397- 

0397- 

0397 

0397- 

0399 

0399 

0399 

0399- 

0399- 

0399- 

0399- 

0399- 

0399- 

0401- 

0401- 

0401- 

0401- 

0401- 

040 1- 



-0132 
-0132 
-0133 
-0142 
-9021 
-9022 
-9023 
-0010 
-0051 
-0080 
-0084 
0090 
-0090 
-0031 
-0045 
-005 1 
-0054 
-0010 
-0203 
-0203 
-0203 
-0300 
-1201 
-2598 
-0034 
-0035 
-0045 
-0046 
-0046 
-0047 
-0015 
-0033 
-0045 
-0063 
-0065 
-0074 
-0080 
-0090 
-0102 
-0121 
-0135 
-0136 
-0140 
-0141 
-0010 
-0027 
-0024 
-0005 
-0009 
-0021 
-0026 
-0013 
-0014 
-0016 
-0017 
-0075 
-0094 
-0134 
-0152 
-0162 
-0162 
-0187 
-0191 
-0003 
0005 
0020 
0021 
901 1 
9042 
9100 
9132 
9191 
9204 
9 226 
9228 
9905 
0025 
0026 
0027 
003 1 
0035 
0036 



PI 180 

PI 180 

P1725 

P1720 

P1712 

P1712 

P1724 

P2034 

D2873 

P2250 

P2272 

P2473 

P2473 

P9169 

P1770 

P2309 

P2207 

P2259 

P2274 

P2274 

P2274 

P2468 

P1921 

P2250 

P2087 

P2088 

P1902 

P1912 

P1912 

P1038 

P2314 

P1124 

P2236 

P1788 

P2310 

P2310 

P2305 

P1722 

P2008 

P2258 

P2480 

P2489 

P2382 

P2561 

P1865 

P1715 

P1715 

D2788 

P2091 

P1734 

P2014 

P1715 

P2120 

P1873 

P1876 

P1027 

PI 123 

P1717 

P2244 

P1916 

P1916 

P2627 

P2627 

P1516 

PI 171 

P1819 

P2583 

P1054 

P2253 

P9226 

P2623 

P2255 

P2320 

P1940 

D28 54 

P1029 

P1516 

P1816 

P2295 

P1516 

P2501 

P2607 



MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

MCP 

DASDL 

COBOL 

PLINTRN 

JOBFORMAT 

ACR 

ACR 

MCP 

LOADER 

BUILDINQ 

DASDL 

COBOL 

MCP 

MCP 

MCP 

FILEDATA 

DASDL 

PLINTRN 

SOURCENDL 

SOURCENDL 

REORG 

ACR 

REORG 

DASDL 

COBOL 

LTTABLEGEN 

ALGOL 

MCP 

MCP 

MCP 

MCP 

MCP 

WFL 

COBOL 

DASDL 

CONTROLLER 

JOBFORMAT 

RJE 

MCP 

MCP 

MCP 

ALGOL 

SOURCENDL 

MCP 

RECOVERY 

MCP 

WFL 

WFL 

MCP 

MCP 

JOBFORMAT 

MCP 

ACR 

ACR 

ACR 

ACR 

ACR 

BINDER 

SCR 

ALGOL 

DATACOM 

MCP 

COBOL 

MCP 

DATACOM 

COBOL 

COBOL 

LOGANALY 

COBOL 

MCP 

BINDER 

RJE 

COBOL 

BINDER 

INQ 

BUILDINQ 



PATCH DESCRIPTION 

3 1.0.0199 TAPEUNIT Vs. VOLUNIT 

3 1.0.0230 TAPEUNIT Vs. VOLUNIT 

3 1 .0.03 80 GENERATION 

31 .0.0366 Checkpoint 

31.0.0352 VOLUME DELETE 

3 1.0.0352 VOLUME DELETE 

3 1.0.0377 CATBLKSIZEF 

31.0.0043 Syntax Error for One Global Da 

3 1.0. Sort Variable Length Records 

31.0.0030 ISAM, Eliminate Superhalt 

31.0.0030 SCR Jobs Generate JOBFORMATTER 

31.0.0129 Incorrect Statistics Totals 

31.0.0132 Incorrect Statistics Totals 

31.0.0085 Processor Priority 

31.0.0020 OLAYROW Greater Than 1200 

31.0.0020 Vague Link and Subset Referenc 

31.0.0039 INFO Table Incorrect 

3 1.0.0110 ANSI74 LINAGE WRITE AT END OF 

31.0.0692 CLOSE Errors Fatal 

31.0.0825 CLOSE Errors Fatal 

31.0.0976 CLOSE Errors Fatal 

31.0.0010 6250 BPI Tapes Recognized 

31.0.0030 Global Chain Not Overlayed 

31.0.0030 ISAM, Eliminate Superhalt 

31.0.0002 Correct Scrolling on TD820/TD8 

31.0.0001 Changes to POLLCONTENTION Line 

31.0.0011 Compact Data Sets with Record 

31.0.0064 Reorganization of Compact Data 

31.0.0010 Reorganization of Compact Data 

31.0.0042 INVALID INDEX 

31.0.0115 LOCK Statements 

31.0.0002 User Specified Tables 

31.0.0147 IF FALSE and SLINEINFO 

31.0.0433 LOOKFORIT Control State 

31.0.0729 Class Count UFLO 

31.0.0729 Class Count UFLO 

31.0.0737 STICKY Memory 

31.0.0373 Reader Buss Parity Error 

31.0.0025 ELSE No Longer Ignored 

31.0.0105 INVALID INDEX in Bad REPORT Wr 

31.0.0056 Disallow Data Set with No Name 

31.0.0102 PRINTLABEL 

31.0.0036 CLOSE Types 

31.0.0051 "*ME" Fails on Specific Filena 

31.0.0459 Library Maintenance Open Error 

31.0.0356 Dying Stack in WSSHERIFF 

31.0.0356 Dying Stack in WSSHERIFF 

31.0. Clarification of INTEGER Funct 

31.0.0008 Correct Transmission of NUL Ch 

31.0.0416 FM Vs. Saved LP 

31.0.0026 Correct Rebuild Restart 

31.0.0356 Dying Stack in WSSHERIFF 

31 .0.0036 History 

31.0.0018 Incorrect Code for File Title 

31.0.0467 RESERVE AS 

31.0.0148 WASTEMPATCHECK 

31.0.0006 SEG ARRAY Printing MCS String 

3 1.0.0364 MOVE Vs. LOG 

31.0.0098 Return of Compact Record 

31.0.0069 Two Halt/Loads Causes Recovery 

31.0.0074 Two Halt/Loads Causes Recovery 

31.0.0149 Deadlock During Update and Del 

31.0.0149 Deadlock During Update and Del 

31.0.0012 Binding Entry Points 

31.0.0011 VERIFY Does Not Recognize 5N D 

31.0.0043 Update Pointer in REPLACE BY S 

31.0.0979 Subtract Station Fault with No 

31 .0.0156 IC Diskpacks 

31.0.0048 SELECT Statement Syntax Errors 

31.0.0133 Sticky MEM Recursive GETSPACE 

31.0.1015 DCTANKING Error Handling Corre 

31.0.0102 UNITS Attribute 

31.0.0125 Moves of" Numeric Literals 

3 1.0.0027 Firmware ID in LH ODT Command 

3 1.0. MOVE Statement 

3 1.0.0150 Queue Error Vs. THEQUE 

31.0.0012 Binding Entry Points 

31.0.0033 QT Printer Files Saved Over Ha 

31.0.0109 Exception Code Erroneously Che 

3 1.0.0012 Binding Entry Points 

31.0.0045 Loss of Minus Sign 

31.0.0026 Selection Using Key Data Items 
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PATCH 



0402 

0402 

0402 

0405 

0405 

0405 

0405 

0405 

0405 

0405 

0405 

0405 

0405 

0405 

0405 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0406 

0410 

0410 

0410 

0410 

0410 

0410 

0410 

0410 

0410 

0410- 

0410- 

0411 

0415 

0415- 

0415 

0415- 

0415 

0415 

0415 

0415- 

0415- 

0415- 

0415 

0415- 

0415 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 

0415- 



0002 
-0018 
-0100 
-0006 
-0022 
-0041 
-0045 
-0045 
-0045 
-0045 
-0045 
-0045 
-0046 
-0048 
-0053 
-0022 
-0027 
-0030 
-0039 
-0044 
-0046 
-0049 
-0051 
-0055 
-0055 
-0055 
-0055 
-0056 
-0057 
-0059 
-0060 
-0060 
-0060 
-0069 
-0072 
-0003 
-0006 
-0021 
-0026 
-0027 
-0029 
-0030 
-0030 
-0030 
-0031 
-0037 
-0006 
-0025 
-0032 
-003 3 
-0060 
-0108 
-0120 
-0154 
-0159 
-0163 
-0168 
-0170 
-0170 
-0172 
-0173 
-0176 
-0190 
-0193 
-0195 
-0198 
-0198 
-0198 
-0198 
-0198 
-0198 
-0199 
-0202 
-0204 
-0207 
-0207 
-0208 
-0209 
-0214 
-0217 
-0219 
-0221 



P1791 

P1516 

P2592 

P2038 

P2062 

P1717 

P2495 

P2495 

P2495 

P2495 

P2495 

P2495 

P1802 

P1923 

P2095 

P2332 

P1715 

P2008 

P1830 

P1919 

P1821 

D2695 

P2007 

P2010 

P2010 

P2010 

P2010 

P1775 

P1786 

P1925 

P2130 

P2130 

P2130 

P2570 

P2484 

PI 136 

P1939 

P1715 

P2204 

P2011 

P2188 

P1847 

P1847 

P1847 

P2125 

P2563 

P2125 

P2021 

P9149 

P9149 

P2299 

P1738 

P2330 

P1738 

P1924 

P2239 

P1738 

P1922 

P1922 

D2608 

P1820 

P1915 

P1798 

P1932 

P1907 

P2495 

P2495 

P2495 

P2495 

P2495 

P2495 

P1798 

P2202 

P1821 

P1916 

P1916 

P1913 

P2027 

P1921 

P1798 

P1798 

P2305 



ALGOL 

BINDER 

FORTRAN 

COBOL 

COBOL 

MCP 

ACR 

ACR 

ACR 

ACR 

DMCTL 

DMCTL 

ACR 

LOADDUMP 

ACR 

BDMSCOBOL 

MCP 

WFL 

WFL 

BUILDINQ 

ACR 

BUILDINQ 

WFL 

ACR 

PROPERTIES 

RECOVERY 

RECOVERY 

DASDL 

MCP 

RECOVERY 

ACR 

PROPERTIES 

RECOVERY 

BACKUP 

UTIL 

IN-OUTPUT 

FORTRAN 

MCP 

RJE 

BUILDINQ 

FILECOPY 

F1LECOPY 

FILECOPY 

FILECOPY 

WFL 

RJE 

WFL 

MCP 

MCP 

MCP 

BDMSCOBOL 

ACR 

BDMSCOBOL 

ACR 

LOADDUMP 

ALGOL 

ACR 

ACR 

DMCTL 

ACR 

ACR 

ACR 

MCP 

UTIL 

ACR 

ACR 

ACR 

ACR 

ACR 

DMCTL 

DMCTL 

MCP 

BDMSCOBOL 

ACR 

ACR 

ACR 

ACR 

PRINTAUDIT 

DASDL 

MCP 

MCP 

MCP 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 



31 .0 
31.0 
31.0 
31.0 
31.0 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 



31.0 
31.0 
31.0 
31.0 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 . 



31.0. 
31.0. 
31.0. 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 



31.0. 
31.0. 
31.0. 
31.0. 
31 .0. 



31 
31 
31 
31 
31 
31 
31 
31 



31.0 
31.0 
31.0 



31 

31 
31 

31 
31 
31 
31 

31 
31 



.0039 
.0012 
.0047 
0053 
0084 
0364 
0131 
0135 
0136 
0137 
0016 
0020 
0050 
0004 
0077 
0122 
0356 
0025 
0017 
0008 
0055 
001 1 
0021 
0075 
0011 
0027 
0032 
0021 
0430 
0025 
0085 
0013 
0031 
0021 
0065 
0195 
0033 
0356 
0040 
0009 
0008 
0012 
0013 
0015 
0044 
0054 
0044 
0483 
0066 
0066 
0112 
0041 
01 16 
0041 
0005 
0150 
0041 
0066 
0007 
0021 
0054 
0068 
0439 
0033 
0057 
0131 
0135 
0136 
0137 
0016 
0020 
0439 
0095 
0055 
0069 
0074 
0065 
0005 
0030 
0439 
0439 
0737 
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DESCRIPTION 

No Error After Direct I/O Stat 

Binding Entry Points 

Core Estimate with $SET SEPARA 

Comparison of Index Data Names 

SELECTION Expressions 

MOVE Vs . LOG 

DS DBS Vs. File Attributes 

DS DBS Vs. File Attributes 

DS DBS Vs. File Attributes 

DS DBS Vs. File Attributes 

DS DBS Vs. File Attributes 

DS DBS Vs. File Attributes 

Audit File Switch for disk or 

INVALID INDEX with Deleted Str 

Correct Deletion in Unordered 

INVALID INDEX 

Dying Stack in WSSHERIFF 

ELSE No Longer Ignored 

Prevent SEG ARRAY Error when J 

Ver i f i ed Link 

INVALID INDEX after Audit Time 

Sets with Group Keys 

REMOVE Command 

Checksum Error 

Checksum Error 

Checksum Error 

Checksum Error 

Eliminate SEG ARRAY Error 

Guardfile Vs. S t ackover f 1 ow 

ABORT Gets WAITING ON ROWLOCKO 

ROWLOCKOUTAUDIT Errors 

ROWLOCKOUTAUDIT Errors 

ROWLOCKOUTAUDIT Errors 

Filenames Limited to 60 Charac 

INITIALIZE of Global Data 

Tape Close Vs. MYUSE 

Run Time Problems with Very La 

Dying Stack in WSSHERIFF 

"•ME COPIES 2" Vs. Resize of F 

Occurring Groups 

Punched Output 

II. 9 WFL 

II. 9 WFL 

II. 9 WFL 

Fault on Bad Task 

REMCP Fi le Titles 

Fault on Bad Task 
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At t r ibut e 
on Word Boun 
At t r ibut e 
Allow Statistics To Be Printed 
BADROW 
BADROW 

Bad Syntax Checking in DB Stat 
Statistics Midnight Overlap 
Listing of the Variable Format 
Statistics Midnight Overlap 
Title Attribute Error 
Compiler Loop on DATABASE Decl 
Statistics Midnight Overlap 
INV OP in JODISKADDRESS 
INV OP in IODISKADDRESS 
Fault Handling in ACCESSROUTIN 
Faulty Audit Constraint 
COPYAUDIT Not Zipped if Error 
DMS Programs Swapped Out "FORE 
IOERROR on Tape 

to Lower Value 

Attributes 

At t r i butes 

Attributes 

Attributes 

Attributes 

Attributes 

"FORE 



Reset Syncpoint 

DS DBS Vs. Fi le 

DS DBS Vs. Fi le 

DS DBS Vs . Fi le 

DS DBS Vs . Fi le 

DS DBS Vs . Fi le 

DS DBS Vs. Fi le 

DMS Programs Swapped Out 

Bad DMS Invoke Listing 

INVALID INDEX after Audit Time 

Two Halt/Loads Causes Recovery 

Two Halt/Loads Causes Recovery 

Duplicate Audit Block If Switc 

Hex Dump of Block 

Global Chain Not Overlayed 

DMS Programs Swapped Out "FORE 

DMS Programs Swapped Out "FORE 

STICKY Memory 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE PATCH 



0415- 


-0230 


P2295 


COBOL 


31 . 


0. 


0109 


0415- 


-0240 


D2962 


COBOL 


3 1 . 


0. 




0415- 


-0242 


P2497 


ACR 


31 . 


0. 


0138 


0417- 


-2012 


P2001 


WFL 


31 . 


0. 


0022 


0417- 


-2014 


PI 72 1 


MCP 


31 . 


0. 


037 1 


0417- 


■2015 


P1713 


MCP 


31 . 


0. 


0353 


0417- 


■2023 


P2296 


FILEDATA 


31 . 


0. 


0008 


0419- 


-0008 


D2874 


COBOL 


31 . 


0. 


0134 


0419- 


-0008 


D2874 


COBOL 7 4 


31 . 


0. 


0183 


0419- 


-0009 


D2874 


COBOL 


31 . 


0. 


0134 


0419- 


-0009 


D2874 


COBOL 7 4 


31 . 


0. 


0183 


0421- 


■0005 


P2122 


WFL 


31 . 


0. 


0039 


0421- 


-0007 


P2300 


MCP 


31 . 


0. 


0719 


0422- 


0002 


P2158 


INTERFACE 


31 . 


0. 


0011 


0427- 


■0007 


P2577 


LOADER 


31 . 


0. 


0035 


0427- 


•0010 


P1860 


IN-OUTPUT 


31 . 


0. 


0452 


0429- 


■0041 


P2240 


ALGOL 


31 . 


0. 


0151 


0429- 


■9005 


P23 58 


DUMPANALY 


31 . 


0. 


0067 


0429- 


-9005 


P2358 


MCP 


31 . 


0. 


0783 


0430- 


■0004 


P1715 


MCP 


31 . 


0. 


0356 


0430- 


■0007 


P1825 


INQ 


31 . 


0. 


0031 


0430- 


■0009 


P1828 


REORG 


31 . 


0. 


0006 


0430- 


-0010 


P1903 


REORG 


31 . 


0. 


0012 


0430- 


-001 1 


P1926 


REORG 


31 , 


0. 


0008 


0430- 


-0014 


P2387 


ACR 


31 


0. 


01 18 


0430- 


-0017 


P2189 


LOGANALY 


31 


0. 


0022 


0431- 


-0007 


D2836 


ALGOL 


31 


0. 




0435- 


-0043 


P2088 


SOURCENDL 


31 . 


0. 


0001 


0435- 


-0044 


PI901 


ACR 


31 


0. 


0072 


0435- 


-0047 


P2249 


INTERFACE 


31 


0. 


0010 


0435- 


-0049 


P2266 


MCP 


31 





0651 


0435- 


-0050 


P2273 


MCP 


31 


0. 


0689 


0435- 


-0053 


P2388 


BUILDINQ 


31 


0. 


0023 


0435- 


-0054 


P2389 


INQ 


31 


,0. 


0042 


0436- 


-0003 


P2296 


FILEDATA 


31 


,0. 


0008 


0439- 


-0001 


P1763 


COBOL 


31 


,0, 


0041 


0439- 


-0017 


P1879 


ALGOL 


31 


,0. 


0049 


0439- 


-0018 


P2008 


WFL 


31 


.0. 


0025 


0439- 


-0038 


D2896 


WFL 


31 


.0. 




0444- 


-0002 


P1715 


MCP 


31 


.0 


0356 


0445- 


-0015 


D2959 


COBOL 


31 


.0 




0447- 


-0021 


P2109 


DATACOM 


31 


.0, 


0529 


0451- 


-0007 


P2333 


BDMSCOBOL 


31 


.0 


0126 


0454- 


-9003 


P1666 


COBOL 


31 


.0 


.0040 


0454- 


-9003 


P1666 


COBOL74 


31 


.0 


0100 


0454- 


-9014 


P2448 


MCP 


31 


.0 


.0858 


0454- 


-9902 


P2262 


LOGANALY 


31 


.0 


.0030 


0454- 


-9904 


P1875 


WFL 


31 


.0 


.0019 


0455- 


-0002 


P1712 


MCP 


31 


.0 


.0352 


0455- 


-0006 


P1725 


MCP 


31 


.0 


.0380 


0455- 


-0007 


P1715 


MCP 


31 


.0 


.0356 


0460- 


-0005 


P1850 


FORTRAN 


31 


.0 


.0020 


0460- 


-0007 


D2822 


FORTRAN 


31 


.0 


.0034 


0460- 


-0010 


P1874 


FORTRAN 


31 


.0 


.0026 


0461 


-0078 


P1734 


MCP 


31 


.0 


.0416 


0462- 


-0005 


P2500 


INQ 


31 


.0 


.0044 


0462 


-0008 


P2398 


UTIL 


31 


.0 


.0060 


0463 


-9017 


D2879 


PL I 


31 


,0 




0463 


-9036 


P2308 


CONTROLLER 


31 


.0 


.0083 


0464 


-0007 


P1826 


INQ 


31 


.0 


.0032 


0464 


-0008 


P2580 


BACKUP 


31 


.0 


.0026 


0464- 


-0010 


P2557 


NDL 


31 


.0 


.0017 


0464 


-0053 


D2787 


ALGOL 


31 


.0 




0467 


-0002 


D2894 


WFL 


31 


.0 




0467 


-0006 


P2318 


COBOL 


31 


.0 


! 012 1 


0467 


-0016 


P1782 


MCP 


31 


.0 


.0389 


0467 


-0021 


P1938 


FORTRAN 


31 


.0 


.0032 


0467 


-0030 


P1887 


COMPARE 


31 


.0 


.0003 


0467 


-0040 


P2008 


WFL 


31 


.0 


.0025 


0467 


-0049 


P2272 


JOBFORMAT 


31 


.0 


.0030 


0467 


-0053 


P2318 


COBOL 


31 


.0 


.0121 


0467 


-0054 


P1768 


DUMPALL 


31 


.0 


.0004 


0471 


-0001 


D2786 


ALGOL 


31 


.0 




0473 


-0001 


P2443 


DUMPALL 


31 


.0 


]0013 


0473 


-0006 


P1794 


RJE 


31 


.0 


.0027 


0474 


-1020 


P1820 


ACR 


31 


.0 


.0054 


0474 


-1022 


P1738 


ACR 


31 


.0 


.0041 


0474 


-1024 


P1715 


MCP 


31 


.0 


.0356 


0474 


-1040 


P2129 


ACR 


31 


.0 


.0084 


0474 


-1042 


P1825 


INQ 


31 


.0 


.0031 


0475 


-0005 


P2250 


PLINTRN 


31 


. 


.0030 


0476 


-0001 


P2364 


MCP 


31 


. 


. 0779 



DESCRIPTION 

Exception Code Erroneously Che 

OBJECT-COMPUTER Paragraph 

COPYAUDIT Vs. Audit Ioerror Sw 

Zip With Array 

LINKLISTINSERT Vs . XTEND 

Library Maintenance BADFILE Vs 

Allow CANDE LFILES with No Di 

OCCURS DEPENDING Option 

OCCURS DEPENDING Option 

OCCURS DEPENDING Option 

OCCURS DEPENDING Option 

Reserved Words as Fami 1 y names 

MPX Vs Tape Par i ty 

INVALID INDEX in Data Base Int 

B9246 Drum Printer in Dump 

FIBEOF 

Remove "?" from ALPHA6 

OVERLAYCF 

OVERLAYCF 

Dying Stack in WSSHERIFF 

Display of All-Fraction Items 

Link Fixup in Variable Format 

Generation of Manual Subsets 

Block Initialization for Direc 

Erroneous Not Found Result 

Cardnumber Vs. P3 Word 

Arithmetic Function VALUE 

Changes to POLLCONTENTION Line 

LOCK TO MODIFY DETAILS 

GROUP Items Invoked Incorrect 1 

Security Vs. Backup 

RESERVE Loop 

Embedded Sets in Logical Data 

Find Via Self-Correcting Link 

Allow CANDE LFILES with No Di 

User Intrinsic Calls Not Scann 

Syntax Errors Not Being Report 

ELSE No Longer Ignored 

Change Filename Using "(PACK)" 

Dying Stack in WSSHERIFF 

File Attribute lORECORDNUM 

Set Up Line Control Index 

Inconsistent Handling of Key C 

FILE-LIMIT Statement Caused IN 

FILE-LIMIT Statement Caused IN 

CL READALABEL 

Garbage Output on UNSORTED 

Concatenation of More Than 15 

VOLUME DELETE 

GENERATION 

Dying Stack in WSSHERIFF 

Multiple Entry Points with OPT 

Binding and Statistics 

Binding FORTRAN and ALGOL 

FM Vs . Saved LP 

Use of Defines in Certain Cont 

Incorrect Selection of Structu 

Clarification of F I XEDOVERFLOW 

CONT6 GETDISK 

Display of Null Items 

BACKUP Vs. System Without DISK 

Exchanged DCP Vs. Auxiliary Lo 

READ on the B5500 Vs. the B670 

WFL Manual Corrections 

XREF 

Guardf i 1 e Vs . DS 

Internal Compiler Fields Excee 

Usercode Attached File Titles 

ELSE No Longer Ignored 

SCR Jobs Generate JOBFORMATTER 

XREF 

DMPMT Short Records 

SLOADINFO, SDUMPINFO Yield Syn 

No File when Equating Tape to 

WFLCOMPILER Not Going to EOT 

Faulty Audit Constraint 

Statistics Midnight Overlap 

Dying Stack in WSSHERIFF 

Control File Open on Abort 

Display of All-Fraction Items 

ISAM, Eliminate Superhalt 

SIB Env i ronmen t 



MARK 3 . 1 



PAGE 479 



FTR ACTION FABLE 

FTR NOTE SOFTWARE 



PATCH 



DESCRIPTION 



0479-0002 P2125 WFL 31.0.0044 Fault on Bad Task Attribute 

04*8-0003 P1444 BUILDINQ 31.0.0013 Automatically Selects Restart 

0490-0001 P2202 BDMSCOBOL 31.0.0095 Bad DMS Invoke Listing 

0490-0002 P',768 DUMPALL 31.0.0004 DMPMT Short Records 

0490-0004 P!920 DASDL 3 1.0.0029 Valid OPEN PARTITIONS Attribut 

0491-000! P25 15 DUMPANALY 3 1.0.0086 DCC and DCP Station Info 

0491-0002 P234! COBOL 31.0.0132 COBOL No Longer Ignores Mispla 

049i-OOC? P24-4 ACR 31.0.0134 Free Records on Abort Exceptio 

:; vK-ni.o: P2250 PLINTRN 31.0.0030 ISAM. Eliminate Superhalt 

ii:o-.-:W;i.).- p 2 1 1 3 ALGOL 31.0.0134 INVALID OP in Freefieid WRITE 

P242S MCP 31.0.0848 Uninitiated I/O Dump 

P2430 MCP 31.0.0867 New High Order Priority Scheme 

P2430 SCR 31.0. New High Order Priority Scheme 

P24 33 MCP 31.0.0869 Correct TERMINATE Vs . BLOCKEXI 

P2 3 0< CONTROLLER 3 1.0.0083 CONT6 GETD1SK 

P 2 : 8 CONTROLLER 3 1.0.0083 CONT6 GETD 1 SK 

P2 25 5 COBOL 3 1.0.0102 UNITS Attribute 

P1823 BUILDINQ 31.0.0005 Enforce Answer on Update Quest 

PI824 BUILDINQ 31.0.0006 Data Set Selection Option Enfo 

P2583 DATACOM 31.0.0979 Subtract Station Fault with No 

P2256 COBOL 31.0.0103 Code Segment Size Exceeded 

P221i REORG 31.0.0025 Fixup of Empty Variable Format 

P1763 COBOL 31.0.0041 User Intrinsic Calls Not Scann 

P2580 BACKUP 31.0.0026 BACKUP Vs. System Without DISK 

P228h MCP 31.0.0652 GETSTATUS UNIT Vs. DISKPACKSEA 

P1952 MCP 31.0.0645 Tape Open 

P225o F1LEDATA 31.0.0008 Allow CANDE LFILES with No Di 

P2004 BACKUP 31.0.0011 BFILE Label Equaton 

P2126 WFL 31.0.0046 Chargecode Vs. DECK Statement 

1". 70 5 CONTROLLER 3 1.0.0034 REMOTES PO 

P2007 WFL 31.0.0021 REMOVE Command 

P2587 ALGOL 31.0.0182 Syntax Error with SINTRINSICS 

P2417 ITIL 31.0.0061 FLUSHDB Opt i on Correction 

P23I3 COBOL 31.0.0114 Incorrect SORT Statement 

P2255 COBOL 3 1.0.0102 UNITS Attribute 

P2045 COBOL 31.0.0062 Simple Literal Compares 

P2189 LOGANALY 31.0.0022 Cardnumber Vs. P3 Word 

P22 5 2 COBOL 31.0.009 7 Statistics Not Correct for STO 

P2252 COBOL7 4 31.0.0149 Statistics Not Correct for STO 

P2377 COBOL 31.0.0136 INSPECT Verb Slow Execution 

D2894 WFL 31.0. WFL Manual Corrections 

P2261 DUMPALL 31.0.0009 INTMODE of HEX or SINGLE 

PIsoO IN-OUTPUT 3 1.0.0452 FIBEOF 

P2272 JOBFORMAT 31.0.0030 SCR Jobs Generate JOBFORMATTER 

P2481 INQ 31.0.0043 Fault Alpha Control Item Break 

P 1 8 1 1 COBOLTABLE 3 1.0. 0003 LI STACK Op t i on 

P2261 DUMPALL 31.0.0009 INTMODE of HEX or SINGLE 

PI 7 72 RJE 31.0.0026 RJE AUTOPRINT Hang 

P1795 RJE 31.0.0028 LSNRAY Vs. Stations with NO-LI 

P1814 RJE 31.0.0030 Swapping Print Queues Vs. Stat 

P25 36 MCP 3 1.0.0906 PATH MARKED OFFLINE 

P184! ESPOLINTRN 31.0.0030 BASIC Binary Files 

P1772 RJE 31.0.0026 RJE AUTOPRINT Hang 

P2580 BACKUP 31.0.0026 BACKUP Vs. System Without DISK 

P22Q6 FILEDATA 3 1.0.0008 Allow CANDE LFILES with No Di 

P2397 DATACOM 31.0.0821 Restarting DSed DCP 

P2203 SOURCENDL 3 1.0.0012 Line TOGS and TALLYS Cleared 

P2383 JOBFORMAT 31.0.0037 JOB ENTERED SYSTEM Time 

P2333 BDMSCOBOL 31.0.0126 Inconsistent Handling of Key C 

P1715 MCP 31.0.0356 Dying Stack in WSSHERIFF 

P2295 COBOL 31.0.0109 Exception Code Erroneously Che 

P2347 ACR 31.0.0106 Ordered Available Table Corrup 

P2350 -VCR 31.0.0110 ORDERED Data Set Improper Audi 

P2550 ACR 31.0.0124 ORDERED Data Set Improper Audi 

P2210 REORG 31.0.0024 Index Random, Random Shadow Fi 

P2260 COBOL 31.0.0111 Random File Getting Serial Wr i 

D2S56 DUMPANALY 31.0. Interactive Syntax Errors 

P2350 ACR 31.0.0110 ORDERED Data Set Improper Audi 

P2350 ACR 3 1.0.0124 ORDERED Data Set Improper Audi 

P215o REORG 31.0.0017 Unused Fold Words 

P2295 COBOL 31.0.0109 Exception Code Erroneously Che 

P1 T 68 DUMPALL 31.0.0004 DMPMT Short Records 

P2113 LOGANALY 3 1.0.0021 Halt/Load Records 

P2S76 BACKUP 31.0.0024 First Level Filename Vs. Userc 

P2576 BACKUP 31.0.0025 First Level Filename Vs. Userc 

P2354 DASDL 31.0.0047 Text Generated for Group Key w 

P2268 MCP 3 1.0.0662 CL Vs. AB 

P2203 SOURCENDL 3 1.0.0012 Line TOGS and TALLYS Cleared 

P2404 NDL 31.0.0012 Eliminate Looping on Severe Er 

P2203 SOURCENDL 3 1.0.0012 Line TOGS and TALLYS Cleared 

P1942 RJE 31.0.0037 Restartfile Name SEG ARRAY Err 

P1037 RJE 31.0.0046 Reconfiguration with Active AU 



00 5 - 



1U05- 
1009. 
; 009 
: ()0 9- 
1009 
1009 
1011 
1012 
10 13- 
1016- 
i i o ■ 
10 16- 
! 1 6 ■ 
1016 
1 1 o 
1 020- 
i 2 0- 
i 2 ! - 
1 2 S - 
1 2:- 
10 2 4- 
1027- 
1 2 a - 
: 3 3 - 
i 3 5 ■ 
10 3 5- 
10 3 5- 
| () i < . 

! 3 o - 
10 3 6- 
I 3 7 - 
1038 

103 8- 

i 3 y - 

1040- 
1040- 
1040- 

104 1- 

104 2- 
1042- 
1042- 
104 2- 
! 4 2 ■ 
1042- 
1 04o- 
1046- 
1 ii-to- 
1 04 6- 
i 4 o - 
! 4 6 - 
104 n - 
i 40- 
! !U!>- 
; 046- 
10 4 0- 
1 4 fi - 
1 i.l 4 o - 
1 4(1- 
1 4 fi - 
1 '■} 4 6 - 
1046- 
1040- 
10-17- 
104 9- 
1050- 
10 50- 
: 5 - 
10 5 0- 



i; i 

-00! 2 
-0012 
-00 1 3 
-002 1 
■U02 5 
-00 2 9 
■0030 
■0033 
0003 
000 1 
'100! 
•00 lo 
00 3 2 
■9004 
■90 12 
9 2 * 
902 7 
5 00" 
50 14 
000 9 
00 ! 1 
5 04 
i)00 5 

1 5 
0007 
000! 

001 I 
00 I 3 
00 1 3 
00 14 

9 ' 1 
9918 
0009 
990! 
9904 
00 1 
0002 
0005 
000 7 
000 1 

oo! ; 

00 1 7 
00 i 8 
00 20 
00 2 3 
00 3 o 
00! 



00 2 1 
00 2 2 
00 2 2 
002 5 
00 2 7 
00 2 8 
00 2 9 
2 >> 
.10 :0 
■HI 14 
5 5 
005" 
00 3 8 
00 3 8 
0048 
000 5 
00 8 
0002 
0004 
00 15 
■00 1 5 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



PATCH 



DESCRIPTION 



1050-0019 

1050-0022 

1050-0024 

1050-0026 

1052-0003 

1052-0029 

1056-0005 

1060-0001 

1060-0001 

1062-0004 

1067-0001 

1067-0003 

1067^0003 

1067-0005 

1067-0009 

1067-0012 

1067-0013 

1067-0015 

1067-0016 

1067-0016 

1067-0018 

1067-0022 

1067-0022 

1067-0024 

1067-0030 

1067-0033 

1067-0033 

1069-0009 

1069-0013 

1069-0014 

1071-0004 

(07 1-0005 

1079-0001 

1079-0001 

1079-0002 

108 1-0001 

1086-0009 

1094-1064 

1094-1064 

1 100-0004 

1 100-0007 

1 100-0007 

1 100-0007 

1 100-0007 

1 101-0001 

1 101-0006 

1 104-9001 

I 108-0005 

1 1 16-0012 

1 127-0014 

1 127-0023 

1 143-0005 

1 143-0007 

1 143-0008 

1 143-0012 

1 143-0022 

1 143-0027 

1 143-0029 

1 143-0029 

1 143-0030 

1 143-0043 

1 143-0043 

1 143-0043 

1 143-0061 

1 143-0068 

71 16-0063 

71 16-0063 

71 16-0063 

7122-0018 

7126-01 13 

7142-0049 

7142-0049 

7144-0030 

7144-0030 

7144-0030 

7144-0030 

7144-003 1 

7144-0038 

7144-0038 

7144-0038 

7 144-0042 

7144-0042 



PI 8 14 

P2339 

D2844 

P1579 

P1742 

P2536 

P2208 

P1912 

P1912 

P2062 

P1779 

P191 1 

P191 1 

P2352 

P2202 

P2207 

P2191 

P2347 

P2351 

P23 5 1 

P2380 

P1916 

P1916 

P1820 

P2482 

P2546 

P2546 

P2390 

P2589 

P2355 

P2360 

P2360 

P235I 

P2351 

P2347 

P2444 

P1802 

P2473 

P2473 

P2342 

P2010 

P2010 

P2010 

P2010 

P2254 

P2254 

P2360 

P1794 

P2484 

P2479 

P2584 

P2385 

P2513 

P2445 

P2386 

P2580 

P2555 

D2568 

D2568 

D296I 

P2461 

P2461 

P2461 

P2556 

P1775 

P2130 

P2130 

P2 130 

D2893 

P2612 

P1916 

P1916 

P2010 

P2010 

P2010 

P2010 

P2453 

P2130 

P2130 

P2130 

P2495 

P2495 



RJE 

COBOL 

LOGGER 

RJE 

ACR 

MCP 

INQ 

ACR 

REORG 

COBOL 

UTIL 

ACR 

PROPERTIES 

ACR 

BDMSCOBOL 

DASDL 

DASDL 

ACR 

ACR 

ACR 

COBOL 

ACR 

ACR 

ACR 

RECOVERY 

MCP 

MCP 

UTIL 

REORG 

DASDL 

ACR 

ACR 

ACR 

ACR 

ACR 

NDL 

ACR 

ACR 

ACR 

COBOL 

ACR 

PROPERTIES 

RECOVERY 

RECOVERY 

COBOL 

COBOL 

ACR 

RJE 

UTIL 

DASDL 

MCP 

PLI 

MCP 

PLI 

PLI 

BACKUP 

FILECOPY 

DASDL 

PROPERTIES 

BDMSCOBOL 

UTIL 

UTIL 

UTIL 

LOGGER 

DASDL 

ACR 

PROPERTIES 

RECOVERY 

COBOL 

INQ 

ACR 

ACR 

ACR 

PROPERTIES 

RECOVERY 

RECOVERY 

ACR 

ACR 

PROPERTIES 

RECOVERY 

ACR 

ACR 



3 1.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 
31.0. 



31 
31 
31 
3 1 
31 
31 
31 
31 
31 
31 



31 .0 
31.0 



31 
31 



31.0 
31.0 
31.0 
31.0 
31.0 
31.0 



31 
31 
31 
31 
31 
31 
31 
31 



31.0 
31.0 
31.0 
31.0 



31 
31 
31 
31 
31 
31 
31 
31 
31 



31.0 
31.0 
31.0 



0030 
0128 
002 1 
0045 
0042 
0906 
0034 
0064 
0010 
0084 
0015 
0063 
0010 
01 12 
0095 
0039 
.0036 
.0106 
.0111 
.0123 
.0138 
.0069 
.0074 
.0054 
.005 1 
.0850 
.0860 
.0055 
.0032 
.0048 
.0104 
.0104 
.0111 
0123 
0106 
0015 
0050 
0129 
0132 
0133 
0075 
001 1 
0027 
0032 
0099 
0099 
0104 
0027 
0065 
0055 
0983 
0050 
0969 
0051 
0049 
0026 
0019 
0013 
0002 



31 
31 
31 
31 
31 
31 



31.0 
31.0 
31.0 
31.0 
31.0 
31.0 
31.0 
31.0 
3 1.0 
31.0 
31.0 
31.0 
31.0 
31.0 
3 1.0 
31.0 



.0062 
.006 3 
0067 
.0024 
0021 
0085 
0013 
0031 

0047 
0069 
0074 
0075 
001 1 
0027 
0032 
0127 
0085 
0013 
0031 
0131 
0135 



Swapping Print Queues Vs. Stat 
Analyze Option Duplicating Lin 
Last STATISTICS Interval Saved 
STATIONID or USER Changes 
CREATE/STORE Incorrect for Rem 
PATH MARKED OFFLINE 
INVALID INDEX Using Defines 
Reorganization of Compact Data 
Reorganization of Compact Data 
SELECTION Expressions 
INVALID INDEX Printing Ordered 
Remaps of Ordered Data Sets wi 
Remaps of Ordered Data Sets wi 
ORDERED Data Set Loop 
Bad DMS Invoke Listing 
I NFO Table Incorrect 
Erroneous Key Changed Errors 
Ordered Available Table Corrup 
ORDERED ADDRESSCHECK, CHECKSUM 
ORDERED ADDRESSCHECK, CHECKSUM 
SORT Dynamic File Attributes 
Two Halt/Loads Causes Recovery 
Two Halt/Loads Causes Recovery 
Faulty Audit Constraint 
"FAILED TO SET END-OF-FILE" Me 
DD Vs . CM 
DD Vs . CM 

CFNAME Array Size Increased 
Record Format Change 
Last Scan Saved 

Store of ORDERED with BLOCKSIZ 
Store of ORDERED with BLOCKSIZ 
ORDERED ADDRESSCHECK, CHECKSUM 
ORDERED ADDRESSCHECK, CHECKSUM 
Ordered Available Table Corrup 
Erroneous Syntax Error on De f i 
Audit File Switch for disk or 
Incorrect Statistics Totals 
Incorrect Statistics Totals 
SEARCH Nested in IF Statement 
Checksum Error 
Checksum Error 
Checksum Error 
Checksum Error 

External PROCEDURE Dec 1 a ra t i on 
External PROCEDURE Dec I ara t i on 
Store of ORDERED with BLOCKSIZ 
WFLCOMPILER Not Going to EOT 
INITIALIZE of Global Data 
Maximum Length DBNAME In Quote 
Avoid Extra Mom on B6800 Negat 
Missing Commas in File Options 
CATALOG PURGE 

Miscellaneous Faults Using PIC 
WRITE Statement Without "FROM" 
BACKUP Vs. System Without DISK 
(X) Vs. *X in EXCLUDE List 
Allow More Structures, Items P 
Allow More Structures, Items P 
DM Attribute <structure number 
COPY AS Error 
COPY AS Error 
COPY AS Error 

ALINK Vs . MATCHM ( BOJ , EOJ ) 
Eliminate SEG ARRAY Error 
ROWLOCKOUTAUDIT Errors 
ROWLOCKOUTAUDIT Errors 
ROWLOCKOUTAUDIT Errors 
DMS Exception Handling 
Comparisons of Literals 



Causes Recovery 
Causes Recovery 



Two Ha 1 t /Loads 

Two Ha 1 t /Loads 

Checksum Error 

Checks urn Error 

Checksum Error 

Checksum Error 

Erroneous DIRECT KEY Corrupted 

ROWLOCKOUTAUDIT Errors 

ROWLOCKOUTAUDIT Errors 

ROWLOCKOUTAUDIT Errors 

DS DBS Vs . Fi le At tributes 

DS DBS Vs. Fi le Attributes 
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FTR ACTION TABLE 

FTR NOTE SOFTWARE 



DESCRIPTION 



7144 
7144- 
7144- 
7144- 
7149- 
7149- 
7149- 
7 169- 
7169- 
7169- 
7169- 
7169- 
7 169- 
7169- 



-0042 
-0042 
-0042 
■0042 
■0160 
■0164 
•0173 
0001 
0002 
0003 
0004 
0004 
0005 
0609 



P2495 
P2495 
P2495 
P2495 
P2501 
P2603 
P1871 
P2216 
P2104 
P2398 
P2459 
P2459 
P2458 
P2505 



ACR 

ACR 

DMCTL 

DMCTL 

INQ 

ACR 

UTIL 

UTIL 

UTIL 

UTIL 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 



PATCH 

31.0.0136 DS DBS Vs. File Attributes 

31.0.0137 DS DBS Vs. File Attributes 

31.0.0016 DS DBS Vs. File Attributes 

31.0.0020 DS DBS Vs. File Attributes 

31.0.0045 Loss of Minus Sign 

31.0.0144 Partitioned Data Set Inaccessa 

31.0.0024 Missing Entry in HL File 

3 1.0.0050 TAPEDIRECTORY Command Problems 

31.0.0039 Multiprocessor Problems 

31.0.0060 Incorrect Selection of Structu 

3 1.0.005 Timing problem in REBUILD/ROLL 

31.0.0053 Timing problem in REBUILD/ROLL 

3 1.0.0049 Bad Retry Logic 

31.0.0055 Reconstruct Ignores Quiet Poin 
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PATCH TABLE 








SOFTWARE 


PATCH 


PRi NOTE 


ACR 


31 


.0.0009 


30012 P1585 


ACR 


31 


.0.0010 


32025 P1582 


ACR 


31 


.0.0014 


32003 D2566 


ACR 


31 


.0.0019 


33797 D2607 


ACR 


31 


.0.0021 


33760 D2608 


ACR 


3 1 


.0.0022 


33758 D2609 


ACR 


31 


.0.0024 


33785 P1773 


ACR 


31 


.0.0034 


34293 D2610 


ACR 


31 


.0.0039 


34304 D261 1 


ACR 


31 


.0.0040 


34358 D2615 


ACR 


31 


.0.0041 


34357 P1738 


ACR 


31 


.0.0042 


34354 P1742 


ACR 


31 


.0.0043 


33759 D2619 


ACR 


31 


.0.0044 


34340 D2612 


ACR 


31 


.0.0047 


34336 P1774 


ACR 


31 


.0.0050 


34332 P1802 


ACR 


3 1 


.0.0052 


34329 D2658 


ACR 


31 


.0.0053 


34334 D2657 


ACR 


31 


.0.0054 


34498 P1820 


ACR 


31 


.0.0055 


34493 P1821 


ACR 


31 


.0.0056 


34492 P1822 


ACR 


31 


.0.0057 


34490 P1907 


ACR 


31 


.0.0058 


34478 P1908 


ACR 


31 


.0.0060 


34328 P1909 


ACR 


31 


.0.0061 


34477 P1947 


ACR 


31 


.0.0062 


34476 P1910 


ACR 


31 


.0.0063 


34489 P191 1 


ACR 


31 


.0.0064 


34471 P19I2 


ACR 


31 


.0.0065 


34470 P1913 


ACR 


31 


.0.0066 


34480 P1922 


ACR 


31 


.0.0067 


34468 P1914 


ACR 


31 


.0.0068 


34472 P1915 


ACR 


31 


.0.0069 


34467 P1916 


ACR 


31 


.0.0070 


34458 PI917 


ACR 


31 


.0.0071 


34455 PI 900 


ACR 


31 


.0.0072 


34450 P1901 


ACR 


31 


.0.0073 


34440 P2009 


ACR 


31 


.0.0074 


34467 P191C 


ACR 


31 


.0.0075 


34438 P2010 


ACR 


31 


.0.0077 


34432 P2095 


ACR 


31 


.0.0078 


34431 P2096 


ACR 


31 


.0.0079 


34430 P2097 


ACR 


31 


.0.0080 


34427 P2098 


ACR 


31 


.0.0081 


34422 P2127 


ACR 


31 


.0.0082 


34421 P2128 


ACR 


31 


.0.0083 


34305 D2617 


ACR 


31 


.0.0084 


34416 P2129 


ACR 


31 


0.0085 


35303 P2130 


ACR 


31 . 


0.0086 


35304 P2131 


ACR 


31 


0.0087 


35306 P2132 


ACR 


31 . 


0.0089 


35307 P2133 


ACR 


31 . 


0.0091 


35344 P2183 


ACR 


31 . 


0.0092 


35302 D2709 


ACR 


31 . 


0.0093 


35340 P2184 


ACR 


31 . 


0.0097 


35623 P2219 


ACR 


31 . 


0.0098 


35443 P2244 


ACR 


31 . 


0.0099 


35318 D2802 


ACR 


31 . 


0.0100 


35449 P1518 


ACR 


31 . 


0.0102 


34420 D2710 


ACR 


31 . 


0.0103 


35465 P2284 


ACR 


31 . 


0.0104 


35456 P2360 


ACR 


31 . 


0.0105 


35472 P2329 


ACR 


31 . 


0.0106 


35457 P2347 


ACR 


31 . 


0.0108 


35479 P2348 


ACR 


31 . 


0.0109 


35460 P2349 


ACR 


31 . 


0.0110 


35458 P2350 


ACR 


31 . 


0.0111 


35455 P2351 


ACR 


31 . 


0.0112 


35459 P2352 


ACR 


31 . 


0.0113 


35426 P2362 


ACR 


31 . 


0.0115 


35912 P2359 


ACR 


31 . 


0.0116 


35912 P2359 


ACR 


3 1 . 


0.0117 


35915 P2379 


ACR 


31 . 


0.0118 


35917 P2387 


ACR 


31 . 


0.0119 


35919 P2409 


ACR 


3 1 . 


0.0120 


35922 P2410 


ACR 


3 1 . 


0.0121 


35426 P2362 


ACR 


31 . 


0.0122 


36161 P2411 


ACR 


31 . 


0.0123 


35455 P2351 


ACR 


31 . 


0.0124 


35458 P2350 


ACR 


31 . 


0.0127 


36166 P2453 


ACR 


3 1 . 


0.0128 


37092 P2454 


ACR 


31 . 


0.0129 


37085 P2473 



Retry ADDRESSCHECK Failures 
STATISTICS on CHECKSUM Retries 
Additional Transaction Statist 
New I/O Error Handling Procedu 
Fault Handling in ACCESSROUTIN 
Reduce Control Point Overhead 
Read Ahead on Coarse TAbles 
Display Core in Use for ALLOWE 
Transaction Processing System 
DASDL Defaults for Data Sets a 
Statistics Midnight Overlap 
CREATE/STORE Incorrect for Rem 
REBLOCKING 

Two Control Points at Audit Re 
GENERATE NULL Bit vector 
Audit File Switch for disk or 
Improve Buffer Management 
Find Correct End of Disk Type 
Faulty Audit Constraint 
INVALID INDEX after Audit Time 
Block Zero of Control File Cor 
Reset Syncpoint 10 Lower Value 
Unlock Global Data and Ordered 
Read Past EOF on Index Sequent 
Less Resizing of Arrays 
Corruption of Unordered 
Remaps of Ordered Data Sets wi 
Reorganization of Compact Data 
Duplicate Audit Block If Switc 
INV OP in IODISKADDRESS 
FILEDC a Control Record 
COPYAUDIT Not Zipped if Error 
Two Halt/Loads Causes Recovery 
Unaudited DB Corruption Inquir 
Maxbuffers Statistic Incorrect 
LOCK TO MODIFY DETAILS 
Return Restart Areas 
Two Halt/Loads Causes Recovery 
Checksum Error 

Correct Deletion in Unordered 
DB Corruption Due to Missing E 
DS of Recovery 
Retry Audit Opens 
Clear Read/Write Ahead Statist 
Readahead Corrections 
Visible DBS Changes and Enhanc 
Control File Open on Abort 
ROWLOCKOUTAUDIT Errors 
Reconstruct Makes Empty Audit 
Eliminate Unnecessary Displays 
Create/Store at End of DIRECT 
Checksum Errors 
B7700 Opt imi zat ion 
Errorexit Timing Problem 
KIND=DISKVs. FAMILYNAME 
Return of Compact Record 
Retain or Reuse Old Structure 
Zip COPYAUDIT at Final Close 
CHECKSUM and I/O Retry 
Prevent Checksum Error 
Store of ORDERED with BLOCKSIZ 
Invalid Count of Readers 
Ordered Available Table Corrup 
Data Base Hung After Close 
ORDERED Data Set INVALID OP 
ORDERED Data Set Improper Audi 
ORDERED ADDRESSCHECK, CHECKSUM 
ORDERED Data Set Loop 
Abort Handling Mechanism 
Resequence Data Base and RECOV 
Resequence Data Base and RECOV 
Designated Serial Numbers and 
Erroneous Not Found Result 
Eliminate Variable Format Code 
No Abort Accept When DBS is DS 
Abort Handling Mechanism 
Program DS Causes Abort to Die 
ORDERED ADDRESSCHECK. CHECKSUM 
ORDERED Data Set Improper Audi 
Erroneous DIRECT KEY Corrupted 
Designated Serial Numbers 
Incorrect Statistics To 1 a 1 s 
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PATCH TABLE 












SOFTWARE 


PATCH 


PR I 


NOTE 


ACR 


31 


.0 


.0131 


37084 


P2495 


ACR 


31 


.0 


.0132 


37085 


P2473 


ACR 


31 


.0 


.0133 


37071 


P2496 


ACR 


31 


.0 


.0134 


37072 


P2474 


ACR 


31 


.0 


.0135 


37084 


P2495 


ACR 


31 


.0 


.0136 


37084 


P2495 


ACR 


31 


.0 


.0137 


37084 


P2495 


ACR 


3 1 


.0 


.0138 


37345 


P2497 


ACR 


31 


.0 


.0139 


37339 


P2498 


ACR 


3 1 


.0 


.0141 


37531 


P2600 


ACR 


31 


.0 


.0142 


37718 


P2601 


ACR 


31 


.0 


.0143 


37745 


P2602 


ACR 


3 1 


.0 


.0144 


37746 


P2603 


ACR 


31 


.0 


.0145 


38005 


P2604 


ACR 


31 


.0 


.0146 


33797 


D2607 


ACR 


31 


.0 


.0147 


38025 


P2605 


ACR 


31 


.0 


.0148 


38024 


P2606 


ACR 


31 


.0 


.0149 


38023 


P2627 


ACR 


31 


.0 


.0153 


38028 


P2636 


ACR 


31 


,0 


.0154 


38041 


P2637 


ACR 


31 


.0 


.0157 


38024 


P2606 


ALGOL 


31 


.0 


.0005 


33518 


P1279 


ALGOL 


31 


.0 


.0019 


32685 


D2265 


ALGOL 


31 


.0 


.0020 


30376 


D2979 


ALGOL 


31 


.0 


.0021 


30376 


D2979 


ALGOL 


31 


.0 


.0030 


34277 


D2623 


ALGOL 


31 


.0 


.0031 


34277 


D2623 


ALGOL 


31 


.0 


.0036 


34277 


D2623 


ALGOL 


31 


.0 


.0037 


34276 


P1760 


ALGOL 


31 


.0 


.0038 


34122 


P1759 


ALGOL 


31 


.0 


.0039 


34275 


P1791 


ALGOL 


31 


.0 


.0040 


34274 


P1792 


ALGOL 


31 


.0 


.0042 


33838 


D2604 


ALGOL 


31 


.0 


.0043 


34121 


P1819 


ALGOL 


31 


.0 


.0045 


34507 


P1817 


ALGOL 


31 


.0 


0047 


34576 


P1878 


ALGOL 


31 


.0. 


0048 


34575 


D2649 


ALGOL 


31 


.0. 


0049 


34574 


P1879 


ALGOL 


31 


.0. 


0050 


34573 


P1880 


ALGOL 


31 


.0. 


0054 


34539 


P1883 


ALGOL 


31 


.0. 


0055 


34582 


D2721 


ALGOL 


31 


,0. 


0058 


34736 


D2814 


ALGOL 


31 


.0. 


0060 


34734 


P1953 


ALGOL 


31 


,0. 


0061 


34732 


P1954 


ALGOL 


31 


,0. 


0063 


34731 


P1956 


ALGOL 


31 


0. 


0064 


34757 


PI957 


ALGOL 


31 


0. 


0065 


34765 


P1958 


ALGOL 


31 . 


0. 


0066 


34764 


P1959 


ALGOL 


31 


0. 


0067 


34730 


P1960 


ALGOL 


31 . 


0. 


0068 


34753 


P1961 


ALGOL 


31 . 


0. 


0070 


34751 


P1962 


ALGOL 


31 . 


0. 


0073 


34749 


P1964 


ALGOL 


31 . 


0. 


0075 


34727 


D2661 


ALGOL 


31 . 


0. 


0076 


34790 


P1966 


ALGOL 


31 . 


0. 


0077 


34789 


P1967 


ALGOL 


31 . 


0. 


0079 


34786 


P1968 


ALGOL 


31 . 


0. 


0080 


34785 


P1969 


ALGOL 


31 . 


0. 


0081 


34725 


P1970 


ALGOL 


31 . 


0. 


0082 


34724 


P1971 


ALGOL 


31 . 


0. 


0083 


34723 


P1972 


ALGOL 


31 . 


0. 


0085 


34721 


P1975 


ALGOL 


31 . 


0. 


0086 


34738 


P1974 


ALGOL 


31 . 


0. 


0087 


34767 


P1976 


ALGOL 


31 . 


0. 


0088 


34801 


P1977 


ALGOL 


3 1 . 


0. 


0089 


34741 


P1978 


ALGOL 


31 . 


0. 


0090 


34720 


P1979 


ALGOL 


31 . 


0. 


0092 


34739 


P1981 


ALGOL 


31 . 


0. 


0093 


34718 


D2662 


ALGOL 


31 . 


0. 


0094 


34742 


P1982 


ALGOL 


31 . 


0. 


0095 


34783 


P1983 


ALGOL 


31 . 


0. 


0096 


34781 


P1984 


ALGOL 


31 . 


0. 


0100 


34778 


P1988 


ALGOL 


31 . 


0. 


0101 


34714 


P1989 


ALGOL 


31 . 


0. 


0102 


34776 


P1990 


ALGOL 


31 . 


0. 


0104 


34775 


P1991 


ALGOL 


31 . 


0. 


0105 


34774 


P2028 


ALGOL 


31 . 


0. 


0106 


34773 


P1992 


ALGOL 


31 . 


0. 


0107 


34712 


P1993 


ALGOL 


31 . 


0. 


0108 


3471 1 


P1994 


ALGOL 


31 . 


0. 


0109 


34772 


P1995 


ALGOL 


31 . 


0. 


01 12 


34770 


P1996 


ALGOL 


31 . 


0. 


01 13 


34769 


P2029 



DS DBS Vs. File Attributes 
Incorrect Statistics Totals 
Zero TPS Timestamp at Close 
Free Records on Abort Exceptio 
DS DBS Vs. File Attributes 
DS DBS Vs. File Attributes 
DS DBS Vs. File Attributes 
COPYAUDIT Vs. Audit Ioerror Sw 
INVALID INDEX Global Data and 
Remove Overlay Point 
Program not DSED if Audit Open 
Initialize Partition Audited I 
Partitioned Data Set Inaccessa 
NOT FOUND for Partitioned Orde 
New I/O Error Handling Procedu 
Correction of Internal Delete 
Audit Small Blocks for IO Erro 
Deadlock During Update and Del 
Missing STARTDB in Ordered Pat 
Timing Window in OVERLAY 
Audit Small Blocks for IO Erro 
Change INFO LEVEL 
Standardization of Compiler Fi 
Por t s and Si gna 1 s 
Por t s and Si gna 1 s 
Equation Disallowed in Global 
Equation Disallowed in Global 
Equation Disallowed in Global 
No Error on "REAL (P:P EQL "AB 
Bindinfo for String Procedures 
No Error After Direct I/O Stat 
No Error on "TITLE=<p t r > " 
Libraries 

Update Pointer in REPLACE BY S 
Array Reference Assignment Pro 
IF FALSE in Procedures to be B 
New Information in the Listing 
Syntax Errors Not Being Report 
AUTOBIND and One Level Codefil 
Reuse String Temporaries 
String Arrays, Procedures as P 
Compiler Label Equation to XRE 
More Descriptive Error Message 
String Too Long Error Message 
Correctly Handle $MCP 
Erroneous Syntax Error in Vect 
List Declarations 
Bad GO TO From a Separate Proc 
Erroneous Syntax Errors on For 
External Procedures in PROCESS 
Numbered CASE Statements 
Stack Bui Iding Code 
Header Improvement 
Optimized IF Statement 
Binding ALPHA6 or ALPHA7 Truth 
SXREFFILES Interaction with $X 
Flag Extraneous Crosshatch 
Syntax Error on IF Statement 
FIRSTWORD and SECONDWORD of Co 
Error Limit of Zero 
FOR Statement Syntax 
Eliminate Compiler Error 
COMPILETIME Syntax Errors 
MAKEHOST and Inner Blocks 
BREAKPO I NT/ S EPCOMP Correction 
IF Expression Compatibility 
STATISTICS Correction 
Many Installation Intrinsics 
Large Forma t s 
Handle TASKFILE Correctly 
Binder Information for a Large 
Correct Xref of File Monitor D 
Direct Files and Attributes 
Prevent Compiler Fault 
Recovering from Syntax Error 
Uplevel Pointer Detection 
Correct IF Statement Branches 
External Procedure Parameter M 
Truthsets in IF conditions 
SINCLUDE Us ing St rings 
FOR Statement with Variable St 
Writing Strings in Error Messa 
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PATCH TABLE 

SOFTWARE 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOL 

ALGOLINTRN 

ALGOLINTRN 

ALGOLINTRN 

ALGOLINTRN 

ALGOLPLINTRN 

ALGOLPLINTRN 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ALGOLTABLE 

ARCHDASDL 

ARCH I NQ 

ARCHUPDATE 

ATTABLEGEN 

ATTABLEGEN 

ATrABLEGEN 

ATTABLEGEN 

ATTABLEGEN 

ATTABLEGEN 

ATTABLEGEN 

ATTABLEGEN 



PATCH 



3 1 
31 
31 
31 
31 
3 1 
3 1 
31 
3! 
3 1 
31 
3 1 
31 
3 1 
3 1 
3 1 
3 1 
31 
31 
31 
3 1 
31 
31 
3 1 
3 1 
31 
31 
31 
31 
31 
31 
31 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

3 1 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

3! 

31 . 

31 . 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 



.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
. 0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 
.0. 



0114 
01 15 
0117 
01 19 
0123 
0124 
0125 
0126 
0129 
0130 
0131 
0133 
0134 
0135 
0136 
0137 
0139 
0140 
0142 
0143 
0145 
.0.0147 
.0.0148 
0149 
0150 
0151 
0152 
0153 
0154 
5 60 
0163 
0164 
0.0165 
0.0166 
0168 
0169 
0170 
0173 
0174 
0.0178 
0.0180 
0.0181 
0.0182 
0.0183 
0.0184 
0.0187 
0.0001 
0.0006 
0.0009 
0011 
0001 
0004 
0004 
0005 
0.0007 
0.0008 
0.0009 
0012 
0014 
0016 
0017 
0018 
0020 
0.0021 
0.0022 
0.0023 
0.0024 
0.0026 
0.0027 
0028 
0031 
0002 
0002 
0002 
0003 
0004 
0008 
001 1 
0015 
0016 
0017 
0019 



PR I 

34787 

34572 

34571 

34569 

34584 

34584 

34585 

34586 

345 66 

34398 

34396 

34397 

34589 

34590 

34566 

35321 

34565 

34564 

34562 

35623 

3 5 5 2 3 

35600 

35601 

35602 

35603 

35605 

35601 

3 5 606 

35628 

34564 

35803 

35802 

33838 

33838 

35802 

30376 

30376 

33464 

37297 

33849 

37448 

37447 

37444 

34520 

34518 

34520 

33913 

33927 

35251 

35623 

33913 

35623 

30376 

34277 

34304 

33838 

34580 

34571 

34399 

34584 

34566 

34396 

35623 

35524 

35522 

35601 

33453 

35802 

33838 

30376 

34520 

35623 

35623 

35623 

33538 

34976 

34564 

34381 

34564 

3 5 3 7 3 

34564 

35623 



NOTE DESCRIPTION 



P1997 CrPROC Compiler Hang 

D2664 STACK and CODE Listing Improve 

D2677 FIRST Function for Strings 

PI 933 SERIALNO File Attribute 

D2684 COMPLEX Implementation 

D2684 COMPLEX Implementation 

P2030 Erroneous Repeat Count in Valu 

P2110 INVALID OP in Freefield WRITE 

D2713 TOGGLE, OVERFLOW, "REAL(<point 

P2112 BCL WArning Message Occurs Cor 

D2712 Flag Vectormode 

P2111 Warning Count Reset 

P2U3 INVALID OP in Freefield WRITE 

P2114 INVALID OP in READ, WRITE Stat 

D27 13 TOGGLE, OVERFLOW, "REAL(<point 

D2711 De imp 1 emen t at i on of Backslash 

P2200 "<file id>.<file a t t r i but e> : =* 

D2952 New Task, File Attributes 

P1373 Storing Singles into Doubles 

P2219 KIND=DISK Vs. FAMILYNAME 

P1449 Small Pools for Formats 

P2236 IF FALSE and SLINEINFO 

P2237 Syntaxing of Format Specificat 

P2238 SPAGE and the Compiler Linecou 

P2239 Compiler Loop on DATABASE Decl 

P2240 Remove "?" from ALPHA6 

P2237 Syntaxing of Format Specificat 

P2248 Exclamation Mark and Underscor 

D2838 Setting Read-Only Attributes 

D2952 New Task, File Attributes 

P2289 No "COMPILER ERROR IN BUILDITE 

P2290 No Spurious UNKNOWN DOLLAR CAR 

D2604 Libraries 

D2604 Libraries 

P2290 No Spurious UNKNOWN DOLLAR CAR 

D2979 Ports and Signals 

D2979 Ports and Signals 

P2439 CASE Statements with all Cases 

D2919 Intrinsics with Complex and St 

D2535 Revised ODT Messages 

P2578 Four Digit Patch Numbers 

P2 579 String in DEFINE Too Long 

P2587 Syntax Error with SINTRINSICS 

P2594 No String Parameters by Value 

P2593 Sepcomp of Procedures with Str 

P2594 No String Parameters by Value 

D256S Int r ins i cs 

D2626 DISPLAYTOSTANDARD Destination 

P2140 CSQRT With Zero Imaginary Part 

P2219 KIND=DISK Vs. FAMILYNAME 

D256S Intrinsics 

P2219 KIND=DISK Vs. FAMILYNAME 

D2979 Ports and Signals 

D2623 Equation Disallowed in Global 

D2611 Transaction Processing System 

D2604 Libraries 

P1882 Erroneous Parameter Checking I 

D2677 FIRST Function for Strings 

D2678 OPEN INITIALIZE Warning 

D2684 COMPLEX Implementation 

D2713 TOGGLE, OVERFLOW, "REAL(<point 

D2712 Flag Vectormode 

P2219 KIND=DISK Vs. FAMILYNAME 

D2759 B7000 Series DM Optimization 

P2218 Warning Message Given for Form 

P2237 Syntaxing of Format Specificat 

D2806 Data Dictionary 

P2290 No Spurious UNKNOWN DOLLAR CAR 

D2604 Libraries 

D2979 Ports and Signals 

P2594 No String Parameters by Value 

P2219 KIND=DISK Vs. FAMILYNAME 

P2219 KIND=DISK Vs. FAMILYNAME 

P2219 KIND=DISK Vs. FAMILYNAME 

D2493 Accesscode 

D2430 MCP Restructuring 

D2952 New Task, File Attributes 

D2588 IPCOVERRIDE Recognized as Task 

D2952 New Task, File Attributes 

D2694 Implementation of DL 

D2952 New Task, File Attributes 

P22 19 KIND=DISK Vs. FAMILYNAME 
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PATCH TABLE 












SOFTWARE 


PATCH 


PR I 


NOTE 


ATTABLEGEN 


3 1 


.0 


.0020 


35500 


D2864 


ATTABLEGEN 


3 1 


. 


.0022 


35858 


P2438 


ATTABLEGEN 


3 1 


. 


.0030 


33849 


D2535 


AUTONBBSC 


3 I 


. 


.0001 


3 4414 


P1839 


AUTONBBSC 


3 ! 





0002 


36009 


P2368 


BACKUP 


3 1 


. 


. 0007 


3 4 2 3 7 


P1761 


BACKUP 


3 ! 





.0008 


3 4 2 2 5 


P1762 


BACKUP 


3 I 


. 


. 0009 


3 4032 


PI 885 


BACKUP 


• I 





00 10 


3 4 8 3 6 


P2 00 3 


BACKUP 


3 j 





. 001 I 


3 4 809 


P2004 


BACKUP 


3 ! 





.0014 


3 5 6 2 3 


P2219 


BACKUP 


3 i 





. 00 1 5 


3 5 5 11 


D2789 


BACKUP 


i 1 


. 


.0018 


3 7 5 6 3 


P2567 


BACKUP 


1 1 


. 


0019 


37562 


P2568 


BACKUP 


~; i 


.0 


.0020 


37561 


P2569 


BACKUP 


3 I 


. 


.0021 


37479 


P2570 


BACKUP 


3 1 


. 


.0022 


37598 


P2571 


BACKUP 


3 1 





. 002 3 


37597 


P2575 


BACKUP 


3 ! 


. 


.0024 


37595 


P2576 


BACKUP 


3 1 


. 


.0025 


37595 


P2576 


HArKU" 


3 1 





002 6 


37593 


P2580 


bas I c: 


3 1 


. 


.0003 


3 2 6 8 5 


D2265 


BASIC 


3 1 


. 


.0008 


3 5 623 


P2219 


BBSC 


3 1 





0001 


3 4414 


P1839 


BBSC 


3 1 


. 


.0002 


36009 


P2368 


BDMS ALGOL 


3 !. 


.0 


.0041 


34304 


D261 1 


BDMSALGOL 


3! 


. 


.0044 


34304 


D261 1 


BDMSAiGOI 


3 1 


. 


. 00"! 


34740 


P1980 


BDMSALGOI. 


3 1 


. n 


12 


34399 


D2678 


BDMSAU.OI 


3 1 





1 5 5 


33453 


D2806 


BDMS41GOL 


1 j 


. 


015 6 


3 3 4 5 3 


D2806 


RD«SAir.ni. 


3 i 


.0 


. 0162 


3 3 4 5 3 


D2806 


BDMSM.GOL 


3 . 


. 


.0167 


33453 


D2806 


BDMSCOBOL 


3 I 





0078 


34623 


P2057 


BDMS COBOL 


3 1 


.0 


.0089 


34 3 04 


D261 1 


BDMSCOBOL 


3 1 


.0. 


0095 


34669 


P2202 


BDMSCOBOL 


3! 


. 


0101 


35776 


D2848 


BDMSCOBOL 


3 1 


.0 


0112 


35817 


P2299 


BDMSCOBOL 


3 1 


. 0. 


0113 


33453 


D2806 


BDMSCOBOL 


3 1 


.0 


0116 


35823 


P2 3 30 


BDMSCOBOL 


3 I 





.0120 


35818 


P2331 


BDMSCOBOL 


3 1 


. 0. 


.0122 


35821 


P2332 


BDMSCOBOL 


3 1 


. 


0124 


33453 


D2806 


BDMSCOBOL 


3 1 


.0. 


0126 


35819 


P2333 


BOMS COBOL 


3 I 


. 0. 


013 


3 5 820 


D2884 


BDMSCOBOL "4 


3 ! 


. 0. 


0138 


34304 


D261 1 


BDMSCOBOL 7 4 


3 ! 


. 0. 


01 62 


33453 


D2806 


BDMSCOHOL74 


3 1 


.0. 


0174 


3 345 3 


D2806 


BDM^COBOL.7 4 


3 1 


.0. 


01 7Q 


35820 


D2884 


HPMSPi. i 


3 1 


.0 


0008 


33443 


P1771 


bdmsc: ; 


31 


.0. 


0018 


34304 


D261 1 


HDMSPL J 


3 1 


. 0. 


002! 


34399 


D2678 


BDMS Pi I 


31 


. 0. 


003 3 


33453 


D2806 


BDMSPL! 


3 1 


.0. 


003 6 


35777 


D2849 


BOMSPl r 


3 ! 


.0. 


003 8 


33453 


D2806 


BDMSPI . 1 


3 1 


.0. 


004 1 


34304 


D261 1 


BDMS PL! 


3 1 


.0. 


0042 


34304 


D2611 


BDMS PL! 


3 1 


. 0. 


004 3 


33453 


D2806 


BDMS PL 1 


3 1 


.0. 


0044 


3 3 4 5 3 


D2806 


BDMSPL! 


3 1 


.0. 


0045 


33453 


D2806 


BDMS PL! 


3 1 


0. 


0046 


34304 


02611 


':■ ! NDER 


31 


. 0. 


0009 


33727 


P1513 


B i NDER 


3 1 


0. 


00 i 


33731 


P1514 


LJNDLP 


3 1 


.0. 


001 1 


33730 


P1515 


'- ! NDER 


3 1 


. 0. 


0012 


33735 


P1516 


BINDER 


3 1 





0014 


33732 


P1517 


B I NDER 


3 1 


0. 


00! 5 


33729 


D2815 


BIDDER 


3 1 





0016 


33728 


P1519 


BINDER 


3 1 


0. 


0020 


3 3013 


D2589 


BINDER 


3 1 


.0. 


0023 


3 5 112 


D2722 


B I NDF.R 


3 1 


. 


0024 


33034 


P2031 


BINDER 


3 1 


0. 


0025 


34708 


P2032 


B I NDER 


3 1 . 


.0. 


0026 


34673 


D2714 


BINDER 


3 1 . 


.0. 


0029 


33033 


P2179 


B I NDER 


3 1 


.0. 


00 3 


35 109 


P2178 


B J NDER 


3 1 


0. 


003 3 


35623 


P2219 


B 1 NDER 


31 


0. 


00 3 4 


35406 


D2766 


B I NDER 


3 1 


. 


003 8 


3 5 4 11 


D2770 


B I NDER 


3 ! 


0. 


00 3 9 


3 5 410 


D2771 


B I NDER 


3 1 


0. 


0043 


33453 


D2806 


B i NDER 


3 ! 


0. 


0044 


3 5 8 11 


P2302 


BINDER 


3 1 


0. 


0046 


36 105 


P2434 



Relative I/O Tor COBOL74 
Library Program Dump Options 
Revised ODT Messages 
Correct ASCII Character Define 
Replace SPOP LIST, Allow $SET 
Filenames With Special Charact 
All Copies Not Printed 
LP# Lost After Forms File 
Backward Skip 
BFILE Label Equaton 
KIND=DISKVs. FAMILYNAME 
NEWP Key Speci f ied 
Buffer Reduction for LIN File 
Loops When "<skip count>" Omit 
REEL Attribute Not Set Before 
Filenames Limited to 60 Charac 
Invalid Option Combination 
ODT Display Format 
First Level Filename Vs. Userc 
First Level Filename Vs. Userc 
BACKUP Vs. System Without DISK 
Standardization of Compiler Fi 
KIND=DISK Vs. FAMILYNAME 
Correct ASCII Character Define 
Replace SPOP LIST, Allow $SET 
Transaction Processing System 
Transaction Processing System 
STRUCTURENUMBER Correction 
OPEN INITIALIZE Warning 
Da t a Di c t i onary 
Da t a Di c t i on a i y 
Da t a Di c t i onary 
Data Dictionary 
DATABASE Declaration 
Transaction Processing System 
Bad DMS Invoke Listing 
B7000 Series DM Optimization 
Bad Syntax Checking in DB Stat 

Da t a Di c t i onary 

Listing of the Variable Format 

Declaration of Item With Same 
INVALID INDEX 

Da t a Di c t i onary 

Inconsistent Handling of Key C 

"<da t a-i t em-1 > IN <key-conditi 

Transaction Processing System 

Da t a Di c t i onary 

Da t a Di c t i onary 

"<da t a- i t em-1 > IN <key-conditi 

Proper Printing of Length Attr 

Transaction Processing System 

OPEN INITIALIZE Warning 

Data Dictionary 

B7000 Series DM Optimization 

Da ta Dictionary 

Transaction Processing System 

Transaction Processing System 

Da t a Di c t i onary 

Da t a Di c t i onary 

Da t a Di c t i onary 

Transaction Processing System 

Allow Many Installation Intrin 

Detect Large INTRINSICINFO 

Back Ou t Cor rec t I y 

Binding Entry Points 

Preserve Control State 

Multiple BIND= Cards 

Correct Identifier Recognition 

Binding NEWP 

Binding of Ports and Signals 

Prevent INVALID OP in Bound Pr 

Clear Internal Array 

Transaction Record Parameters 

Update Error Messages 

Proper Rebinding of String Pro 

KIND=DISKVs. FAMILYNAME 

Internal Handling of Warnings 

Placement of the MCP DO Stack 

Rebinding External Procedures 

Da t a Di c t i onary 

Invalid PARAMETER M I SMATCH 

Installation Intrinsics Using 
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PATCH TABLE 












SOFTWARE 


PATCH 


PR I 


NOTE 


BINDER 


31 


.0 


.0047 


37293 


P2465 


BINDER 


31 


.0 


,0048 


37291 


P2492 


BUILDINQ 


31 


.0 


.0004 


34358 


D2615 


BUILDINQ 


31 


.0 


0005 


34504 


P1823 


BUILDINQ 


3 1 


.0, 


,0006 


34505 


P1824 


BUILDINQ 


31 


.0 


.0007 


34487 


P1918 


BUILDINQ 


31 


.0. 


0008 


3 4488 


P1919 


BUILDINQ 


31 


.0. 


0009 


34443 


P201 1 


BUILDINQ 


31 


.0. 


001 1 


34442 


D2695 


BUILDINQ 


31 


.0. 


0013 


35434 


P1444 


BUILDINQ 


31 


.0. 


0014 


35623 


P2219 


BUILDINQ 


31 


.0. 


0017 


35302 


D2709 


BUILDINQ 


31 


,0. 


0018 


35466 


D2863 


BUILDINQ 


31 


0. 


0019 


35468 


P2334 


BUILDINQ 


3 1 


0. 


0020 


35469 


P2309 


BUILDINQ 


31 


,0. 


002 1 


35475 


P2353 


BUILDINQ 


31 


.0. 


0023 


35916 


P2388 


BUILDINQ 


31 


.0. 


0024 


35923 


P2412 


BUILDINQ 


31 


,0. 


0026 


37721 


P2607 


BUILDINQ 


31 


0. 


0027 


38030 


P2638 


BUILDINQ 


3 1 





0028 


38030 


P2638 


BUILDREORG 


31 


,0. 


0004 


35347 


P2185 


BU I LDREORG 


31 


,0. 


0005 


35336 


D2731 


BUILDREORG 


31 


0. 


0006 


35429 


D2754 


BUILDREORG 


31 


,0. 


0008 


35623 


P2219 


BUILDREORG 


31 


.0, 


0009 


35435 


D2775 


BUILDREORG 


31 


.0. 


0010 


35436 


P1465 


BUILDREORG 


31 


.0. 


001 1 


35440 


D2803 


BUILDREORG 


31 


.0. 


0013 


37083 


P2477 


BUILDREORG 


31 


.0. 


0015 


37533 


D2591 


CANDE 


31 


.0. 


0013 


32685 


D2265 


CANDE 


31 


.0. 


0016 


35325 


D2740 


CANDE 


31 


.0. 


0018 


34322 


D2590 


CANDE 


31 


.0. 


0019 


33605 


D2634 


CANDE 


31 


.0. 


0020 


33604 


D2636 


CANDE 


31 


.0. 


0021 


34900 


D2665 


CANDE 


31 


.0. 


0022 


34899 


D2666 


CANDE 


31 


.0. 


0023 


34898 


D2667 


CANDE 


31 


,0. 


0025 


34896 


D2668 


CANDE 


31 


.0. 


0026 


34895 


P1998 


CANDE 


31 


.0. 


0028 


34880 


P1999 


CANDE 


31 


.0. 


0029 


34881 


D2670 


CANDE 


31 


.0. 


0032 


34884 


P2000 


CANDE 


31 


.0. 


0033 


34886 


D2672 


CANDE 


31 


0. 


0034 


34887 


D2673 


CANDE 


31 


.0. 


0035 


34888 


D2674 


CANDE 


31 


.0. 


0036 


33603 


D2675 


CANDE 


31 


.0. 


0038 


33602 


D2679 


CANDE 


31 


.0, 


0040 


35623 


P2219 


CANDE 


31 


.0, 


0041 


33601 


D2827 


CANDE 


31 


.0. 


0043 


35373 


D2694 


CANDE 


31 


.0, 


0044 


34881 


D2670 


CANDE 


31 


.0. 


0045 


35727 


P2292 


CANDE 


31 


.0 


.0046 


35728 


P2293 


CANDE 


31 


.0 


0047 


35729 


P2294 


CANDE 


31 


.0 


0055 


36022 


D2916 


CANDE 


31 


.0 


,0056 


35325 


D2740 


CANDE 


31 


.0 


,0057 


35325 


D2740 


CANDE 


31 


.0 


.0059 


37484 


P2553 


CANDE 


31 


.0 


.0062 


34322 


D2590 


CANDE 


31 


.0 


.0063 


34322 


D2590 


CARDLINE 


31 


.0 


.0002 


34018 


P1886 


CARDLINE 


31 


.0 


.0004 


35623 


P2219 


CCTABLEGEN 


31 


.0 


.0002 


34063 


D2627 


CCTABLEGEN 


31 


.0 


.0010 


34912 


D2752 


CCTABLEGEN 


31 


.0 


.0012 


35623 


P2219 


COBOL 


31 


.0 


.0012 


33679 


P1434 


COBOL 


31 


.0 


.0017 


32685 


D22 65 


COBOL 


31 


.0 


.0035 


34145 


P1662 


COBOL 


31 


.0 


.0036 


34129 


D2676 


COBOL 


31 


.0 


.0037 


34130 


P1663 


COBOL 


31 


.0 


.0038 


34131 


P1664 


COBOL 


31 


.0 


.0039 


30376 


D2979 


COBOL 


31 


.0 


.0040 


34132 


P1666 


COBOL 


31 


.0 


.0041 


34143 


P1763 


COBOL 


31 


.0 


.0043 


34134 


D2850 


COBOL 


31 


.0 


.0047 


34654 


P2033 


COBOL 


31 


.0 


.0048 


34653 


P2253 


COBOL 


31 


.0 


.0049 


34652 


D28 16 


COBOL 


31 


.0 


.0050 


34651 


P2035 


COBOL 


31 


.0 


.0051 


34650 


P2036 


COBOL 


31 


.0 


.0052 


34649 


P2037 



Entrv Binding Corrections 

Rebi riding with FORTRAN DATA S 

DASDL Defaults for Data Sets a 

Enforce Answer on Update Quest 

Data Set Selection Option Enfo 

Deleted Logical Data Base 

Ve r i f i ed Link 

Occurring Groups 

Sets with Group Keys 

Automatically Selects Restart 

KIND=DISKVs. FAMILYNAME 

B7700 Opt imi za t ion 

Logical Data Bases with Mu 1 t i p 

Logical Data Base with "<set p 

Vague Link and Subset Referenc 

Invalid TABLE EXCEEDED Error 

Embedded Sets in Logical Data 

Maximum Size of DM I NQD I RECTORY 

Selection Using Key Data Items 

Acceptance of Queue Specificat 

Acceptance of Queue Specificat 

Reporting of ORDERED BY for In 

REORGANIZATION Optimization 

Sort Environment Syntax 

KIND=DISKVs. FAMILYNAME 

REORGANIZATION Limitations 

Sequencing of Prime Index, De f 

Automatic Checksum of Intermed 

INVALID INDEX at 30139840 

Checking BUILDREORG Status in 

Standardization of Compiler Fi 

Acces scode 

III.l Controller Keyins 

SUBSYSTEM Task Attribute 

"Q-DS" Message for START Job 

LSN Ranges 

OPTIONS COMMANDS 

CONTROL Command Extensions 

WHAT Next Extensions 

Hung Swap Job 

Schedule Fault Corrected 

Multiple Log Stations 

MATCH Verb Correction 

SCHD Message 

PUBLIC Abbreviation 

Data Files Upda t e 

Resequence of CANDE 

WHO Control Command 

KIND=DISKVs. FAMILYNAME 

"?AT" Controller Keyin 

Implementation of DL 

Multiple Log Stations 

REPLACE in Sequence Number Fie 

REPLACE on ID Field 

INSERT AT I ID on Empty Workfil 

Add HOSTNAM. as Task Modifier 

Acces scode 

Acce s s code 

VALUE Sign on EXECUTE 

III.l Controller Keyins 

III.l Controller Keyins 

Job Cards Transferred to Disk 

KIND=DISKVs. FAMILYNAME 

Acce s scode 

New Compiler Names 

KIND=DISKVs. FAMILYNAME 

Program Collating Sequence 

Standardization of Compiler Fi 

Excep t i oncode for ANSI74 Corre 

Inspect Algorithm Meets ANSI74 

Scale Non-Integer Moved to DM 

Graceful Exit from Syntaxed ST 

Por t s and Signals 

FILE-LIMIT Statement Caused IN 

User Intrinsic Calls Not Scann 

B7700 AUDIT Feature 

Spurious Error Messages 

SELECT Statement Syntax Errors 

NOTE Verb Extensions 

Compile Time Information 

Hex Literal Compares 

E Format Scanner Error 
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PATCH TABLE 












SOFTWARE 


PATCH 


PR I 


NOTE 


COBOL 


31 . 


0. 


0053 


34648 


P2038 


COBOL 


31 . 


0. 


0054 


34647 


P2039 


COBOL 


31 . 


0. 


0055 


34646 


P2040 


COBOL 


31 . 


6. 


0056 


34645 


P2041 


COBOL 


31 . 


0. 


0057 


34644 


D2683 


COBOL 


31 . 


0. 


0059 


34642 


P2042 


COBOL 


31 . 


0. 


0060 


34641 


P2043 


COBOL 


31 . 


0. 


0061 


34640 


P2044 


COBOL 


31 . 


0. 


0062 


34639 


P2045 


COBOL 


31 . 


0. 


0063 


34638 


P2046 


COBOL 


31 . 


0. 


0064 


34637 


P2047 


COBOL 


31. 


0. 


0065 


34636 


P2177 


COBOL 


31 . 


0. 


0066 


34635 


P2048 


COBOL 


31 . 


0. 


0067 


34634 


P2049 


COBOL 


31 . 


0. 


0068 


34633 


P2050 


COBOL 


31 . 


0. 


0069 


34632 


P2051 


COBOL 


31 . 


0. 


0070 


34631 


P2052 


COBOL 


31 . 


0. 


0072 


34629 


P2053 


COBOL 


31 . 


0. 


0075 


34626 


P2054 


COBOL 


31 . 


0. 


0076 


34624 


P2055 


COBOL 


31 . 


0. 


0077 


34625 


P2056 


COBOL 


31 . 


0. 


0079 


34622 


P2058 


COBOL 


31 . 


0. 


0080 


34621 


P2059 


COBOL 


31. 


0. 


0081 


34619 


P2060 


COBOL 


31 . 


.0. 


0082 


34618 


P2061 


COBOL 


31 


0. 


0084 


34620 


P2062 


COBOL 


31 . 


0. 


0086 


34677 


P2063 


COBOL 


31 . 


0. 


0087 


34676 


P2161 


COBOL 


31. 


.0. 


0090 


34674 


D2839 


COBOL 


31 . 


.0. 


0092 


34129 


D2676 


COBOL 


31 


0. 


0094 


34670 


P2187 


COBOL 


31 


0. 


0097 


34668 


P2252 


COBOL 


31. 


0. 


0098 


35623 


P2219 


COBOL 


31 


0. 


0099 


34664 


P2254 


COBOL 


31 


,0. 


0100 


34674 


D2839 


COBOL 


31 


,0. 


0102 


34663 


P2255 


COBOL 


31 


.0. 


0103 


35769 


P2256 


COBOL 


31 


,0. 


0104 


35770 


P2257 


COBOL 


31 


.0. 


0105 


35771 


P2258 


COBOL 


31 


.0. 


0108 


34674 


D2839 


COBOL 


31 


.0. 


0109 


35768 


P2295 


COBOL 


31 


.0. 


0110 


35767 


P2259 


COBOL 


31 


.0. 


0111 


35765 


P2260 


COBOL 


31 


,0, 


01 14 


35763 


P2313 


COBOL 


31 


.0. 


011'. 


35752 


P23 14 


COBOL 


31 


.0. 


.01 17 


35755 


P23 15 


COBOL 


31 


.0. 


0118 


35762 


P23 16 


COBOL 


31 


.0. 


,0119 


35756 


P2317 


COBOL 


31 


.0. 


,0121 


35757 


P2318 


COBOL 


31 


.0 


,0123 


35758 


P2319 


COBOL 


31 


.0 


,0125 


35759 


P2320 


COBOL 


31 


.0 


.0127 


35934 


P23 3 8 


COBOL 


31 


.0 


,0128 


35933 


P23 39 


COBOL 


31 


.0 


,0129 


35760 


P2340 


COBOL 


31 


.0 


.0131 


35932 


P2365 


COBOL 


31 


.0 


,0132 


35822 


P234 1 


COBOL 


31 


.0 


.0133 


35946 


P2342 


COBOL 


31 


.0 


.0134 


35947 


D2874 


COBOL 


31 


.0 


.0135 


35949 


P2373 


COBOL 


31 


.0 


.0136 


35824 


P2377 


COBOL 


31 


.0 


.0138 


35968 


P2380 


COBOL 


31 


.0 


.0139 


35948 


P2381 


COBOL 


31 


.0 


.0140 


35965 


D2921 


COBOL 


31 


.0 


.0141 


35966 


D2922 


COBOL 


31 


.0 


.0142 


34674 


D2839 


COBOL 


31 


.0 


.0143 


35967 


D2923 


COBOL 


31 


.0 


.0145 


34674 


D2839 


COBOL 


31 


.0 


.0146 


34674 


D2839 


COBOLTABLE 


31 


.0 


.0002 


30376 


D2979 


COBOLTABLE 


31 


.0 


.0003 


34136 


P181 1 


COBOLTABLE 


31 


.0 


.0004 


34134 


D2850 


COBOLTABLE 


31 


.0 


.0007 


34304 


D261 1 


COBOLTABLE 


31 


.0 


.0008 


34674 


D2839 


COBOLTABLE 


31 


.0 


.0010 


35623 


P2219 


COBOLTABLE74 


31 


.0 


.0005 


34304 


D261 1 


COBOLTABL.E74 


31 


.0 


.0006 


34674 


D2839 


COBOLTABLE74 


31 


.0 


.0008 


35623 


P2219 


COBOLTABLE74 


31 


.0 


.0009 


30376 


D2979 


COBOL74 


31 


.0 


.0097 


34146 


P1661 


COBOL74 


31 


.0 


.0098 


34130 


P1663 


COBOL74 


31 


.0 


.0099 


34131 


P1664 


COBOL74 


31 


.0 


.0100 


34132 


P1666 



DESCRIPTION 

Comparison of Index Data Names 

VALUE Clause 

Improved String Comparisons 

E Format on Continuation Card 

Do 1 1 a r Op t i on B I NARYCOMP 

Dictionary Wraparound 

Declarative Execution 

Hex Literal Figuratives 

Simple Literal Compares 

Correct Stack Estimate 

Improved Error Message 

COPY in LD Sect ion 

Core Estimate of Sorting Progr 

PICTURE CI ause 

Mixed Group Moves 

VALUE Clause for COMP-4 Items 

Warning for Varying Size Recor 

COPY Statement Listing 

Correct Warning Message 

Report Writer Control Footing 

Correct Offset Listing 

Negative Valued Attribute Mnem 

XREF 

Two Dimensional Subscripting 

CLOSE wi th PURGE 

SELECTION Expressions 

Word Aligned Moves 

OPTIMIZE Opt ion 

Library Facility Implemented 

Inspect Algorithm Meets ANSI74 

TIME Funct ions 

Statistics Not Correct for STO 

KIND=DISK Vs. FAMILYNAME 

External PROCEDURE Dec 1 a rat i on 

Library Facility Implemented 

UNITS Attribute 

Code Segment Size Exceeded 

Too Many REPORT Writer Code CI 

INVALID INDEX in Bad REPORT Wr 

Library Facility Implemented 

Exception Code Erroneously Che 

ANSI 74 LINAGE WRITE AT END OF 

Random File Getting Serial Wri 

Incorrect SORT Statement 

LOCK Statements 

INVALID INDEX in Large Code Se 

Maximum Files Allowed 

Info Table Overflow 

XREF 

Condi t ion Names 

Moves of Numeric Literals 

Large Report Writer Exceeded C 

Analyze Option Duplicating Lin 

Negative Zeros in VALUE Clause 

Large Record Descriptions 

COBOL No Longer Ignores Mispla 

SEARCH Nested in IF Statement 

OCCURS DEPENDING Option 

Cond i t i on Names 

INSPECT Verb Slow Execution 

SORT Dynamic File Attributes 

Erroneous Syntax Error 

"DATE-COMPILED" Clause Has Per 

Exception Code for ANSI74 Inde 

Library Facility Implemented 

MONITOR Output 

Library Facility Implemented 

Library Facility Implemented 

For t s and S i gna 1 s 

LI STACK Opt ion 

B7700 AUDIT Feature 

Transaction Processing System 

Library Facility Implemented 

KIND=DISKVs. FAMILYNAME 

Transaction Processing System 

Library Facility Implemented 

KIND=DISKVs. FAMILYNAME 

Ports and Signals 

Task to Task String Attribute 

Scale Non-Integer Moved to DM 

Graceful Exit from Syntaxed ST 

FILE-LIMIT Statement Caused IN 
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PATCH TABLE 
SOFTWARE 

COBOL74 

COBOL 7 4 

COBOL74 

COBOL74 

COBOL74 

COBOL74 

COBOL74 

COBOL 7 4 

COBOL 7 4 

COMPARE 

COMPARE 

CONFIGURATOR 

CONFIGURATOR 

CONFIGURATOR 

CONFIGURATOR 

CONFIGURATOR 

CONFIGURATOR 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

CONTROLLER 

COPYAUD- 1 I 

COPYAUD- 1 1 

COPYAUD- 1 I 

COPYAUD- 1 1 

DASDL 

DASDL 



PATCH 



PR I 



NOTE DESCRIPTION 



31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31. 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31 . 

31. 

31 . 

31 . 

31 

31 

31 

31 

31 

31 

31 



.0.0139 
.0.0149 
.0.0150 
.0.0160 
.0.0171 
.0.0172 
.0.0183 
.0.0190 
.0.0195 
.0.0003 
.0.0005 
.0.0002 
.0.0004 
.0.0007 
.0.0008 
.0.0009 
.0.0011 
.0 0006 
.0.0008 
.0.0009 
.0.001 1 
.0.0012 
.0.0015 
.0.0017 
.0.0021 
.0.0026 
.0.0027 
.0.0032 
.0.0034 
.0.0035 
.0.0036 
.0.0037 
.0.0038 
.0.0039 
.0.0040 
.0.0042 
.0.0046 
.0.0047 
.0.0049 
.0.0051 
.0.0052 
.0.0053 
.0.0054 
0057 
0058 
0060 
0061 
0064 
0066 
0.0067 
0.0068 
0.0070 
0.0073 
0.0074 
0.0083 
0.0085 
0.0086 
0.0089 
0.0090 
0.0091 
0.0093 
0.0094 
0.0095 
0.0096 
0.0097 
0.0098 
0.0099 
0.0101 
0.0102 
0.0103 
0.0105 
0.0106 
0.0108 
0.0110 
0.0111 
0.0118 
0.0003 
0.0004 
0.0005 
0.0007 
0.0012 
0.0013 



34674 D2839 
34668 P2252 
35623 P2219 
34674 D2839 
30376 D2979 
30376 D2979 
35947 D2874 
34674 D2839 
34674 D2839 
34019 P1887 
35623 P2219 
35623 P2219 
35985 D2867 
35985 D2867 
35985 D2867 
35985 D2867 
35985 D2867 
35987 D2861 
32463 P9150 
32493 P9217 
32636 D2267 
32604 D2404 
32591 P1073 
32575 P1077 
33252 D2463 
33538 D2493 
34976 D2430 
33849 D2535 
33319 P1705 
33849 D2535 
34063 D2627 
34057 P1706 
33849 D2535 
33838 D2604 
34263 D2594 
33849 D2535 
34213 P1765 
34210 D2592 
34200 PI 800 
30499 D2637 
33849 D2535 
33849 D2535 
33849 D2535 
33849 D2535 
33849 D2535 
33849 D2535 
34968 P2105 
33849 D2535 
33849 D2535 
33849 D2535 
33849 D2535 
33849 D2535 
35373 D2694 
35623 P2219 
35736 P2308 
33849 D2535 
35985 D2867 
33849 D2535 
33849 D2535 
36102 P2400 
33849 D2535 
36054 P2399 
36070 P2440 
33849 D2535 
33849 D2535 
33849 D2535 
36081 P2466 
37270 P2467 
36084 P2489 
35985 D2867 
33849 D2535 
37246 P2541 
33849 D2535 
37496 P2525 
37485 D2940 
37665 D2953 
34464 P1548 
35623 P2219 
35441 P2217 
37080 P2478 
33123 P1840 
33118 D2568 



Library Facility Implemented 
Statistics Not Correct for STO 
KIND=DISK Vs. FAMILYNAME 
Library Facility Implemented 
Ports and S i gna 1 s 
Por t s and S i gna 1 s 
OCCURS DEPENDING Option 
Library Facility Implemented 
Library Facility Implemented 
Usercode Attached File Titles 
KIND=DISKVs. FAMILYNAME 
KIND=DlSKVs. FAMILYNAME 



Soft Configuration of Global M 

Soft Configuration of Global M 

Soft Configuration of Global M 

Soft Configuration of Global M 

Soft Configuration of Global M 

B6800 Multiprocessor Systems 

FILEKIND 

SQ NO ENTRIES 

Four vs Three Digit System Ser 

New Display Options 

ADMEVENT M 

PC Vs. MPX3 

RESOURCECHECK 

Accesscode 

MCP Restructuring 

Revised ODT Messages 

REMOTESPO 

Revised ODT Messages 

Accesscode 

NEXT on RJE Peripheral Siatus 

Revised ODT Messages 

Libraries 

Remove DCKEYIN Restrictions 

Revised ODT Messages 

SQ Command Correction 

Time and Date Verification 

WAITLIMIT 

Reason for Queue DS 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

DUP FAMILY 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Implementation of DL 

KIND=DISK Vs. FAMILYNAME 

CONT6 GETDISK 

Revised OUT Messages 

Soft Configuration of Global M 

Revised ODT Messages 

Revised ODT Messages 

Correct MQ- 1023 

Revised ODT Messages 

Message Greater Than 1896 Char 

SCR Length 

Revised ODT Messages 

Revised ODT Messages 

Revised ODT Messages 

Mnemonic Improvement 

Privi leged MCS 

PRINTLABEL 

Soft Configuration of Global M 

Revised ODT Messages 

CU Vs. HARDCOPY 

Revised ODT Messages 

ODT Timout 

Leading Blanks in ACCEPT Messa 

New COMPILER INFO Format 

Correct Block Size Error Mes 

KIND=DISK Vs. FAMILYNAME 

Block Checksum 

Close New Audit Before Old 

Improve DASDL Scanner 

Allow More Structures, Items P 
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PATCH TABLE 












SOFTWARE 


PATCH 


PR I 


NOTE 


DASDL 


31 


.0 


.0014 


33119 


D2567 


DASDL 


31 


.0 


.0017 


32015 


D2613 


DASDL 


31 


.0 


.0018 


32007 


D2614 


DASDL 


31 


.0 


.0021 


34301 


P1775 


DASDL 


31 


.0 


.0022 


34358 


D2615 


DASDL 


31 


.0 


.0023 


34352 


P1776 


DASDL 


31 


.0 


.0024 


34341 


D2616 


DASDL 


31 


.0 


.0025 


34339 


P1777 


DASDL 


31 


.0 


.0026 


33759 


D2619 


DASDL 


31 


.0 


.0027 


34331 


P1803 


DASDL 


31 


.0 


.0028 


343 30 


P1804 


DASDL 


31 


.0 


.0029 


34481 


P1920 


DASDL 


31 


.0 


.0030 


34461 


P1921 


DASDL 


31 


.0 


.003 1 


34456 


D2682 


DASDL 


31 


.0 


.0032 


35318 


D2802 


DASDL 


31 


.0 


.0033 


35302 


D2709 


DASDL 


31 


.0 


.0034 


35320 


D2729 


DASDL 


31 


.0 


.0035 


35335 


D2732 


DASDL 


31 


.0 


.0036 


35348 


P2191 


DASDL 


31 


.0 


.0037 


35316 


D2730 


DASDL 


31 


.0. 


.0038 


35332 


D2751 


DASDL 


31 


.0 


.0039 


35431 


P2207 


DASDL 


31 


.0 


.0041 


35623 


P2219 


DASDL 


31 


.0. 


.0042 


35446 


P1038 


DASDL 


31 


.0. 


.0043 


35447 


P2034 


DASDL 


31 


.0. 


,0045 


35302 


D2709 


DASDL 


31 


.0 


0046 


35473 


D2889 


DASDL 


31 


.0. 


,0047 


35476 


P2354 


DASDL 


31 


.0. 


.0048 


35477 


P2355 


DASDL 


31 


.0. 


.0049 


35480 


P2356 


DASDL 


31 


.0. 


0051 


36172 


P2455 


DASDL 


31 


.0. 


.0052 


36172 


P2455 


DASDL 


31 


,0. 


,0053 


36180 


P2456 


DASDL 


31 


,0. 


0054 


37091 


P2457 


DASDL 


31 


.0. 


0055 


37090 


P2479 


DASDL 


31 


,0. 


0056 


37087 


P2480 


DASDL 


31 


.0 


0059 


37448 


P2578 


DASDL 


31 


,0. 


0060 


37537 


P2608 


DASDL 


31 


,0 


.0062. 


37535 


P2609 


DASDL 


31 


,0. 


0063 


37731 


P2610 


DASDL 


31 


,0, 


0064 


38029 


P2639 


DATACOM 


31 


.0. 


0060 


31593 


P9144 


DATACOM 


31 


.0. 


0075 


32813 


P9157 


DATACOM 


31 


.0. 


0526 


34952 


P2106 


DATACOM 


31 


.0. 


0527 


34951 


P2107 


DATACOM 


31 


,0 


0528 


32568 


P2108 


DATACOM 


31 


.0, 


0529 


32570 


P2109 


DATACOM 


31 


0. 


0530 


35215 


D2703 


DATACOM 


31 


.0. 


0821 


36018 


P2397 


DATACOM 


31 


.0. 


0822 


36044 


D2903 


DATACOM 


31 


.0. 


0855 


37021 


P2450 


DATACOM 


31 


.0. 


0979 


37028 


P2583 


DATACOM 


31 


,0. 


1011 


37029 


P2596 


DATACOM 


31 


,0. 


1014 


37759 


P2622 


DATACOM 


31 


.0. 


1015 


37760 


P2623 


DCALGOL 


31 


.0. 


0053 


34580 


P1882 


DCALGOL 


31 


,0 


0056 


34580 


P1882 


DCALGOL I NT 


31 


,0. 


0002 


33913 


D2565 


DCALGOL I NT 


31 


.0. 


0004 


34604 


P1888 


DCPPROGEN 


31 


0. 


0002 


35215 


D2703 


DCPPROGEN 


31 


.0. 


.0003 


32568 


P2108 


DCPPROGEN 


31 


.0, 


.0005 


34615 


P2201 


DCPPROGEN 


31 


.0 


0007 


35535 


D2772 


DCPPROGEN 


31 


,0 


,0008 


35539 


P2325 


DCPPROGEN 


31 


.0 


.0009 


36016 


P2402 


DCPPROGEN 


31 


.0 


.0010 


36015 


P2401 


DCPPROGEN 


31 


.0 


,0013 


36019 


P2441 


DCPPROGEN 


31 


.0 


.0014 


37023 


P2491 


DCPPROGEN 


31 


.0 


,0015 


37024 


P2493 


DCPPROGEN 


31 


.0 


.0016 


36015 


P2401 


DCPPROGEN 


31 


.0 


.0017 


37026 


P2554 


DCPTESTGEN 


31 


.0 


.0003 


35623 


P2219 


DCPTESTGEN 


31 


.0 


.0005 


36008 


P2366 


DCSTATUS 


31 


.0 


.0002 


32571 


D2696 


DCSTATUS 


31 


.0 


.0004 


35623 


P2219 


DDDASDL 


31 


.0 


.0001 


33453 


D2806 


DDDASDL 


31 


.0 


.0008 


37748 


P2613 


DDINITIAL 


31 


.0 


.0001 


33453 


D2806 


DDUPDATE 


31 


.0 


.0001 


33453 


D2806 


DDUPDATE 


31 


.0 


.0002 


33453 


D2806 


DDUPDATE 


31 


.0 


.0003 


33453 


D2806 


DDUPDATE 


31 


.0 


.0004 


33453 


D2806 



VERSION Compiler Option 

Op t i m i z e CLEARDATA Text 

List TAPE and NEWTAPE File Tit 

Eliminate SEG ARRAY Error 

DASDL Defaults for Data Sets a 

Recompi 1 at ion Message for Upda 

INITIALIZE Statement Zips UTIL 

Prevent Abnormal Termination 

REBLOCKING 

Prevent INVALID INDEX 

Ensure AREAS IZE is Specified P 

Valid OPEN PARTITIONS Attribut 

Global Chain Not Overlayed 

Control File Title on Update 

Retain or Reuse Old Structure 

B7700 Opt imi znt ion 

Add Subsystem ID Dollar Card 

Elimination of REORGPENDING 

Erroneous Key Changed Errors 

Changes to READAHEAD, Buffers 

Zip Standard WFL File 

INFO Table Incorrect 

KIND=DISK Vs. FAMILYNAME 

INVALID INDEX 

Syntax Error for One Global Da 

B7700 Optimization 

TPSDUALUPDATE Option Added 

Text Generated for Group Key w 

Last Scan Saved 

Corrects Error Checking for RE 

Print Store Card Image 

Print Store Card Image 

Allow ALTERNATE Specs after PA 

Always Compile PARTITIONCONTRO 

Maximum Length DBNAME In Quote 

Disallow Data Set with No Name 

Four Digit Patch Numbers 

Warning for ACRINFO, ACRDISPLA 

DECKLIST Option 

Write Omitted Cards to Listing 

Increase TEXTGENMAX to 4095 

ADD STATION TO FILE DCWRITE 

Inserting Null Message in Inac 

Segmented Array Disk I/O 

Recont imeout Failure 

DCCONTROL Invalid Index 

Set Up Line Control Index 

Implement Application Number V 

Restarting DSed DCP 

Station Interrogate Dcwrite Ex 

DCP Termination 

Subtract Station Fault with No 

Not Ready Lines After Cluster 

Set "ICANWAITF" in DCINSERT GE 

DCTANKING Error Handling Corre 

Erroneous Parameter Checking I 

Erroneous Parameter Checking I 

Int rins ics 

Correct DCP Sleep Address Inte 

Implement Application Number V 

DCCONTROL Invalid Index 

OR and XOR Code Generation 

Implement Variable Size Statio 

Further Auxiliary Logic Correc 

Full Duplex Termination 

Extend Labels for 20 Bit Addre 

LOSSOFCARRIER=DISCONNECT Vs. S 

Correct Code Listing for 20-Bi 

TERMINATE OUTPUTREQUEST Label 

Extend Labels for 20 Bit Addre 

Save and Use ADDCLUSTERS Varia 

KIND=DISK Vs. FAMILYNAME 

MAKE NEWTAPE FILEKIND=DCPSYMBO 

Ext ens ions 

KIND=DISK Vs. FAMILYNAME 

Data Di c t ionary 

Maintain Level Number and Occu 

Data Di c t i onary 

Data Di c t i onary 

Data Di c t i onary 

Data Di c t ionary 

Data Di c t ionary 
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SOFTWARE 


PATCH 


PR I 


NOTE 


DDUPDATE 


31 


.0 


.0005 


33453 


D2806 


DDUPDATE 


31 


.0 


.0006 


33453 


D2806 


DDUPDATE 


31 


.0 


.0007 


33453 


D2806 


DDUPDATE 


31 


.0 


.0008 


33453 


D2806 


DDUPDATE 


31 


.0 


.0009 


33453 


D2806 


DDUPDATE 


31 


.0 


.0010 


33453 


D2806 


DDUPDATE 


31 


.0 


.0016 


33453 


D2806 


DDUPDATE 


31 


.0 


.0021 


37748 


P2613 


DDUPDATE 


31 


.0 


.0022 


37747 


P2614 


DIAGNOSTMCS 


31 


.0 


.0005 


35623 


P2219 


DMALGOL 


31 


.0 


.0138 


34417 


P2115 


DMALGOL 


31 


.0 


.0144 


35524 


D2759 


DMALGOL 


31 


.0 


.0146 


35524 


D2759 


DMCTL 


31 


.0 


.0001 


33759 


D2619 


DMCTL 


31 


.0 


.0003 


34304 


D2611 


DMCTL 


31 


.0 


.0004 


34305 


D2617 


DMCTL 


31 


.0 


.0006 


34359 


P1739 


DMCTL 


31 


.0 


.0007 


34480 


P1922 


DMCTL 


31 


.0 


.0008 


34419 


D2708 


DMCTL 


31 


.0 


. 0009 


35318 


D2802 


DMCTL 


31 


.0 


.0010 


35335 


D2732 


DMCTL 


31 


.0 


.0012 


35623 


P2219 


DMCTL 


31 


.0 


.0013 


35302 


D2709 


DMCTL 


31 


.0 


.0015 


35426 


P2362 


DMCTL 


31 


.0 


.0016 


37084 


P2495 


DMCTL 


31 


.0 


.0020 


37084 


P2495 


DOCUMENTOR 


31 


.0 


.0001 


34543 


P1832 


DOCUMENTOR 


31 


.0 


.0002 


34544 


P1833 


DOCUMENTOR 


31 


.0 


.0003 


35114 


P2069 


DOCUMENTOR 


31 


.0 


.0004 


37994 


P2629 


DUMPALL 


31 


.0 


.0002 


34254 


P1766 


DUMPALL 


31 


.0 


.0003 


34253 


P1767 


DUMPALL 


31 


.0 


.0004 


34251 


P1768 


DUMPALL 


31 


.0 


.0005 


34250 


P1769 


DUMPALL 


31 


.0 


.0008 


35623 


P2219 


DUMPALL 


31 


.0 


.0009 


35805 


P2261 


DUMPALL 


31 


.0 


.0010 


35873 


P2343 


DUMPALL 


31 


.0 


.0012 


36028 


P2442 


DUMPALL 


31 


.0. 


,0013 


36029 


P2443 


DUMPALL 


31 


.0 


0014 


37259 


P2529 


DUMPALL 


31 


.0. 


0015 


37258 


P2528 


DUMPANALY 


31 





0009 


35987 


D2861 


DUMPANALY 


31 





0010 


30369 


P9249 


DUMPANALY 


31 


,0. 


001 1 


32636 


D2267 


DUMPANALY 


31 





0012 


30370 


P9248 


DUMPANALY 


31 . 


0. 


0013 


32857 


P9272 


DUMPANALY 


31 


0. 


0014 


30372 


P9277 


DUMPANALY 


31 . 


0. 


0015 


33081 


PI 109 


DUMPANALY 


31 . 


0. 


0016 


33080 


P1110 


DUMPANALY 


31 . 


0. 


0017 


35987 


D2861 


DUMPANALY 


31 . 


0. 


0018 


30374 


D2451 


DUMPANALY 


31 . 


0. 


0019 


30411 


D2453 


DUMPANALY 


31 . 


0. 


0021 


30375 


P1213 


DUMPANALY 


31 . 


0. 


0022 


33208 


P1603 


DUMPANALY 


31 . 


0. 


0028 


33087 


P1226 


DUMPANALY 


31 . 


0. 


0029 


33946 


P1520 


DUMPANALY 


31 . 


0. 


0030 


30378 


D2551 


DUMPANALY 


31. 


0. 


0032 


30376 


D2979 


DUMPANALY 


31 . 


0. 


0034 


30381 


P1707 


DUMPANALY 


31 . 


0. 


0035 


30382 


P1708 


DUMPANALY 


31 . 


0. 


0036 


33838 


D2604 


DUMPANALY 


31 . 


0. 


0037 


34106 


D2593 


DUMPANALY 


31 . 


0. 


0038 


30376 


D2979 


DUMPANALY 


31 . 


0. 


0039 


30388 


P1793 


DUMPANALY 


31 . 


0. 


0040 


30498 


D2635 


DUMPANALY 


31 . 


0. 


0043 


30410 


P1893 


DUMPANALY 


31 . 


0. 


0045 


30390 


P2083 


DUMPANALY 


31 . 


0. 


0046 


30391 


P2084 


DUMPANALY 


31 . 


0. 


0047 


33849 


D2535 


DUMPANALY 


31 . 


0. 


0048 


30502 


D2720 


DUMPANALY 


31 . 


0. 


0051 


33849 


D2535 


DUMPANALY 


31 . 


0. 


0054 


35623 


P2219 


DUMPANALY 


31 . 


0. 


0058 


35614 


D2845 


DUMPANALY 


31 . 


0. 


0059 


35615 


D2846 


DUMPANALY 


31 . 


0. 


0064 


35842 


P2321 


DUMPANALY 


31 . 


0. 


0067 


35891 


P2358 


DUMPANALY 


31 . 


0. 


0068 


35850 


D2 883 


DUMPANALY 


31 . 


0. 


0070 


36109 


P2423 


DUMPANALY 


31 . 


0. 


0071 


371 10 


P2432 


DUMPANALY 


31 . 


0. 


0076 


361 17 


P2488 


DUMPANALY 


31 . 


0. 


0077 


37120 


D2944 


DUMPANALY 


31 . 


0. 


0078 


37511 


D2945 



Dat a Di c t i onar y 

Data Di c t i onary 

Data Di c t i onary 

Da t a Di c t i onary 

Data Di c t i onary 

Data Di c t i onary 

Data Diet i onary 

Maintain Level Number and Occu 

Text Files Without Valid Heade 

KIND=DISK Vs. FAMILYNAME 

Compile Time Processor INVALID 

B7000 Series DM Optimization 

B7000 Series DM Optimization 

REBLOCKING 

Transaction Processing System 

Visible DBS Changes and Enhanc 

OPEN INITIALIZE Vs. RECOVERY 

INV OP in IODISKADDRESS 

Dump Tape Directory 

Retain or Reuse Old Structure 

Elimination of REOROPENDING 

KIND=DISK Vs. FAMILYNAME 

B7700 Optimization 

Abort Handling Mechanism 

DS DBS Vs. File Attributes 

DS DBS Vs. File Attributes 

Update Document Printer for GM 

Modified Mark # in Directory P 

Remove PROGRAMDOC From Exclude 

Miscellaneous Changes 

UL OPtion Correction 

ROUTINE and COPY Statements Re 

DMPMT Short Records 

Equal Sign in File Title 

KIND=DISK Vs. FAMILYNAME 

INTMODE of HEX or SINGLE 

Unallocated Rows 

Loop in DMPMT if File Found on 

No File when Equating Tape to 

Error Messages 

NEWFILE Vs. Old File 

B6800 Multiprocessor Systems 

Correct "CANNOT ANALYZE" Messa 

Four vs Three Digit System Ser 

Standard Mode From the Termina 

FIBLOCKSNR 

Supply Information on Incompat 

Hard Lock and RCW Analysis 

MCP Title from Header 

B6800 Multiprocessor Systems 

New IOCB Word, Remote Backup F 

HELP Command Improvements 

SEARCH Command Acceleration 

Extract IOCBs from Buffers 

EVENT Mechanism Changes 

IO Deadlock Analysis 

STANDARD Command 

Ports a-.d Signals 

Unknown Run Time Options in MC 

MOD 63 Gives False Tape Error 

Li brar i es 

STACK Bounds 

Ports and Signals 

Miscellaneous Corrections 

Port and Signal Analysis 

SIRW Analysis 

Sequence Numbers from RCW 

Faul t Handl ing 

Revised ODT Messages 

Network Analysis 

Revised ODT Messages 

KIND=DISK Vs. FAMILYNAME 

MCP Name Handl ing 

Area Dump Headings 

Close Interactive OPTIONS File 

OVERLAYCF 

Count Logical I/O Requests 

Memory Priority for Swap jobs 

Cope with FIB Index Array Not 

Automatic Shortening of SEARCH 

Interact i ve Mode 

IO Uni t Sel ect ion 
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SOFTWARE 


PATCH 


PR I 


NOTE 


DUMPANALY 


31 


.0 


.0079 


37122 


P2540 


DUMPANALY 


31 


.0 


.0080 


37512 


P2523 


DUMPANALY 


31 


.0 


.0081 


37513 


P2524 


DUMPANALY 


31 


.0 


.0082 


3 7 514 


D2939 


DUMPANALY 


31 


.0 


.0083 


37515 


P2520 


DUMPANALY 


31 


.0 


.0084 


37516 


P2521 


DUMPANALY 


31 


.0 


.0086 


37519 


P2515 


DUMPANALY 


31 


.0 


.0088 


37 520 


P2565 


DUMPANALY 


3 1 


.0 


.009 1 


37714 


P2581 


DUMPANALY 


3 1 


.0 


.0092 


37713 


D2950 


DUMPANALY 


31 


.0 


.0093 


37712 


D2949 


DUMPANALY 


31 


.0 


.0094 


37665 


D2953 


DUMPANALY 


31 


.0. 


.0096 


37972 


D2966 


DUMPDIR 


31 


.0. 


.0002 


34419 


D2708 


DUMPDIRLIB 


31 


.0 


.0002 


34419 


D2708 


DUMPDIRLIB 


31 


.0 


,0003 


34419 


D2708 


DUMPDIRLIB 


31 


.0 


.0004 


34419 


D2708 


DUMPDIRLIB 


31 


.0 


.0007 


37539 


P2582 


DUMPDIRLIB 


31 


.0. 


,0009 


34419 


D2708 


DUMPDIRLIB 


31 


.0 


,0010 


34419 


D2708 


DUMPDIRLIB 


31 


.0 


,001 1 


34419 


D2708 


ESPOL 


31 


.0 


,0017 


35623 


P2219 


ESPOLINTRN 


31 


.0 


,0001 


32078 


P9285 


ESPOLINTRN 


3 1 


.0 


0012 


33913 


D2565 


ESPOLINTRN 


31 


.0 


,0024 


34263 


D2594 


ESPOLINTRN 


31 


.0 


,0026 


34140 


D2595 


ESPOLINTRN 


31 


.0 


0030 


34135 


P1841 


ESPOLINTRN 


31 


.0. 


003 1 


34583 


D2680 


ESPOLINTRN 


31 


.0 


0034 


35232 


P2141 


ESPOLINTRN 


31 


.0 


0035 


35233 


P2142 


ESPOLINTRN 


31 


.0 


0036 


35236 


P2143 


ESPOLINTRN 


31 


.0. 


,0037 


35237 


P2144 


ESPOLINTRN 


31 


.0 


0038 


35238 


P2145 


ESPOLINTRN 


31 


.0 


,0039 


35239 


P2146 


ESPOLINTRN 


31 


.0 


0040 


35240 


P2147 


ESPOLINTRN 


31 


.0. 


0041 


35241 


P2148 


ESPOLINTRN 


3 1 


.0 


0042 


35242 


P2149 


ESPOLINTRN 


31 


.0. 


0043 


35243 


P2 1 50 


ESPOLINTRN 


3 1 


.0. 


.0044 


35244 


P215 1 


ESPOLINTRN 


31 


.0 


,0045 


35245 


P2152 


ESPOLINTRN 


31 


.0. 


0046 


35246 


P2153 


ESPOLINTRN 


31 


.0. 


0047 


35247 


P2154 


ESPOLINTRN 


31 


.0. 


0048 


35248 


P2155 


ESPOLINTRN 


31 


,0. 


0051 


35252 


P2156 


ESPOLINTRN 


31 


.0. 


,0052 


35253 


P2157 


ESPOLINTRN 


31 


.0 


0053 


35254 


D2817 


ESPOLINTRN 


31 


.0. 


.0054 


35255 


D2818 


ESPOLINTRN 


31 


.0. 


0055 


35256 


P2160 


ESPOLINTRN 


31 


.0 


0056 


35257 


D2819 


ESPOL INTRN 


31 


.0 


.0057 


35258 


P2162 


ESPOLINTRN 


31 


.0, 


0060 


34659 


PI453 


ESPOLINTRN 


31 


.0. 


0063 


35953 


P2542 


ESPOLINTRN 


31 


,0. 


0064 


37400 


P2543 


ESPOLINTRN 


31 


.0. 


0066 


35255 


D2818 


ESPOLINTRN 


31 


.0. 


0067 


35956 


P2591 


ESPSIM 


31 


.0. 


0002 


35623 


P2219 


EVENTS 


31 


.0. 


0001 


34561 


P1834 


FILECOPY 


31 


.0. 


0008 


34993 


P2188 


FILECOPY 


31 


.0. 


001 1 


35623 


P2219 


FILECOPY 


31 


.0. 


0012 


35647 


P1847 


FILECOPY 


31 


.0. 


0013 


35647 


P1847 


FILECOPY 


31 


.0. 


0015 


35647 


P1847 


FILECOPY 


31 


.0. 


0016 


3 7255 


D2941 


FILECOPY 


31 


.0. 


0017 


37254 


D2946 


FILECOPY 


3 1 


.0. 


0019 


37489 


P25 55 


FILEDATA 


31 


.0, 


,0003 


33530 


P1364 


FILEDATA 


31 


.0. 


,0007 


35623 


P2219 


FILEDATA 


31 


.0. 


0008 


35743 


P2296 


FILEDATA 


3 1 


.0. 


0010 


36092 


P2468 


FLIPFLOPS 


31 


.0. 


0001 


37404 


D2977 


FORTRAN 


31 


.0. 


0009 


32685 


D2265 


FORTRAN 


31 


.0. 


0015 


341 16 


P1845 


FORTRAN 


3! 


.0, 


0017 


341 1 1 


D2821 


FORTRAN 


31 


.0. 


0018 


341 13 


P1848 


FORTRAN 


31 


.0. 


0019 


34541 


P1849 


FORTRAN 


31 


.0. 


0020 


341 18 


P1850 


FORTRAN 


31 


.0. 


0022 


341 15 


P1842 


FORTRAN 


31 


.0. 


0023 


341 19 


P1843 


FORTRAN 


3 1 


.0. 


0024 


34120 


P1844 


FORTRAN 


3 1 


.0. 


0026 


34512 


P1874 


FORTRAN 


31 


.0 


.0028 


34537 


P1934 


FORTRAN 


31 


.0. 


,0029 


34542 


P1935 



Improved Initialization and Fi 

Special Arrays 

Remote Line Width 

Code Dump 

Save Fi le AREASIZE 

Break on Output 

DCC and DCP Station Info 

"TAG 4" and "TAG 6" Analysis 

PV and Stackdump Operands 

Locks, Events, DEADLOCK Analys 

Descriptor Analysis 

New COMPILERINFO Format 

NOIO AND UINFO Options 

Dump Tape Directory 

Dump Tape Directory 

Dump Tape Directory 

Dump Tape Directory 

Location for Length of Dump Di 

Dump Tape Directory 

Dump Tape Directory 

Dump Tape Directory 

KIND=DISK Vs. FAMILYNAME 

Task Restructuring 

Int r i ns i cs 

Remove DCKEYIN Restrictions 

Compiling ESPOL Intrinsics 

BASIC Binary Fi les 

Freefield Output for Complex V 

Correct R Formats 

Eliminate Loop on Invalid Char 

Determine Length of Character 

Correct Invalid Index 

BASIC, Binary Ft les 

MONITOR Double Variable 

Correct E Format 

BASIC, Correct Buffer Flushing 

Correct Numeric Replace 

Prevent Extra Printing 

BASIC, PRINTUSING 

BASIC, Empty Fi les 

Task DS 

Monitor Double Arrays 

Scale Format Phrase 

Free Field Output 

Binary Write Question Marks 

BASIC, Blocking of Disk Files 

BASIC, File Handling Changes 

BASIC, Resize Format Buffer 

New Display of Format Errors 

BASIC, String Comparisons 

STATISTICS Option 

Formatting Intrinsics 

GMM Rout ines 

BASIC, Fiie Handling Changes 

FORTRAN BCL Formatting 

KIND=DISK Vs. FAMILYNAME 

Test 309 Failed with GSC Absen 

Punched Output 

KIND=DISKVs. FAMILYNAME 

1 1 . 9 WFL 

II .9 WFL 

II .9 WFL 

Time Value of Second Times tamp 

Volume Specification Not Allow 

(X) Vs. »X in EXCLUDE List 

Accesscode 

KIND=DISK Vs. FAMILYNAME 

Allow CANDE LFILES with No Di 

6250 BPI Tapes Recognized 

Error Messages in Hex 

Standardization of Compiler Fi 

Monitor Binder Interface 

Format-Repeat Count 

Run-Time Group Repeat 

Bad PCW on Action Label 

Multiple Entry Points with OPT 

Invalid Syntax, IMPLICIT State 

Double Precision Constants OPT 

Invalid Type Checking of Subro 

Binding FORTRAN and ALGOL 

Invalid Syntax in Data Lists 

Repeat Count, Leading Zeros 
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SOFTWARE 


PATCH 


PR I 


NOTE 


FORTRAN 


31 


.0.0030 


341 17 


P1936 


FORTRAN 


31 


.0.0031 


34536 


P1937 


FORTRAN 


31 


.0.0032 


34535 


P1938 


FORTRAN 


31 


.0.0033 


34533 


P1939 


FORTRAN 


31 


.0.0034 


34534 


D2822 


FORTRAN 


31 


.0.0036 


30376 


D2979 


FORTRAN 


31 


.0.003 8 


35623 


P2219 


FORTRAN 


31 


.0.0039 


33838 


D2604 


FORTRAN 


31 


.0.0040 


3581 1 


P2302 


FORTRAN 


31 


.0.0041 


34527 


P2322 


FORTRAN 


31 


.0.0047 


34519 


P2592 


FUNCTIONAL 


31 


.0.0001 


37403 


D2976 


GUARDFILE 


31 


.0.0002 


33533 


D2494 


GUARDFILE 


31 


.0.0004 


35623 


P2219 


HARDCOPY 


31 


.0.0003 


35623 


P2219 


HOSTINTFACE 


31 


.0.0003 


37550 


P2547 


HOSTLIB 


31 


.0.0002 


34304 


D2611 


HOSTLIB 


31 


.0.0003 


35623 


P2219 


HOSTLIB 


31 


.0.0004 


35426 


P2362 


HOSTLIB 


31 


.0.0005 


35426 


P2362 


HOSTLIB 


31 


.0.0007 


35313 


P2418 


HOSTLIB 


31 


.0.0008 


35426 


P2362 


HOSTLIB 


31 


.0.0009 


35313 


P2418 


HOSTLIB 


31 


.0.0010 


35313 


P2418 


HOSTLIB 


31 


.0.001 1 


35313 


P2418 


HOSTLIB 


31 


.0.0012 


35313 


P2418 


HOSTLIB 


31 


.0.0013 


35313 


P2418 


HOSTLIB 


31 


.0.0014 


35313 


P2418 


HOSTLIB 


31 


.0.0015 


37222 


P2548 


HOSTLIB 


31 


.0.0016 


35313 


P2418 


HOSTLIB 


31 


.0.0017 


35313 


P2418 


HOSTLIB 


31 


.0.0019 


35313 


P2418 


HOSTLIB 


31 


.0.0020 


35313 


P2418 


HOSTLIB 


31 


.0.0021 


35313 


P2418 


HOSTLIB 


31 


.0.0022 


35313 


P2418 


HOSTLIB 


31 


.0.0023 


35313 


P2418 


HOSTLIB 


31 


.0.0024 


35313 


P2418 


HOSTLIB 


31 


.0.0025 


35313 


P2418 


HOSTLIB 


31 


.0.0026 


35313 


P24I8 


HOSTLIB 


31 


.0.0027 


35313 


P2418 


HOSTLIB 


31 


.0.0028 


35313 


P2418 


HOSTLIB 


31 


.0.0029 


35313 


P2418 


HOSTLIB 


31 


.0.0030 


35313 


P2418 


HOSTSERVICES 


31 


.0.0037 


36042 


P2403 


HOSTSERVICES 


31 


,0.0055 


35987 


D2861 


HOSTSERVICES 


31 


.0.0057 


35987 


D2 861 


HOSTSERVICES 


31 


,0.0072 


35987 


D2861 


IADMAPPER 


31 


0.0004 


35623 


P22I9 


IN-OUTPUT 


31 


.0.0017 


32406 


P9024 


IN-OUTPUT 


31 . 


0.0082 


32693 


P9I67 


IN-OUTPUT 


31 . 


0.0130 


32862 


P9228 


IN-OUTPUr 


31 . 


0.0132 


32406 


P9024 


IN-OUTPUT 


31 . 


0.0136 


32857 


P9272 


IN-OUTPUT 


31 . 


0.0141 


30477 


P9273 


IN-OUTPUT 


31 . 


0.0142 


30478 


P9274 


IN-OUTPUT 


31 . 


0.0143 


32867 


P9275 


IN-OUTPUT 


31 . 


0.0152 


32595 


P1030 


IN-OUTPUT 


31 . 


0.0155 


34564 


D2952 


IN-OUTPUT 


31 . 


0.0182 


33057 


P1128 


IN-OUTPUT 


31 . 


0.0195 


33051 


P1I36 


IN-OUTPUT 


31 . 


0.0239 


33208 


P1603 


IN-OUTPUT 


31 . 


0.0258 


30478 


P9274 


IN-OUTPUT 


31 . 


0.0259 


30477 


P9273 


IN-OUTPUT 


31 . 


0.0376 


33313 


P1781 


IN-OUTPUT 


31 . 


0.0418 


34236 


P1736 


IN-OUTPUT 


31 . 


0.0424 


34564 


D2952 


IN-OUTPUT 


31 . 


0.0449 


34190 


P1856 


IN-OUTPUT 


31 . 


0.0452 


33991 


P1860 


IN-OUTPUT 


31 . 


0.0464 


33972 


D2640 


IN-OUTPUT 


31. 


0.0466 


34403 


D2646 


IN-OUTPUT 


31 . 


0.0470 


34805 


P1891 


IN-OUTPUT 


31 . 


0.0504 


34190 


P1856 


IN-OUTPUT 


31 . 


0.0601 


35537 


D2783 


IN-OUTPUT 


31 . 


0.0624 


31272 


D2785 


IN-OUTPUT 


31 . 


0.0659 


34564 


D2952 


IN-OUTPUT 


31 . 


0.0787 


35850 


D2883 


IN-OUTPUT 


31 . 


0.0816 


31282 


D2902 


INITIALIZER 


31 . 


0.0001 


33384 


D1744 


INQ 


31 . 


0.0031 


34501 


P1825 


INQ 


31 . 


0.0032 


34502 


P1826 


INQ 


31 . 


0.0033 


34453 


P2012 


INQ 


31 . 


0.0034 


35353 


P2208 



FREE Format Vs. INCLUDE 
INVALID INDEX, Subroutine Call 
Internal Compiler Fields Excee 
Run Time Problems with Very La 
Binding and Statistics 
Por t s and S i gna 1 s 
KIND=DISKVs. FAMILYNAME 
Libraries 

Invalid PARAMETER MISMATCH 
FORTRAN XREF 

Core Estimate with $SET SEPARA 
Deleted MISSING PORT Message 
Acces scode 

KIND=DISK Vs. FAMILYNAME 
KIND=DISK Vs. FAMILYNAME 
INCLUDE PROPERTIES 
Transaction Processing System 
KIND=DISK Vs. FAMILYNAME 
Abort Handling Mechanism 
Abort Handling Mechanism 
Miscellaneous Corrections 
Abort Handling Mechanism 
Miscellaneous Corrections 
Correct i ons 
Correct ions 
Correct ions 
Correct ions 
Correct tons 
ng Over Rows 
Cor rec t ions 
Cor rect ions 
Cor rec t ions 
Correct ions 
Correct ions 
Correct ions 
Correct ions 
Correct ions 
Correct i ons 
Correct ions 
Correct i ons 
Cor rec t i ons 
Cor rec t ions 
Correct ions 
Correct Attribute Setting 
B6800 Multiprocessor Systems 
B6800 Multiprocessor Systems 
B6800 Multiprocessor Systems 
KIND-DISK Vs. FAMILYNAME 
FIBLOCK and TIMESTAMP 
NORESOURCEWAIT File Attribute 
AVAILABLE 

FIBLOCK and TIMESTAMP 
FIBLOCKSNR 

PROGRAMDUMP, New IOCB 
CLOSE HERE on Empty Tape File 
EVEN Parity Vs. EOF1 
Change INTNAME 
New Task, File Attributes 
CHECKCOUNT Vs. 5 500 Tapes 
Tape Close Vs. MYUSE 
Extract IOCBs from Buffers 
CLOSE HERE on Empty Tape File 
PROGRAMDUMP, New IOCB 
CANCEL/D I RECTDCREAD 
Negative Boolean 
New Task, File Attributes 
Log Vs. Title 
FIBEOF 

Update I/O Implementation Chan 
SERIALNO Attribute Validity Ch 
Badly Blocked Update I/O 
Log Vs. Ti t le 
I/O Error Messages 
HOSTNAME File Attribute 
New Task, File Attributes 
Count Logical I/O Requests 
NEWFILE Vs. Tape Labels 
RSC3 

Display of All-Fraction Items 
Display of Null Items 
Value out of Range 
INVALID INDEX Using Defines 



Mi see I 1 aneous 
Mi see 1 I aneous 
Mi see 1 I aneous 
Mi see 1 1 aneous 
Mi see 1 1 aneous 
Reading, Writi 
Mi see 1 1 aneous 
Mi see 1 1 aneous 
Mi see 1 1 aneous 
Mi see 1 1 aneous 
Mi see 1 1 aneous 
Mi seel laneous 
Mi seel 1 aneous 
Mi seel laneous 
Mi seel laneous 
Mi seel laneous 
Mi seel laneous 
Mi see I I aneous 
Mi see 1 1 aneous 
Mi seel laneous 
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SOFTWARE 


PATCH 


PR I 


NOTE 


INQ 


31 


.0.0036 


35623 


P2219 


INQ 


31 


.0.0038 


35302 


D2709 


INQ 


31 


.0.0039 


35453 


P2251 


INQ 


31 


.0.0040 


35464 


P2276 


INQ 


31 


.0.0042 


35921 


P2389 


INQ 


31 


.0.0043 


37074 


P2481 


INQ 


31 


.0.0044 


37227 


P2500 


INQ 


31 


.0.0045 


37340 


P2501 


INQ 


31 


.0.0047 


37532 


P2612 


INTERFACE 


31 


.0.0005 


34304 


D261 1 


INTERFACE 


31 


.0.0009 


35623 


P2219 


INTERFACE 


31 


.0.0010 


35445 


P2249 


INTERFACE 


31 


.0.001 1 


35450 


P2158 


INTERFACE 


31 


.0.0013 


35302 


D2709 


INTERFACE 


31 


.0.0014 


35481 


P2357 


INTERFACE 


31 


.0.0016 


35481 


P2357 


INTERPRETER 


31 


.0.0001 


34560 


P1835 


INTERPRETER 


31 


.0.0002 


35115 


P2070 


INTERPRETER 


31 


.0.0003 


37401 


D2975 


IOIOP 


31 


.0.0001 


36085 


P2490 


IOTEST 


31 


.0.0001 


36085 


P2490 


IOTEST 


31 


.0.0002 


36085 


P2490 


IOTEST 


31 


.0.0003 


37995 


P2630 


IXREF 


31 


.0.0004 


33167 


D2476 


IXREF 


31 


.0.0006 


33167 


D2476 


IXREF 


31 


.0.0011 


33697 


D2524 


IXREF 


31 


.0.0012 


33696 


D2523 


IXREF 


31 


. . 00 1 7 


31261 


P1556 


IXREF 


31 


.0.0018 


33976 


D2823 


IXREF 


31 


.0.0019 


33977 


D2555 


IXREF 


31 


.0.0020 


33441 


P1652 


IXREF 


31 


.0.0021 


30376 


D2979 


IXREF 


31 


.0.0022 


34584 


D2684 


IXREF 


31 


.0.0024 


34395 


P2206 


IXREF 


31 


.0.0025 


35623 


P2219 


IXREF 


31 


.0.0026 


33838 


D2604 


JOBFORMAT 


31 


.0.0003 


32687 


D2246 


JOBFORMAT 


31 


.0.0004 


32636 


D2267 


JOBFORMAT 


31 


.0.0005 


33067 


P1074 


JOBFORMAT 


31 


.0.0006 


33199 


P1123 


JOBFORMAT 


31 


.0.0012 


33538 


D2493 


JOBFORMAT 


31 


.0.0018 


34063 


D2627 


JOBFORMAT 


31 


.0.0019 


34045 


P1709 


JOBFORMAT 


31 


.0.0020 


33849 


D2535 


JOBFORMAT 


31 


.0.0021 


30499 


D2637 


JOBFORMAT 


31 


.0.0025 


35623 


P2219 


JOBFORMAT 


31 


.0.0027 


34021 


D2647 


JOBFORMAT 


31 . 


,0.0028 


34385 


P2271 


JOBFORMAT 


31 . 


0.0029 


35668 


D2841 


JOBFORMAT 


31 . 


0.0030 


35806 


P2272 


JOBFORMAT 


31 . 


0.0031 


35869 


P2323 


JOBFORMAT 


31 . 


0.0032 


35871 


P2324 


JOBFORMAT 


31 . 


0.0033 


35844 


D2869 


JOBFORMAT 


31 . 


0.0034 


35850 


D2883 


JOBFORMAT 


31 . 


0.0036 


36100 


P2382 


JOBFORMAT 


31 . 


0.0037 


36023 


P2383 


JOBFORMAT 


31 . 


0.0038 


37016 


D2917 


JOBFORMAT 


31 . 


0.0039 


37014 


D2929 


JOBFORMAT 


31 . 


0.0041 


37016 


D2917 


JOBFORMAT 


31. 


0.0042 


37665 


D2953 


JOBFORMAT 


31 . 


0.0043 


37681 


D2967 


LCOBDOWNLINE 


31 . 


0.0004 


35623 


P2219 


LCOBLIBRARY 


31 . 


0.0004 


35623 


P2219 


LCOBOL 


31 . 


0.0007 


34532 


P2005 


LCOBOL 


31 . 


0.0009 


34530 


P2245 


LCOBOL 


31 . 


0.0010 


34529 


P2246 


LCOBOL 


31. 


0.0011 


35623 


P2219 


LCOBOL 


31. 


0.0014 


34522 


P2463 


LISTVOLLIB 


31. 


0.0001 


34976 


D2430 


LISTVOLLIB 


31. 


0.0004 


35623 


P2219 


LQADDUMP 


31 . 


0.0004 


34475 


P1923 


LOADDUMP 


31 . 


0.0005 


34469 


P1924 


LOADDUMP 


31 . 


0.0007 


35623 


P2219 


LOADER 


31 . 


0.0002 


32076 


P9117 


LOADER 


31 . 


0.0003 


32076 


P9117 


LOADER 


31 . 


0.0004 


32866 


D2273 


LOADER 


31 . 


0.0005 


32576 


P1078 


LOADER 


31. 


0.0006 


33247 


P1155 


LOADER 


31 . 


0.0007 


33249 


P1178 


LOADER 


31 . 


0.0012 


33627 


P1388 


LOADER 


31. 


0.0013 


32866 


D2273 


LOADER 


31 . 


0.0019 


34092 


D2S72 



KIND=DISK Vs. FAMILYNAME 

B7700 Opt imi zat ion 

Display of Numeric Items 

Display Limit for OPTION PRINT 

Find Via Self-Correcting Link 

Fault Alpha Control Item Break 

Use of Defines in Certain Cont 

Loss of Minus Sign 

Comparisons of Literals 

Transaction Processing System 

KIND=DISK Vs. FAMILYNAME 

GROUP Items Invoked Incorrect 1 

INVALID INDEX in Data Base Int 

B7700 Opt imiztit ion 

Link to Set Qualification 

Link to Set Qualification 

SNAP Compare Mode 

Print Last and Current Records 

Interrupt Error Handling 

Tape Dens i ty 

Tape Dens i ty 

Tape Dens i ty 

Include PK as Unittype 

INTERACTIVEXREF Enhancements 

INTERACT I VEXREF Enhancements 

Environment Improvement 

Improve Qualfication 

More Information in REF File 

"•BREAK*" 

Recognize Lower Case Input 

Files from NEW Compiler 

Ports and Signals 

COMPLEX Implementation 

Port and Signal Arrays 

KIND=DISK Vs. FAMILYNAME 

Librari es 

B6800 MCP 

Four vs Three Digit System Ser 

JOBFORMATTER Loop 

SEG ARRAY Printing MCS String 

Accesscode 

Accesscode 

Includes LSN for Job Summary 

Revised ODT Messages 

Reason for Queue DS 

KIND=DISK Vs. FAMILYNAME 

LOG IOCONDITION Result Descrip 

Add Case 22, LP 

"MAJOR TYPE=2 MINOR TYPE=5" Vs 

SCR Jobs Generate JOBFORMATTER 

Not Skipping Bad Records 

Prevent INTEGER OVERFLOW 

MCP Level Indicators 

Count Logical I/O Requests 

CLOSE Types 

JOB ENTERED SYSTEM Time 

New BOJ/BOT, EOJ/EOT Log Infor 

Fixed Portion Marker of Log Re 

New BOJ/BOT, EOJ/EOT Log Infor 

New COMPILERINFO Format 

Log Boxes for Jobs 

KIND=DISK Vs. FAMILYNAME 

KIND=DISK Vs. FAMILYNAME 

TU Firmware Buffer Lengths 

IF Statement with OPTIM Correc 

DISPLAY Statement Correction 

KIND=DISK Vs. FAMILYNAME 

Incorrect Code, Invalid Syntax 

MCP Restructuring 

KIND=DISK Vs. FAMILYNAME 

INVALID INDEX with Deleted Str 

Title Attribute Error 

KIND-DISK Vs. FAMILYNAME 

235 Packs 

235 Packs 

IV vs 235 

Three-Multiplexor System 

LOADER Vs. IV 

Binary Disk Addressing 

Change ODT, Panel Displays 

IV vs 235 

Disallow PRINTERLABELS Option 
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SOFTWARE 


PATCH 


PR I 


NOTE 


LOADER 


31 


.0 


.0020 


34238 


P1770 


LOADER 


31 


.0 


.0021 


34210 


D2592 


LOADER 


31 


.0 


.0022 


34188 


P1818 


LOADER 


31 


.0 


.0023 


34014 


P1852 


LOADER 


31 


.0 


.0024 


34014 


P1852 


LOADER 


31 


.0 


.0025 


34965 


P2006 


LOADER 


31 


.0 


.0026 


35356 


P2194 


LOADER 


31 


.0 


.0027 


34979 


D2705 


LOADER 


31 


.0 


.0035 


37458 


P2577 


LOGANALY 


31 


.0 


.0009 


33531 


P1370 


LOGANALY 


31 


.0 


.0017 


33849 


D25 3 5 


LOGANALY 


31 


.0 


.0018 


34211 


P1812 


LOGANALY 


31 


.0 


,0019 


34159 


P1859 


LOGANALY 


31 


.0 


0021 


35361 


P2193 


LOGANALY 


31 


.0 


.0022 


35364 


P2189 


LOGANALY 


31 


.0 


,0024 


35391 


P2212 


LOGANALY 


31 


.0 


,0025 


35623 


P2219 


LOGANALY 


31 


.0 


,0027 


35648 


P1940 


LOGANALY 


31 


.0 


.0028 


35649 


D2833 


LOGANALY 


31 


.0 


,0029 


34021 


D2647 


LOGANALY 


31 


.0 


0030 


35661 


P2262 


LOGANALY 


31 


.0 


0031 


35668 


D2841 


LOGANALY 


31 


.0. 


.0032 


35801 


D2842 


LOGANALY 


31 


.0 


0033 


35373 


D2694 


LOGANALY 


31 


.0, 


0034 


33849 


D2535 


LOGANALY 


31 


.0. 


0036 


36021 


P2378 


LOGANALY 


31 


.0. 


0037 


37014 


D2929 


LOGANALY 


31 


.0 


0039 


37700 


P2586 


LOGGER 


31 


.0. 


0003 


33532 


D2S02 


LOGGER 


31 


.0. 


0008 


34063 


D2627 


LOGGER 


31 


.0. 


0014 


34199 


P1813 


LOGGER 


31 


.0. 


0017 


35623 


P2219 


LOGGER 


31 


.0. 


0018 


35660 


P2263 


LOGGER 


31 


.0. 


0019 


35671 


D2843 


1XX3GER 


31 


.0. 


0020 


35673 


P2264 


1XX3GER 


31 


.0. 


0021 


35675 


D2844 


LOGGER 


31 


.0. 


0023 


36026 


P2384 


IXKKJER 


31 


.0. 


0024 


37488 


P2556 


LTTABLEGEN 


31 


.0. 


0001 


33201 


PI 130 


LTTABLEGEN 


31 


.0. 


0002 


33200 


PI 124 


LTTABLEGEN 


31 


.0. 


0005 


35623 


P2219 


MAINTMCS 


31 


.0. 


0001 


35484 


P2370 


MAINTMCS 


31 


.0. 


0002 


35483 


D2890 


MAKEUSER 


31 


.0. 


0003 


33527 


D2503 


MAKEUSER 


31 


.0. 


0006 


35623 


P2219 


MAKEUSER 


31 


.0. 


0011 


37646 


D2964 


MCP 


31 


.0 


0002 


35987 


D2861 


MCP 


31 


.0 


0003 


32078 


P9285 


MCP 


31 


.0. 


0004 


32076 


P9U7 


MCP 


31 


.0. 


0007 


32703 


P9164 


MCP 


31 


.0. 


0009 


32701 


P9162 


MCP 


31 


.0. 


0047 


32687 


D2246 


MCP 


31 


.0 


0049 


35987 


D2861 


MCP 


31 


.0 


0054 


32690 


P9286 


MCP 


31 


.0 


0055 


34976 


D2430 


MCP 


31 


.0 


0056 


32691 


P9288 


MCP 


31 


.0 


0057 


32664 


P9143 


MCP 


31 


.0. 


0058 


32663 


P1374 


MCP 


31 


.0. 


0059 


32678 


D2249 


MCP 


31 


.0 


0061 


32464 


P9145 


MCP 


31 


.0 


,0062 


32466 


P9146 


MCP 


31 


.0. 


0063 


32465 


P9161 


MCP 


31 


.0, 


0066 


32468 


P9149 


MCP 


31 


.0 


0067 


32463 


P9150 


MCP 


31 


.0 


0068 


32818 


P9151 


MCP 


31 


.0 


0069 


32076 


P9117 


MCP 


31 


.0 


0071 


32666 


P9153 


MCP 


31 


.0 


.0073 


32466 


P9146 


MCP 


31 


.0 


.0074 


32661 


P9156 


MCP 


31 


.0 


,0077 


32872 


P9158 


MCP 


31 


.0 


,0078 


32880 


P9159 


MCP 


31 


.0 


,0080 


32882 


P9160 


MCP 


31 


.0. 


0081 


32820 


P9166 


MCP 


31 


.0 


0085 


31099 


P9169 


MCP 


31 


.0 


0087 


32694 


P9170 


MCP 


31 


.0 


0088 


32695 


P9171 


MCP 


31 


.0 


0090 


32657 


P9176 


MCP 


31 


.0. 


0091 


32823 


P9173 


MCP 


31 


.0 


0092 


32825 


P9172 


MCP 


31 


.0 


0096 


32076 


P9117 


MCP 


31 


.0. 


,0097 


32835 


P9224 


MCP 


31 


.0. 


0098 


32838 


P9225 



OLAYROW Greater Than 1200 

Time and Date Verification 

LOADER Vs . GMM 

TD8 50 ODT 

TD850 ODT 

Un i t Display 

BX3 8 7 Firmware Load 

7A Tape Cont rol 

B9246 Drum Printer in Dump 

Ace es scode 

Revised ODT Messages 

System Serial Number is * Digi 

DT 

Halt/Load Records 

Cardnumber Vs. P3 Word 

Scratchpad Parity Error 

KIND=DISKVs. FAMILYNAME 

Firmware ID in LH ODT Command 

MPX#,PATH# Vs. LH.UA.UR 

LOG IOCOND1TION Result Descrip 

Garbage Output on UNSORTED 

"MAJOR TYPE=2 MINOR TYPE=5" Vs 

ABORT, ERRORS Vs. Other Option 

Implementation of DL 

Revised ODT Messages 

Character Count on Log Title 

Fixed Portion Marker of Log Re 

Family Substitution Vs. READK( 

Acces scode 

Accesscode 

Items Extending Past Column 72 

KIND=DISK Vs. FAMILYNAME 

Elapsed Time for Restart MCS S 

Summary Reports 

Elapsed Time of Jobs Run Throu 

Last STATISTICS Interval Saved 

YTDFILE Update 

ALINK Vs. MATCHM (BOJ.EOJ) 

450/750 LPM Train Printers 

User Specified Tables 

KIND=DISK Vs. FAMILYNAME 

Error Message Displays Correct 

Extension to ADAPTER ADDRESS 

Accesscode 

KIND=DISK Vs. FAMILYNAME 

Enhancements for DL USERDATA 

B6800 Multiprocessor Systems 

Task Restructuring 

235 Packs 

SWAPPER Queue Counts and Aging 

NO MEM in Swapspace 

B6800 MCP 

B6800 Multiprocessor Systems 

DM6700 Vestiges Removed 

MCP Restructuring 

EOJ Variables 

Fatal Stack Overflow 

MAXIOTIME 

OF of GETSTATUS Waiting on <fi 

CRUNCH Vs . COPY 

Reserve Locks 

SCHEDCORE 

BADROW 

FILEKIND 

CDONLY 

235 Packs 

Change Title of Cataloged File 

Reserve Locks 

Task Attribute Errors 

WFL USER Statement in Subrout 

Information Carry Over 

CANDE WFL Command with New WF 

Protected Tapes 

Processor Priority 

WAITLIMIT Correction 

Stacksearch Control 

SWAPPER QT' s BACKUP 

LEIBNITZ EOTINHDR 

BADDISK Vs. Directory 

235 Packs 

VERIFYFAMILY vs HDRVECTORLOCK 

DESCRIPTOR error on Packs 
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SOFTWARE 


PATCH 


PR I 


NOTE 


MCP 


31 


.0 


.0099 


32836 


P9223 


MCP 


31 


.0 


.0101 


32078 


P9285 


MCP 


31 


.0 


.0102 


32697 


P9245 


MCP 


31 


.0 


.0103 


32698 


D2268 


MCP 


31 


.0 


.0104 


32076 


P91 17 


MCP 


31 


.0 


.0105 


34976 


D2430 


MCP 


31 


.0 


.01 10 


32644 


P9231 


MCP 


31 


.0 


.0111 


32840 


P9218 


MCP 


31 


.0 


.0112 


32076 


P9117 


MCP 


31 


.0 


.0113 


32846 


P9220 


MCP 


31 


.0 


.0114 


32839 


P9221 


MCP 


31 


.0 


.0116 


32854 


P9219 


MCP 


31 


.0 


.0118 


32844 


P9222 


MCP 


31 


.0 


.0122 


32833 


P9246 


MCP 


31 


.0 


.0124 


32183 


D2269 


MCP 


31 


.0 


.0125 


32466 


P9146 


MCP 


31 


.0 


.0128 


32843 


P9230 


MCP 


31 


.0 


.0129 


32828 


P9229 


MCP 


31 


.0 


.0131 


32859 


P9227 


MCP 


31 


.0 


.0133 


32860 


P9226 


MCP 


31 


.0 


.0134 


32616 


D2271 


MCP 


31 


.0 


.0135 


32466 


P9146 


MCP 


31 


.0 


.0137 


32858 


P9271 


MCP 


31 


.0 


.0138 


32863 


P9270 


MCP 


31 


.0 


.0139 


32607 


P9276 


MCP 


31 


.0 


.0144 


32866 


D2273 


MCP 


31 


.0 


.0145 


32076 


P9117 


MCP 


31 


.0 


.0146 


32687 


D2246 


MCP 


31 


.0 


.0147 


32849 


P1026 


MCP 


31 


.0 


.0148 


32848 


P1027 


MCP 


31 


.0 


.0149 


32970 


P1028 


MCP 


31 


.0 


.0150 


32851 


P1029 


MCP 


31 


.0 


.0151 


31687 


P8629 


MCP 


31 


.0 


.0153 


32593 


P1053 


MCP 


31 


.0 


.0156 


33050 


P1054 


MCP 


31 


.0 


.0157 


34976 


D2430 


MCP 


31 


.0 


.0158 


33066 


P1076 


MCP 


31 


.0 


,0159 


33065 


P9240 


MCP 


31 


.0 


,0160 


32586 


P9269 


MCP 


31 


.0. 


0161 


33064 


P9304 


MCP 


31 


.0. 


0162 


33063 


P1082 


MCP 


31 


.0, 


0163 


33062 


Pllll 


MCP 


31 


,0. 


0164 


32580 


P9209 


MCP 


31 


,0. 


0165 


33061 


P1112 


MCP 


31 


.0. 


0166 


32579 


P1081 


MCP 


31 


.0. 


0168 


32577 


P1083 


MCP 


31, 


,0. 


0170 


33079 


P1085 


MCP 


31 . 


,0. 


0171 


32889 


D2434 


MCP 


31 . 


,0. 


0172 


32574 


D2439 


MCP 


31 . 


.0. 


0173 


32076 


P9117 


MCP 


31 . 


0. 


0174 


32573 


P1086 


MCP 


31 . 


0. 


0175 


32572 


P1087 


MCP 


31 . 


0. 


0176 


33058 


D2447 


MCP 


31 , 


0. 


0178 


33215 


P1125 


MCP 


31 . 


0. 


0180 


33059 


P1127 


MCP 


31 . 


0. 


0181 


32687 


D2246 


MCP 
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33205 
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MCP 
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SUBSPACES vs USERCODE 

Task Restructuring 

Regulate STACKINFO Locking 

Ignore Unknown Unit Types 

235 Packs 

MCP Restructuring 

User Uses of TD8 30 ODT's for O 

BD Fi les vs EOF=0 

235 Packs 

PLANT MESSAGE vs AUTOBACKUP 

DBSSTACK vs GETSTATUS 

DBS vs CHECKPOINT 

CP vs SWAPPER 

Papertape vs Reelswitch 

RESERVE Enhancements 

Reserve Locks 

HISTORY vs PROGRAMDUMP 

ANABOLISM vs MAKEJOBFILE 

HDREXPAND 

Sticky MEM Recursive GETSPACE 

GETSTATUS MCSNAME 

Reserve Locks 

CP Vs. Backup Tape 

DBS PROGRAMDUMP 

Delete Zero Serial Number 

IV vs 235 

235 Packs 

B6800 MCP 

PATHRES 

WASTEMPATCHECK 

DASDL Update Time stamp 

Queue Error Vs. THEQUE 

PD to Missing Family 

SUSPENDER Vs. OK from ODT 

IC Di skpacks 

MCP Restructuring 

FLATREADER Errors 

Tape Parity Retry Vs. Tapemark 

Density Vs. P:rint label 

IC Specs 

LEIBNITZ Vs. Overlay 

AUTOPRINT Vs. Multiple SKIP TO 

Halt /Load with 64 Mods of Memo 
AUTOPRINT Vs. FM Reply 
NON ANCESTRAL TASKFILE 
CATALOG ADD Tape Files 

STATUSCHANGE Event Batched 
Clearing Card Reader in Use by 
Directory Conversion 

235 Packs 

Unlabeled Tape Corrections 

MCSREADY on SM Input 

COPY Vs. Serial Numbers 

Unit Left Assigned 

Binary Pack Addresses 

B6800 MCP 

RESERVE 

Add ETX to All ODT Output File 

B6800 MCP 

File Removed Message 

450/750 LPM Train Printers 

UR Vs. Resource 

Memory Access Error Vs. Time o 

MCP Restructuring 

TAPEUNIT Vs. VOLUNIT 

II. 6 Vs. Times tamp 

LOADER Vs . IV 

LOADER Vs . IV 

DBS D3 NOMEM 

Tape Write Parity After a Tape 

EOT Vs . TAPEPARITYRETRY 

235 Packs Vs. Model 3 MPX 

FINDINPUT Vs. UNBRF 

SWAPPER Vs . Crunch 

FM Vs. SU 

"Pre-2.4 ON <fault> Statements 

KANGAROO- INTERCEDE Mechanism 

EVENT Mechanism Changes 

Disk Status Vs. Unit Moved 

OF Vs. Exclusive 

Family Substitution Vs. Catalo 

RESOURCECHECK 
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MCP 31.0.0225 33264 P1214 GIVEBACKDISK 

MCP 31.0.0226 33263 P1219 REMOVE Vs. Security 

MCP 31.0.0228 33264 P1214 GIVEBACKDISK 

MCP 31.0.0229 30376 D2979 Ports and Signals 

MCP 31.0.0230 33244 PI 180 TAPEUNIT Vs. VOLUNIT 

MCP 31.0.0231 33265 P1256 COPYIT Vs . GETUSERDISK 

MCP 31.0.0234 34976 D2430 MCP Restructuring 

MCP 31.0.0235 33267 P1253 Zip with Large Array 

MCP 31.0.0237 33266 P1254 DISKLIMIT Vs. RSVP 

MCP 31.0.0238 33268 P1252 SCR Vs. First Action 

MCP 31.0.0242 33160 P1312 Improve AVAILIST Insert Algori 

MCP 31.0.0243 33059 P1127 Binary Pack Addresses 

MCP 31.0.0260 34976 D2430 MCP Restructuring 

MCP 31.0.0286 33538 D2493 Accesscode 

MCP 31.0.0290 34976 D2430 MCP Restructuring 

MCP 31.0.0291 34976 D2430 MCP Restructuring 

MCP 31.0.0308 33854 P1459 MISSINGPROCEDURE Call 

MCP 31.0.0321 33814 P1552 New Firmware 

MCP 31.0.0335 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0343 33947 D2570 Disallow PR I NTERLABELS Option 

MCP 31.0.0346 33944 P1896 New GOTOSOLVER 

MCP 31.0.0349 33370 P1609 Guardfile 

MCP 31.0.0351 33956 D2576 RERUN Vs. EOF 

MCP 31.0.0352 34074 P1712 VOLUME DELETE 

MCP 31.0.0353 34071 P1713 Library Maintenance BADFILE Vs 

MCP 31.0.0356 33317 P1715 Dying Stack in WS SHERIFF 

MCP 31.0.0357 34067 P1716 PB 2 Level Name 

MCP 31.0.0358 34063 D2627 Accesscode 

MCP 31.0.0360 34060 PI 723 DP Vs. MPXIII 

MCP 31.0.0364 34062 PI 7 17 MOVE Vs. LOG 

MCP 31.0.0365 33314 P1719 ODT ETX Positioning 

MCP 31.0.0366 33315 P1720 Checkpoint 

MCP 31.0.0367 33316 P1718 IOTRACE 

MCP 31.0.0368 33539 D2518 Segmented String Variables 

MCP 31.0.0371 34061 P1721 LINKLISTINSERT Vs . XTEND 

MCP 31.0.0373 34049 P1722 Reader Buss Parity Error 

MCP 31.0.0374 34060 PI 723 DP Vs. MPXIII 

MCP 31.0.0375 33838 D2604 Libraries 

MCP 31.0.0377 34044 PI 724 CATBLKSIZEF 

MCP 31.0.0380 34042 PI 725 GENERATION 

MCP 31.0.0381 34078 PI 726 DUMP Vs. RD 

MCP 31.0.0383 34271 P1727 AUTOBACKUP Priority 

MCP 31.0.0386 33353 PI729 SIRWOFADDRESS 

MCP 31.0.0387 34269 P1730 Checkpoint File Header Timesta 

MCP 31.0.0388 34043 P1731 Model III Multiplexor 

MCP 31.0.0389 34267 P1782 Guardfile Vs. DS 

MCP 31.0.0390 34241 P1732 ELAPSEDTIMELIMIT 

MCP 31.0.0392 34102 P1796 Time stamp Recalled Object-Job 

MCP 31.0.0394 33849 D2535 Revised ODT Messages 

MCP 31.0.0398 30376 D2979 Ports and Signals 

MCP 31.0.0399 34287 D2605 New Function for DMSWAIT 

MCP 31.0.0400 34257 P1752 Programdump Diagnostic 

MCP 31.0.0401 33956 D2576 RERUN Vs. EOF 

MCP 31.0.0404 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0405 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0407 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0409 35987 D286I B6800 Multiprocessor Systems 

MCP 31.0.0413 34268 P1733 READALABEL Vs. EXTMODE 

MCP 31.0.0414 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0415 31268 PI 753 Accept DUMMMP Tape Anytime 

MCP 31.0.0416 33989 P1734 FM Vs. Saved LP 

MCP 31.0.0417 34235 P1735 Reelswitch Vs. Catalog 

MCP 31.0.0422 34228 P1783 MASKGETAREAF 

MCP 31.0.0423 34378 PI764 B6700/B7700 Compatibility 

MCP 31.0.0425 34229 PI 784 CRUNCH Vs . CP 

MCP 31.0.0426 34107 D2606 UNITS=CHARACTERS Vs. MODE'S ING 

MCP 31.0.0427 34393 P1754 Processor Bound Jobs in Swapsp 

MCP 31.0.0428 34217 P1785 Software Interrupt Execution 

MCP 31.0.0430 34218 P1786 Guardfile Vs. S tackover f low 

MCP 31.0.0431 34216 P1787 TAPEPARITYRETRY Vs. BLOCKEXIT 

MCP 31.0.0433 34208 P1788 LOOKFORIT Cont rol State 

MCP 31.0.0436 34210 D2592 Time and Date Verification 

MCP 31.0.0437 34209 P1789 Read LCC 

MCP 31.0.0438 34400 P1790 Invalid CRITICAL BLOCK Termina 

MCP 31.0.0439 34346 P1798 DMS Programs Swapped Out "FORE 

MCP 3 1.0.0442 34204 PI 799 PRINTLIMIT Vs. PROGRAMDUMP 

MCP 31.0.0443 34200 PI 800 WAITLIMIT 

MCP 31.0.0444 34196 P1801 F I BLOCK Vs . PROGRAMDUMP 

MCP 3 1.0.0454 33995 PI 862 RSNINVALID 

MCP 31.0.0456 33993 PI 863 DISCSTATUS 

MCP 31.0.0457 33990 P1864 FORGETSPACE Vs. FORM 

31.0.0459 33997 P1865 Library Maintenance Open Error 
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MCP 3 1.0.0467 34005 PI 876 RESERVE AS 

MCP 31.0.0468 34016 D2644 Suspend and Resume Tasks by Bo 

MCP 31.0.0469 34022 P1877 Library Maintenance Reel Switc 

MCP 3 1.0.0476 34838 D2652 New SYSTEMSTATUS Case 14 

MCP 31.0.0479 31265 P2066 Trap for Bad Disk I/O 

MCP 31.0.0481 34817 P1894 Move Vs. RC 

MCP 31.0.0483 34810 P2021 Allow Statistics To Be Printed 

MCP 31.0.0485 34806 P2068 PRESERVER Array Parameter 

MCP 31.0.0488 34405 P1897 No Bad Pointers in WFL 

MCP 31.0.0489 34406 P1898 Comp i 1 e-and-Go with SUBSPACES= 

MCP 31.0.0492 34026 P2022 Rebuild Vs. AD 

MCP 31.0.0496 33849 D2535 Revised ODT Messages 

MCP 31.0.0499 34029 P2023 SEG0 of Flatrows 

MCP 31.0.0506 34964 P2024 GETSTATUS Vs. UINFO 

MCP 3 1.0.0511 34968 P2105 DUP FAMILY 

MCP 31.0.0515 33814 P1552 New Firmware 

MCP 31.0.0520 34976 D2430 MCP Restructuring 

MCP 31.0.0521 33849 D2535 Revised ODT Messages 

MCP 31.0.0522 34407 D2795 DS Priority 

MCP 31.0.0531 35257 D2819 New Display of Format Errors 

MCP 31.0.0532 35246 P2153 Task DS 

MCP 3 1.0.0534 33993 PI 863 DISCSTATUS 

MCP 31.0.0541 34979 D2705 7A Tape Control 

MCP 31.0.0544 34992 P2176 Log MPX Scratchpad Memory 

MCP 31.0.0545 34998 P2180 Synchronize Clocks 

MCP 31.0.0549 33993 PI 863 DISCSTATUS 

MCP 31.0.0550 33849 D2535 Revised ODT Messages 

MCP 31.0.0551 35355 P2 1 8 1 Increase Stack Size for TAPEDU 

MCP 31.0.0554 34979 D2705 7A Tape Control 

MCP 31.0.0556 30392 P2182 Expandarow for Dope Vectors 

MCP 31.0.0559 35359 D2737 Privileged Programs 

MCP 31.0.0560 35403 D2733 Flexibility in REMOVE, CHANGE 

MCP 31.0.0562 31266 D2738 Delete CPUTEST 

MCP 31.0.0564 35373 D2694 Implementation of DL 

MCP 31.0.0566 35376 D2781 Data Base Stacks Run in Local 

MCP 31.0.0567 34976 D2430 MCP Restructuring 

MCP 31.0.0569 33849 D2535 Revised ODT Messages 

MCP 31.0.0571 35383 P2222 NDL Comp a t i bi 1 i t y 

MCP 31.0.0573 34979 D2705 7A Tape Control 

MCP 31.0.0575 35365 P2198 GETAROW Vs . catalog 

MCP 31.0.0579 35386 P2199 PATHRES , FLATREADER, ERRORHAND 

MCP 31.0.0580 35393 D2757 New DMS Structure Numbers 

MCP 31.0.0582 35391 P2212 Scratchpad Parity Error 

MCP 31.0.0583 35392 P2213 BX380 Vs. Channel Addressing 

MCP 31.0.0584 35395 P2214 AB Vs. EOF 

MCP 31.0.0585 35486 P2215 TURNOVERLAYKEY 

MCP 31.0.0589 35623 P2219 KIND=DISK Vs. FAMILYNAME 

MCP 31.0.0593 34979 D2705 7A Tape Control 

MCP 31.0.0594 35491 P2221 STATISTICS 

MCP 31.0.0595 35493 P2223 FORGETAREA RCW Trace 

MCP 3 1.0.0604 35500 D2864 Relative I/O for COBOL74 

MCP 31.0.0605 35501 D2784 NIF and DCPCODE Disk I/O Error 

MCP 31.0.0606 35502 P2224 Improve Handling of DSing DCPs 

MCP 31.0.0607 35503 P2225 FA of Unlabeled File to Remote 

MCP 31.0.0608 35504 P2226 DSed MCS was Causing Hung Task 

MCP 31.0.0609 35505 P2227 Schedule Stations Must Be Atta 

MCP 31.0.0610 34411 P2241 Handle Long AX into Short Arra 

MCP 31.0.0611 35506 P2228 DCP Fault with Space Queue Loc 

MCP 31.0.0612 35507 P2229 AUTODC and Station Attach 

MCP 31.0.0613 35508 P2230 PC Lock Vs. NIFSEARCH 

MCP 31.0.0614 34412 P2233 DCALGOL EPILOG Procedures 

MCP 31.0.0615 35509 P2231 Correct Primary Queue Number 

MCP 31.0.0616 35510 P2232 Tanked Output Messages 

MCP 31.0.0617 35608 P2242 PROGRAMDUMP Corrections 

MCP 31.0.0621 35391 P2212 Scratchpad Parity Error 

MCP 31.0.0622 35396 P2235 Rebuild Vs. DONTWAIT 

MCP 31.0.0633 34021 D2647 LOG IOCONDITION Result Descrip 

MCP 31.0.0634 34979 D2705 7A Tape Control 

MCP 3 1.0.0637 34026 P2022 Rebuild Vs. AD 

MCP 31.0.0638 35649 D2833 MPX#,PATH# Vs. LH.UA.UR 

MCP 31.0.0645 35656 P1952 Tape Open 

MCP 31.0.0646 34390 P2265 BUFFERS Attribute for Open Fi 1 

MCP 31.0.0647 35662 D2834 Check Stack Image Compat ibi I i t 

MCP 31.0.0648 35391 P2212 Scratchpad Parity Error 

MCP 31.0.0651 35659 P2266 Security Vs. Backup 

MCP 31.0.0652 35664 P2286 GETSTATUS UNIT Vs. DISKPACKSEA 

MCP 31.0.0656 34384 P2267 Locking in MIXREQUEST 

MCP 31.0.0657 35110 D2794 De imp! ementa t ion of XALGOL Com 

MCP 31.0.0658 35111 D2796 De imp I ementa t ion of Old Intrin 

MCP 31.0.0661 35500 D2864 Relative I/O for COBOL74 

MCP 31.0.0662 35669 P2268 CL Vs . AB 

MCP 31.0.0672 35616 P2269 DCALGOL EPILOG Revisited 
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MCP 31.0.0678 34021 D2647 LOG 10CONDITION Result Descrip 

MCP 31.0.0685 35373 D2694 Implementation of DL 

MCP 3 1.0.0689 357 13 P2273 RESERVE Loop 

MCP 31.0.0691 35373 D2694 Implementation of DL 

MCP 31.0.0692 35693 P2274 CLOSE Errors Fatal 

MCP 31.0.0701 35670 P2275 "COPY =" Many Files 

MCP 31.0.0705 35620 D2881 Provide Firmer MAKEUSER-USERDA 

MCP 31.0.0712 35722 P23C1 AB Buffer Size 

MCP 31.0.0715 35111 D2796 De imp 1 cmen t a t i on of Old Intrin 

MCP 31.0.0719 35740 P2300 MPX Vs. Tape Parity 

MCP 31.0.0720 35811 P2302 Invalid PARAMETER MISMATCH 

MCP 31.0.0724 35622 D2855 Time Out for Memory Dumps 

MCP 31.0.0725 35839 P2304 Restore LOSR After Dump 

MCP 31.0.0727 35388 D2906 Changes in the SWAPPER Mechani 

MCP 31.0.0729 35739 P2310 Class Count UFLO 

MCP 31.0.0735 35747 P2303 SYSTEMSTATUS String Protect 

MCP 31.0.0736 35738 P2311 EOJ Vs. USTKASSIGNED 

MCP 31.0.0737 35737 P2305 STICKY Memory 

MCP 31.0.0738 35854 P2312 SWAPPER Gets DIV BY ZERO 

MCP 31.0.0740 35858 P2438 Library Program Dump Options 

MCP 31.0.0743 35843 P2336 Clear Parameters if Task Initi 

MCP 3 1.0.0745 35856 P2306 USERPARITYBIT 

MCP 31.0.0749 35829 P2307 VERIFYFAMILY Vs. BU 

MCP 31.0.0750 35722 P2301 AB Buffer Size 

MCP 31.0.0755 31280 P2419 Improved I/O Error Message 

MCP 31.0.0762 35500 D2864 Relative I/O for COBOL74 

MCP 31.0.0769 35500 D2864 Relative I/O for COBOL74 

MCP 31.0.0773 35844 D2869 MCP Level Indicators 

MCP 31.0.0776 35971 P2422 Array Parameters by Value 

MCP 31.0.0777 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0779 35896 P2364 SIB Environment 

MCP 31.0.0781 34803 D2642 SYSTEMSTATUS Intrinsic 

MCP 31.0.0783 35891 P2358 OVERLAYCF 

MCP 31.0.0789 35985 D2867 Soft Configuration of Global M 

MCP 31.0.0793 33849 D2535 Revised ODT Messages 

MCP 31.0.0794 35832 P2396 CPRESTART EOJ 

MCP 31.0.0795 35901 D2888 Library Maintenance Result Rep 

MCP 31.0.0796 33849 D2535 Revised ODT Messages 

MCP 31.0.0797 35903 P2391 Catalog Remove 

MCP 31.0.0804 35985 D2867 Soft Configuration of Global M 

MCP 31.0.0805 35373 D2694 Implementation of DL 

MCP 31.0.0807 35985 D2867 Soft Configuration of Global M 

MCP 31.0.0808 35985 D2867 Soft Configuration of Global M 

MCP 31.0.0809 35985 D2867 Soft Configuration of Global M 

MCP 31.0.0810 35985 D2867 Soft Configuration of Global M 

MCP 31.0.0811 35388 D2906 Changes in the SWAPPER Mechani 

MCP 31.0.0812 36109 P2423 Memory Priority for Swapjobs 

MCP 31.0.0814 36112 P2392 Swap Out Waiting for Schedule 

MCP 31.0.0823 33538 D2493 Accesscode 

MCP 31.0.0824 33849 D2535 Revised ODT Messages 

MCP 31.0.0825 35693 P2274 CLOSE Errors Fatal 

MCP 31.0.0826 35376 D2781 Data Base Stacks Run in Local 

MCP 31.0.0827 36048 P2425 Size Check of User Array 

MCP 31.0.0844 36144 D2908 Initialization Needs More Memo 

MCP 31.0.0847 35373 D2694 Implementation of DL 

MCP 31.0.0848 36032 P2428 Uninitiated I/O Dump 

MCP 31.0.0849 36189 P2427 MPX Paths 

MCP 31.0.0850 36059 P2546 DD Vs. CM 

MCP 31.0.0854 36062 D2907 Automatic Move 

MCP 31.0.0856 37016 D2917 New BOJ/BOT, EOI/EOT Log Infor 

MCP 31.0.0858 36190 P2448 CL READALABEL 

MCP 31.0.0860 36059 P2546 DD Vs . CM 

MCP 31.0.0862 33849 D2535 Revised ODT Messages 

MCP 31.0.0867 37097 P2430 New High Order Priority Scheme 

MCP 31.0.0868 37098 P2431 PROGRAMDUMP Be Wary in Defunct 

MCP 31.0.0869 37099 P2433 Correct TERMINATE Vs. BLOCKEXI 

MCP 31.0.0870 37104 P2436 Statistics Improvements 

MCP 31.0.0872 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0873 37107 P2435 Revise GETAREA Pool 

MCP 31.0.0875 37109 P2624 Protection from Tag-7 Interrup 

MCP 31.0.0876 33849 D2535 Revised ODT Messages 

MCP 31.0.0881 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0885 36107 D2928 Eliminate Vector Mode, Improve 

MCP 31.0.0887 37202 P2485 GIVEBACKHDR Correction 

MCP 31.0.0888 37014 D2929 Fixed Portion Marker of Log Re 

MCP 31.0.0896 35987 D2861 B6800 Multiprocessor Systems 

MCP 31.0.0898 36117 P2488 Automatic Shortening of SEARCH 

MCP 31.0.0903 37117 P2538 Spurious PACK IN USE Message 

MCP 31.0.0906 37262 P2536 PATH MARKED OFFLINE 

MCP 31.0.0907 37269 P2537 Reel Switch Vs. Parity Error 

MCP 31.0.0913 36195 P2534 CHECKPOINT Vs. JEDGARHOOVER 

MCP 31.0.0914 35985 D2867 Soft Configuration of Global M 
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31 


.0. 


0010 


36012 


P2405 


NDL 


31 


,0. 


0011 


36013 


P2406 


NDL 


31 . 


0. 


0012 


36014 


P2404 


NDL 


31 


.0. 


0013 


36015 


P2401 


NDL 


31 . 


0. 


0015 


37020 


P2444 


NDL 


31 . 


0. 


0016 


37022 


P2469 


NDL 


31 . 


.0. 


0017 


37027 


P2557 


NEWP 


31 . 


0. 


0069 


35623 


P2219 


NEWP 


31 , 


0. 


0071 


35410 


D2771 


NEWP 


31. 


0. 


0110 


33849 


D2535 


NEWP 


31 . 


.0. 


0119 


37665 


D2953 


PATCH 


31 . 


0. 


0002 


34321 


D2596 


PATCH 


31 . 


0. 


0005 


35623 


P2219 


PEP 


31 . 


0. 


0001 


34545 


P1837 


PEP 


31 . 


0. 


0002 


37651 


P2621 


PKACTUATOR 


31 . 


0. 


0001 


37843 


P2631 


PKBASIC 


31 . 


0. 


0001 


37843 


P2631 


PKHDOVER 


31 . 


0. 


0001 


37843 


P2631 


PKHEADISOL 


31 . 


0. 


0001 


37843 


P2631 


PKINTERCH 


31 . 


0. 


0001 


37843 


P2631 


PKSCAN 


31 . 


0. 


0001 


34829 


P2072 


PKSCAN 


31 . 


0. 


0002 


37661 


P2620 


PKSCAN 


31 . 


0. 


0003 


37660 


P2616 


PKSCAN 


31 . 


0. 


0004 


37659 


P2617 


PKSCAN 


31 . 


0. 


0005 


37658 


P2618 


PKSEEK 


31 . 


0. 


0001 


37843 


P2631 


PKTEST 


31 . 


0. 


0001 


34821 


P2073 


PKTEST 


31 . 


0. 


0002 


34822 


P2074 


PKTEST 


31 . 


0. 


0003 


34823 


P2075 


PKTEST 


31 . 


0. 


0004 


37651 


P2621 


PKWRITEREAD 


31 . 


0. 


0001 


37843 


P2631 


PKXD 


31 . 


0. 


0001 


37654 


P2619 


PK04 


31 . 


0. 


0001 


37651 


P2621 


PRO 5 


31 . 


0. 


0001 


37661 


P2620 



Revised ODT Messages 

Disallow Crunched USERDATAFILE 

Revised ODT Messages 

Soft Configuration of Global M 

CHECKPOINTFILE Vs. Abort 

GETAREA Vs. Locks 

CHANGEMCP INVALID INDEX 

CHECKPOINT Vs . OLAYHEADER 

7A Tape Cont rol 

New Traps 

GETSTATUS : Test for Comp i 1 e r 

Verify Memory Dump Tape 

Soft Configuration of Global M 

B6S00 Multiprocessor Systems 

Changes in the SWAPPER Mechani 

Reserve Time Cases for BSP 

7A Tape Cont rol 

COBOL File Already Closed Erro 

PURGIT RD Message 

CATALOG PURGE 

Put HOSTNAME and GROUPID in Pr 

CLOSE Errors Fatal 

Card Reader Secured Status 

Avoid Extra Mom on B6800 Negat 

Initializing FIB in Different 

Idle Patterns 

CHECKPOINT RESTART 

New COMPILERINFO Format 

PROGRAMDUMP Heading 

Setting Family Name After Assi 

Another Group Not Responding 

Log Boxes for Jobs 

PROGRAMDUMP Hang 

System Maintenance for B6800 M 

Retain or Reuse Old Structure 

Printer Dump Loop 

Multiprocessor System SUSPENDE 

Stop Paging While Looping 

RSC3 

Debug 

KIND=DISK Vs. FAMILYNAME 

TD850 Revisions 

FILE <famiiy> Statement 

Use Proper Processor ID in Hea 

Implement Application Number V 

KIND=DISK Vs. FAMILYNAME 

Implement Variable Size Statio 

Further Auxiliary Logic Correc 

Basic Control/ACII Position Ch 

Autonomous DCP Buffers for Sta 

Eliminate Looping on Severe Er 

Extend Labels for 20 Bit Addre 

Erroneous Syntax Error on Defi 

Suppress "IF Bl OR B2" Code Wh 

Exchanged DCP Vs. Auxiliary Lo 

KIND=DISK Vs . FAMILYNAME 

Rebinding External Procedures 

Revised ODT Messages 

New COMPILERINFO Format 

Label Equation for "$." Cards 

KIND=DISK Vs. FAMILYNAME 

TD8S0 Test Runs with No Read B 

Test Restricted to Pack Types 

Disk Pack Controller Error Mes 

Disk Pack Controller Error Mes 

Disk Pack Controller Error Mes 

Disk Pack Controller Error Mes 

Disk Pack Controller Error Mes 

Logging Autocorrect i on RD 

Work with All Pack Types 

Checking for Used Spare Sector 

Log Error for AUTOCORRECT 

PKSCAN for Write Disabled Pack 

Disk Pack Controller Error MeS 

Remote Usage of SPOTAB Option 

TAB Option Causing INVALID IND 

Di rect I/O Handl ing 

Test Restricted to Pack Types 

Disk Pack Controller Error Mes 

Miscellaneous Ch a n g e s 

Test Restricted to Pack Types 

Work with All Pack Types 
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SOFTWARE 

PRO 6 

PRO 7 

PRO 8 

PRO 9 

PR10 

PR11 

PR 15 

PR16 

PL I 

PL I 

PL I 

PL I 

PL I 

PL I 

PL I 

PL I 

PL I 

PL I 

PL I 

PLI 

PL I 

PLI 

PLI 

PLI 

PLI 

PLI 

PLI 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PLINTRN 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTAUDIT 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTBIND 

PRINTCOPY 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 

PROPERTIES 



PATCH 



PR I NOTE DESCRIPTION 



Pack Types 
Pack Types 
Pack Types 
Pack Types 
Pack Types 
Pack Types 
Pack Types 
to Pack Types 
of Compi 1 er Fi 



to 
to 
to 
to 
to 
to 
to 



31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0001 37651 P2621 Test Restricted 

31.0.0007 32685 D2265 Standardization 

31.0.0012 30376 D2979 Ports and Signals 

31.0.0014 33838 D2604 Libraries 

31.0.0016 33450 P1941 Deallocate Dynamic Bounds Auto 

31.0.0022 35223 P2163 Based Double Variables 

31.0.0023 35282 P2164 Extra Subscript Syntax Error 

31.0.0026 35230 P2165 Bad Procedure Directory 

31.0.0027 35229 P2166 Defines for Doubles 

31.0.0028 35225 P2167 Flag Illegal Array Bounds 

31.0.0029 35226 P2168 Loop on Define 

31.0.0030 35227 P2169 Bad Dummy for String Intrinsic 

31.0.0031 35228 P2170 CALL Verb with EVENT Option 

31.0.0035 35623 P2219 K1ND=DISK Vs. FAMILYNAME 

31.0.0040 33838 D2604 Libraries 

31.0.0049 33459 P2386 WRITE Statement Without "FROM" 

31.0.0050 33460 P2385 Missing Commas in File Options 

31.0.0051 33461 P2445 Miscellaneous Faults Using PIC 

31.0.0052 33462 P2446 DO STATEMENT problem 

31.0.0053 33463 P2447 Level 9 Error 

31.0.0001 32078 P9285 Task Restructuring 

31.0.0002 34165 D2580 "Pre-2.4 ON <fault> Statements 

31.0.0009 33913 D2S65 Intrinsics 

31.0.0019 30376 D2979 Ports and Signals 

31.0.0024 35262 P2171 Real Bit Constants 

31.0.0025 35263 P2I72 Filling Out Bit Strings 

31.0.0026 35275 P2173 Conversion Error 

31.0.0027 35276 P2174 ISAM Intrinsics, Infinite Loop 

31.0.0030 35707 P2250 ISAM, Eliminate Superhalt 

31.0.0031 33458 P2346 Eliminate SEG ARRAY Error in T 

31.0.0001 33798 D2618 Decode Date and Time 

31.0.0002 33797 D2607 New I/O Error Handling Procedu 

31.0.0003 34304 D2611 Transaction Processing System 

31.0.0004 34468 P1914 FILEDC a Control Record 

31.0.0005 34451 P2027 Hex Dump of Block 

31.0.0007 35623 P2219 KIND=DISK Vs. FAMILYNAME 

31.0.0008 35302 D2709 B7700 Optimization 

31.0.0010 37214 P2502 Bad Check for Label Equation 

31.0.0011 37348 P2503 Cope with Empty Audit Files 

31.0.0012 37346 P2504 Fault on Partial Record 

31.0.0005 35103 P2025 Improved Handling of Unknown I 

31.0.0006 35108 P2026 Correct Handling of PL/I Items 

31.0.0007 35102 D2685 Printing of Program Unit Direc 

31.0.0008 35104 D2686 Listing Format Improvements 

31.0.0009 35105 D2687 Improve Handling of DATABASE I 

31.0.0010 35106 P2065 Large Code Files 

31.0.0012 35112 D2722 Binding of Ports and Signals 

31.0.0013 34673 D2714 Transaction Record Parameters 

31.0.0015 35623 P2219 KIND=DISK Vs. FAMILYNAME 

31.0.0017 37292 P2470 Prevent Printing Too Many EXTR 

31.0.0003 35623 P2219 KIND-DISK Vs. FAMILYNAME 

31.0.0001 30012 P1585 Retry ADDRESSCHECK Failures 

31.0.0002 33118 D2S68 Allow More Structures, Items P 

31.0.0003 33797 D2607 New I/O Error Handling Procedu 

31.0.0004 33759 D2619 REBLOCKING 

31.0.0005 34304 D2611 Transaction Processing System 

31.0.0006 34358 D2615 DASDL De f au 1 t s for Data Sets a 

31.0.0007 33759 D2619 REBLOCKING 

31.0.0008 34334 D2657 Find Correct End of Disk Type 

31.0.0009 34329 D26S8 Improve Buffer Management 

31.0.0010 34489 P1911 Remaps of Ordered Data Sets wi 

31.0.0011 34438 P2010 Checksum Error 

31.0.0012 35302 D2709 B7700 Optimization 

31.0.0013 35303 P2130 ROWLOCKOUTAUDIT Errors 

31.0.0014 35336 D2731 REORGANIZATION Optimization 

31.0.0015 35318 D2802 Retain or Reuse Old Structure 

31.0.0016 35302 D2709 B7700 Optimization 

31.0.0017 35350 P9236 Optimize Evaluation of Checksu 

31.0.0018 35339 D2807 Enhancements to Quickfix 

31.0.0020 35623 P2219 RIND=DISK Vs. FAMILYNAME 

31.0.0021 35440 D2803 Automatic Checksum of Intermed 

31.0.0023 35452 D2832 DUPLICATES Subcategory 2 Expla 

31.0.0025 35465 P2284 Prevent Checksum Error 

31.0.0026 35473 D2889 TPSDUALUPDATE Option Added 

31.0.0028 35427 P2361 Overlapping Use of Openerrors 
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PROPERTIES 31 
PROPERTIES 31 
READERSORTER 31 
READERSORTER 3 1 
READERSORTER 31 



RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

RECOVERY 

REMOTELIB 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

REORG 

RESEQBASIC 

RJE 

RJE 

RJE 

RJE 

RJE 

RJE 

RJE 

RJE 

RJE 

RJE 



31. 
31. 
31. 
31 . 
31. 
31. 
31. 
31. 
31. 
31 . 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31 . 
31. 
31. 
31. 
31. 
31. 
31. 
31. 
31 . 
31 . 
31. 
31. 



0.0030 
0.0031 
0.0002 
0.0004 
0.0006 
0.0016 
0.0017 
0.0018 
0.0019 
0.0020 
0.0021 
0.0022 
0.0023 
0.0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0.0033 
0.0035 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
004S 
0046 
0047 
0048 
0049 
0050 
0.0051 
0.0052 
0053 
0054 
0055 
0057 
0058 
0006 
0001 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0.0019 
0.0020 
0.0021 
0.0023 
0.0024 
0025 
0027 
0028 
0030 
0032 
0.0034 
0.0005 
0018 
0019 
0020 
0024 
0026 
0027 
0028 
0029 
0030 



0.0031 



PR I NOTE DESCRIPTION 

35427 P2361 Overlapping Use of Openerrors 
37223 P2549 Level for RECONINFO Files 
33086 P1225 KANGAROO- I NTERCEDE Mechanism 
33389 P1435 Scan Error Word 
33385 D2745 RSC3 

34304 D2611 Transaction Processing System 

34305 D2617 Visible DBS Changes and Enhanc 
34334 D2657 Find Correct End of Disk Type 
34333 P1805 Ordered EOF Set Incorrectly 
34350 P1809 Incorrect Time Printed 

34344 P1806 Tape Audit Handling 

34343 P1807 48 Users of Restart Data Set 

34342 P1808 Audit Reel Switch 

34495 D2659 Audit Handling Enhancements 

34473 PI 925 ABORT Gets WAITING ON ROWLOCKO 

34441 P2014 Correct Rebuild Restart 

34438 P2010 Checksum Error 

34439 P2013 Audit Positioning Error 

34426 P2101 Data Base Corruption by Rollba 

34423 P2102 Rebuild, Rollback Restart Erro 
35303 P2130 ROWLOCKOUTAUDIT Errors 

34438 P2010 Checksum Error 
35341 P2186 Openerror Message Improved 
35339 D2807 Enhancements to Quickfix 
35344 P2183 Checksum Errors 
35623 P2219 KIND=DISK Vs. FAMILYNAME 
35448 P21S9 Make ODT Array Local to Interr 
35302 D2709 B7700 Optimization 
35465 P2284 Prevent Checksum Error 
35470 P2335 EOF Too Large 

35912 P2359 Resequence Data Base and RECOV 
35918 P2449 DS Abort Causes System Hang 
35912 P23S9 Resequence Data Base and RECOV 
36170 P2413 Abort Backs Up Too Far 
36169 P2414 REBUILD and RECONSTRUCT Back U 
37089 P2458 Bad Retry Logic 

37088 P2459 Timing problem in REBUILD/ROLL 
37086 P2482 "FAILED TO SET END-OF-FILE" Me 
37078 P2483 Quickfix May Fail on Checksumm 
37088 P2459 Timing problem in REBUILD/ROLL 
37348 P2S03 Cope with Empty Audit Files 
37342 P2S05 Reconstruct Ignores Quiet Poin 
38027 P2640 ZOT CURSTAMP at End of Audit 
38043 P2641 FIXLASTAUDITBLOCK Audit Posit i 
35313 P2418 Miscellaneous Corrections 
32008 P1778 Warnings When Compiling Variab 
34358 D2615 DASDL Defaults for Data Sets a 
34324 PI 827 DATAERROR 001 when Reorganizin 
34499 P1828 Link Fixup in Variable Format 
34494 P1829 INVALID INDEX on Restart of Ge 
34491 P1926 Block Initialization for Di rec 
34479 P1927 Multiple Reel Intermediate Tap 
34471 P1912 Reorganization of Compact Data 
34459 P1902 Compact Data Sets with Record 
34457 P1903 Generation of Manual Subsets 
34454 PI 904 IOERRORTYPE 7 on Fixup of Stan 
34437 P2103 Faulty Output To Tape 
34425 P2134 Duplicates of Ordered List 

34424 P213S Generate of Index Using Differ 
34418 P2136 Unused Fold Words 

35336 D2731 REORGANIZATION Optimization 

35318 D2802 Retain or Reuse Old Structure 

35335 D2732 Elimination of REORGPENDING 

35352 P2209 Invalid Fixup of Data Sets 

35430 P2210 Index Random, Random Shadow Fi 

35432 P2211 Fixup of Empty Variable Format 

35440 D2803 Automatic Checksum of Intermed 

35623 P2219 KIND=DISK Vs. FAMILYNAME 

35302 D2709 B7700 Optimization 

36176 P2589 Record Format Change 

37337 P2506 Reorganization of Compact Data 

35623 P2219 KIND=DISK Vs. FAMILYNAME 

33948 P1610 RJELEVEL Display Change 

34073 D2578 "BUG DUMP <arrayname>" 

34063 D2627 Accesscode 

34272 D2597 DEBUG Output Change 

34243 P1772 RJE AUTOPRINT Hang 

34233 P1794 WFLCOMPILER Not Going to EOT 

34227 P1795 LSNRAY Vs. Stations with NO-LI 

34224 D2625 CLEAR <lsn> Command 

34194 P1814 Swapping Print Queues Vs. Stat 

34193 P1815 CONT and PRINT Banners 
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SOFTWARE 


PATCH 


RJE 


31 .0.0032 


RJE 


31.0.0033 


RJE 


31 .0.0035 


RJE 


31.0.0036 


RJE 


31 .0.0037 


RJE 


31 .0.0038 


RJE 


31 .0.0040 


RJE 


31 .0.0041 


RJE 


31 .0.0043 


RJE 


31 .0.0044 


RJE 


31.0.0045 


RJE 


31 .0.0046 


RJE 


31 .0.0047 


RJE 


31 .0.0048 


RJE 


31 .0.0049 


RJE 


31 .0.0051 


RJE 


31 .0.0052 


RJE 


31 .0.0054 


RLTABLEGEN 


31 .0.0003 


RSANALYZER 


31 .0.0002 


RSLOG 


31 .0.0001 


RSLOG 


31 .0.0003 


RSMCP 


31.0.0894 


RSNETL 


31 .0.0002 


RSPANALYZER 


31 .0.0002 


SCR 


31 .0.0001 


SCR 


31 .0.0002 


SCR 


31 .0.0003 


SCR 


31 .0.0004 


SCR 


31.0.0006 


SCR 


31 .0.0007 


SCR 


31.0.0008 


SCR 


31 .0.0009 


SCR 


31.0.0011 


SCR 


31 .0.0012 


SCR 


31 .0.0013 


SCR 


31 .0.0014 


SCR 


31 .0.0015 


SCR 


31.0.0016 


SCR 


3 1 . . 00 1 7 


SCR 


3 1 . . 00 1 8 


SCR 


31.0.0021 


SCR 


31 .0.0022 


SCR 


31.0.0023 


SCR 


31.0.0024 


SCR 


31 .0.0025 


SCR 


31 .0.0026 


SCR 


31.0.0027 


SCR 


31.0.0028 


SCR 


31.0.0029 


SCR 


31.0.0036 


SCR 


31.0.0043 


SCR 


31 .0.0049 


SCR 


31 .0.0053 


SCR 


31.0.0054 


SCRMCP 


31.0.0890 


SCRMCP 


31 .0.0908 


SCRMCP 


31 .0.0909 


SCRMCP 


31.0. 1002 


SCRMCP 


31.0.1031 


SCTABLEGEN 


31 .0.0003 


SCTABLEGEN 


31 .0.0004 


SCTABLEGEN 


31 .0.0009 


SCTABLEGEN 


31 .0.0011 


SCTABLEGEN 


31 .0.0012 


SCTABLEGEN 


31 .0.0013 


SCTABLEGEN 


31.0.0015 


SCTABLEGEN 


31 .0.0017 


SCTABLEGEN 


31 .0.0018 


SCTABLEGEN 


31 .0.0019 


SCTABLEGEN 


31 .0.0020 


SCTABLEGEN 


31 .0.0021 


SCTABLEGEN 


31 .0.0023 


SCTABLEGEN 


31.0.0025 


SCTABLEGEN 


31 .0.0026 


SCTABLEGEN 


31 .0.0029 


SCTABLEGEN 


31 .0.0033 


SCTABLEGEN 


31 .0.0035 


SCTABLEGEN 


31 .0.0036 


SCTABLEGEN 


31 .0.0037 


SORT 


31 .0.0001 


SORT 


31.0.0002 



PRI NOTE DESCRIPTION 

34197 D2632 MAXTERMINALS Not a Power of 2 
34187 P1816 QT Printer Files Saved Over Ha 
34004 D2638 Number of Stations Attached 
34186 D2641 LINKFILE 

34033 P1942 Restartfile Name SEG ARRAY Err 
34985 P2086 MAXTERMINALS Greater Than 48 

35370 P2204 "*ME COPIES 2" Vs. Resize of F 

35371 P2205 NOLOGON Vs. Usercode 
35623 P2219 KIND=DISK Vs. FAMILYNAME 
35518 D2810 File Transfer 
35515 P1579 STATIONID or USER Changes 
35646 P1037 Reconfiguration with Active AU 
35635 D2828 WAIT State Maintained 
35848 D2862 WFLMESSAGE ARRAY Usage Increas 
35904 P2374 Unit Device Number 
37487 P2561 "*ME" Fails on Specific Filena 
37486 P2562 DESTNAME Directed REMCP Files 
37477 P2563 REMCP File Titles on Word Boun 
35623 P2219 KIND=DISK Vs. FAMILYNAME 
32903 D2746 Change Card File Name 
33391 PI 441 RSC3 

35623 P2219 KIND=DISK Vs. FAMILYNAME 
36090 P2487 RSMONITOR 
35623 P2219 KTND=DISK Vs. FAMILYNAME 
35623 P2219 KIND=DISK Vs. FAMILYNAME 
32078 P9285 Task Restructuring 
32687 D2246 B6800 MCP 
32802 D2414 Add RSC-3 Test Name 
34976 D2430 MCP Restructuring 
32828 P9229 ANABOLISM vs MAKEJOBFILE 
32850 P1014 TD830, Diskpack 235 Correction 
32850 P1014 TD830, Diskpack 235 Correction 
32850 P1014 TD830, Diskpack 235 Correction 

33303 PI 171 VERIFY Does Not Recognize 5N D 

33304 PI 172 Deadly Embrace 

33305 P1173 Address Cylinder 811 

33306 PI 174 Serial Number Expanded 

33307 P1175 SCR Test 9 

33308 PI 176 Default VERSION 

33309 P1177 Buffer Fill Correction 
33086 P122S KANGAROO- INTERCEDE Mechanism 

33482 P124I Make File Card FILETYPE=8 

33483 P1242 Return Saved Memory 

33484 P1251 SCR MARKNO III 

33485 PI 243 No Decode of RD=1FFFF 

33486 P1244 NRZ Tapes 

33487 P1245 SCR HI TESTAPE Message 

33488 P1246 TESTOP RD Analysis 

33489 P1247 Pack Unit Subtype Field 
33492 PI 307 Allow SET, RESET, POP of VOIDT 
34976 D2430 MCP Restructuring 
34378 P1764 B6700/B7700 Compatibility 
33849 D2535 Revised ODT Messages 
35623 P2219 KIND=DISK Vs. FAMILYNAME 
31554 D2758 GCR Tape Allowed 
36082 P2486 IOTIMEOUT 
37268 P2535 Label CASE Statements 
37257 D2947 CURRENTDATE 

37651 P2621 Test Restricted to Pack Types 
37978 P2615 Handle VOIDT Properly 
32603 P1015 Add Reserved Words to Dictiona 
32581 P1080 Remove Unused TO 
33849 D2535 Revised ODT Messages 
34091 D2571 Disallow PRINTERLABELS Option 
33849 D2535 Revised ODT Messages 
33849 D2535 Revised ODT Messages 
34210 D2592 Time and Date Verification 
34011 D2648 Add Reserved Words 

31265 P2066 Trap for Bad Disk I/O 
34679 D2681 New ODT Option IODIAGNOSTICS 
33849 D2535 Revised ODT Messages 
33849 D2535 Revised ODT Messages 
33849 D2535 Revised ODT Messages 
33849 D2535 Revised ODT Messages 
35373 D2694 Implementation of DL 
35623 P2219 KIND=DISK Vs. FAMILYNAME 
35985 D2867 Soft Configuration of Global M 
35985 D2867 Soft Configuration of Global M 

31266 D2738 Delete CPUTEST 
33849 D2535 Revised ODT Messages 
32078 P9285 Task Restructuring 
32852 P1016 KANGAROO 
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SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORTERCONTRL 

SORTERCONTRL 

SORTERCONTRL 

SORTERCONTRL 

SORTERCONTRL 

SORTERCONTRL 
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1 . INTRODUCTION TO THE DATA DICTIONARY 

1.1 Data Dictionary 

The Data Dictionary consists of a data base containing information about data and 
transaction bases and the programs which reference them, together with programs for entering 
and deleting this information, and for collating it and displaying various reports. 

It will make it easier for Data Base Administrators to control which programs reference data 
bases, and will facilitate program maintenance by listing which programs would be affected 
by a change to a data base. 

This section will describe some of the ways in which the Data Dictionary could be used; more 
details will be found in later sections. 

1.2 Entering Data Base and Program Information 

Suppose that a number of programs use a data base called EMPLOYEES. After the DASDL 
compiler has processed the DASDL description of this data base it will write a file 
DESCRIPTION/EMPLOYEES, which is used to compile the access routines and for other purposes. 

To enter this data base into the Data Dictionary, run the DDUPDATE program and enter the 
command 

INSERT DATABASE EMPLOYEES; 

This will take information from the description file (DESCRIPTION/EMPLOYEEES) and enter it 
into the Data Dictionary. 

When programs which use this data base are being compiled, the compiler option DATADICTINFO 
should be SET for the whole compilation, by putting a 

S SET DATADICTINFO 

card at the very beginning of the source program, before any source language statements. 
This will cause the compiler to save the usage of data base items, and to include this usage 
within the object code file. 

Suppose that three programs which use the EMPLOYEES data base have been compiled into the 
code files OBJ ECT/ PAYROLL , OBJECT/PENSION and OBJECT/MAILING, with the DATADICTINFO compiler 
opt ion set . 

The usage from these programs can be entered into the Data Dictionary by running the 
DDUPDATE program, and entering the command 

INSERT PROGRAMS OBJECT/PAYROLL, OBJECT/PENSION, OBJECT/MAILING; 

(All data bases accessed by these programs must already be in the Data Dictionary.) 

A list of the bases and programs in the Data Dictionary can be obtained using the command 

DISPLAY SOURCES; 

1.3 Generating Reports from the Data Dictionary 

Once the DDUPDATE prgram has entered a data base and programs which reference it, the 
DDREPORT program (and also the DDUPDATE program) can be run to produce cross reference 
reports showing which programs access each data base item, and which data bases and items 
are referenced by each program. For example, the commands 

SELECT EMPLOYEES DATABASE; 
DISPLAY XREF; 

will generate a report showing which programs reference each item of the EMPLOYEES data 
base, and whether the program read or wrote that item. If the item has been given an 
internal name within the program, that internal name will also be shown. 

The report may be confined to a single item, for example 

DISPLAY XREF ZIP-CODE OF EMPLOYEE-ADDRESS; 

which will report only on programs which reference the item ZIP-CODE of EMPLOYEE-ADDRESS. 

These reports may either be displayed on a terminal, or printed, using the commands 
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OPTIONS TERMINAL; 

or 

OPTIONS PRINTER; 

If there are remaps or logical data bases belonging to the EMPLOYEES data base, a change to 
one item may also affect remaps of that item, and logical data bases which include it. 
Also, programs which reference subitems of it, or group items which contain it may also be 
affected. The programs affected by such a change can be reported using the CHANGE IMPACT 
command : 

SELECT EMPLOYEES DATABASE; 

DISPLAY CHANGE IMPACT ZIP-CODE OF EMPLOYEE- ADDRESS ; 

A report showing which data bases are referenced by a particular program can be produced by 
a USAGE command, for example 

DISPLAY USAGE BY PROGRAM PAYROLL; 

A list of all items within a particular data base referenced by a particular progra 
showing whether they are read or written, can be produced by the commands 

SELECT EMPLOYEES DATABASE; 

DISPLAY USAGE OF ITEMS BY PROGRAM PENSION; 

Section 6 describes all the reporting facilities. 
1.4 Documentation Facilities 



and 



The Data Dictionary can index files containing documentation text for items within a data 
base, and include this text in some of the reports. The documentation text may be in any 
format up to 72 characters wide, and extend over as many records as necessary. Section 5 
describes how to prepare files of documentation text. 

Suppose that documentation text for the EMPLOYEES data base has been prepared in a file 
titled EMPLOYEES /DOC. This file can be indexed by the Data Dictionary using an 

INSERT TEXT EMPLOYEES /DOC; 

command. The actual text is not entered into the Data Dictionary, but only its location 
within the file, and the title of the file. 

This information could later be deleted from the Data Dictionary using a 

DELETE TEXT EMPLOYEES /DOC; 

COIUlftDd . 

This documentation text can be displayed by DISPLAY ALPHABETIC and DISPLAY ATTRIBUTES 
commands, for example 

SELECT EMPLOYEES DATABASE; 

DISPLAY ALPHABETIC ITEMS WITH TEXT; 

which lists alphabetically all the items within the EMPLOYEES data base together with the 
documentation text for each item. 

The commands 

SELECT EMPLOYEES DATABASE; 

DISPLAY ATTRIBUTES OF ZIP-CODE WITH TEXT; 

will display a summary of the attributes of the ZIP-CODE item, with its documentation text. 

DISPLAY ATTRIBUTES OWNED BY EMPLOYEE-ADDRESS WITH TEXT; 

would display that information for all items belonging to EMPLOYEE-ADDRESS. 

2. USING DATA DICTIONARY PROGRAMS 



2.1 Introduction to Data Dictionary Programs 

There are three programs associated with the Data Dictionary. The first, DDINITIALIZE, 
simply creates a new Data Dictionary data base, and initializes it. Any existing Data 
Dictionary data base would be purged and its information lost. This initialization would 
probably be done very infrequently, and then only by the Data Base Administrator (DBA). 

The second program, DDUPDATE, inserts new information into the Data Dictionary, and deletes 
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old information which is no longer required. It would be run whenever a data base was 
updated, or a new program became operational, or an old program was no longer needed and 
the DBA should supervise its use. 



e 



DDUPDArE would usually be run interactively from a terminal, the commands entered and 
executed one by one, and the result of each command displayed on the terminal. However the 
command could be prepared in a disk file or card desk it the same commands were required 
frequently. Also, the results can be printed if a permanent record is wanted, and the 
program can be run in batch mode also. 

All of the reporting facilities, described below for DDREPORT, are also provided by 

The third program, DDREPORT, generates the various reports, collating the information within 
the Data Dictionary. It cannot update the Data Dictionary in any way, and so it would 
probably be available to any person who needed the information. It can be run either 
interactively or in batch mode, and its input and output may use terminals, disk files 
cards or printer. It accepts only the reporting commands and will not act upon any updating 
commands. ■> r e 

2.2 Compiling Data Dictionary Software 

The Data Dictionary data base DATADICTDB is compiled using the DASDL compiler from the DASDL 
file DATADICT/DATADICTDB, creating DESCRIPTION/DATADICTDB. The DASDL compiler will also ZIP 
WFL (if SZIP is not reset) to compile the following: 

ACeESSROUTINES /DATADICTDB 
UTILITY/DATADICTDB 
RECOVERY/DATADICTDB 
DATARECOVERY/DATAD1 CTDB 
RECONSTRUCT/DATADICTDB 

Ex amp 1 e : 

100 BEGIN JOB COMPILE/DD/DASDL; 

200 USER<°MYNAME/XYZ; 

300 CLASS«40; 

400 FAMILY DISK-DMS OTHERWISE DISK; 

500 COMPILE DATADICTDB WITH DASDL LIBRARY; 

600 COMPILER FILE CARD( KIND-DISK, 

TITLE-*DATADICT/DATADICTDB) ; 
700 END JOB; 

DDREPORT and DDUPDATE are both compiled from the symbol file DATADICT/DDUPDATE DDREPORT is 
compiled with (INQUIRY set and DDUPDATE is compiled with $ INQUIRY reset. 

Ex amp I e : 

100 BEGIN JOB COMPILE/DD/DDREPORT; 

200 USER-MYNAME/XYZ ; 

300 CLASS-40; 

400 FAMILY DISK.DMS OTHERWISE DISK; 

500 COMPILE DDREPORT WITH DMALGOL LIBRARY; 

600 COMPILER FILE TAPE=» DATADICT/DDUPDATE; 

700 COMPILER FILE DASDL=*DESCRIPTION/DATADICTDB; 

800 COMPILER DATA CARD; 

900 (RESET LIST 

1000 $SET INQUIRY 

1100 SSET MERGE 

1200 ?END JOB; 

Ex amp 1 e : 

100 BEGIN JOB COMPILE/DD/DDUPDATE; 

200 USER=MYNAME/XYZ; 

300 CLASS=40; 

400 FAMILY DISK=DMS OTHERWISE DISK; 

500 COMPILE DDUPDATE WITH DMALGOL LIBRARY- 

600 COMPILER FILE TAPE=«DATADICT/DDUPDATE; 

700 COMPILER FILE DASDL-»DESCRIPTION/DATADICTDB; 

800 COMPILER DATA CARD; 

900 (RESET INQUIRY LIST 
1000 SSET MERGE 
1100 ?END JOB; 

Note that DESCRIPTION/DATADICTDB must exist before either DDREPORT or DDUPDATE can be 
compiled. The file DATADICT/DDHELP is not compiled, but it must be accessible from DDREPORT 
and DDUPDATE, as it contains the various HELP messages output by these two programs The 
internal name of DATADICT/DDHELP in DDREPORT and DDUPDATE is HELPFILE; it has the following 
at t r i but es : e 

K I ND=PACK , FAM I LYNAME= "DISK", F I LETYPE= 8 . 

This set of attributes may be modified through the use of 1 abe 1 -equa t i on when conmiline 
DDREPORT and DDUPDATE. For example, if DATADICT/DDHELP is stored on the family DBPACK, the 
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following statement could be inserted in the WFL decks for compiling DDREPORT and DDUPDATE 
(at line 750 in the two examples above): 

FILE HELPF1LE(FAMILYNAME=DBPACK) 

DDINITIALIZE is compiled from the symbol file DATADICT/DDINITIALIZE. 

Example : 

100 BEGIN JOB COMPILE/DD/DDINITIALIZE; 

200 USER=MYNAME/XYZ; 

300 CLASS=40; 

400 FAMILY DISK=DMS OTHERWISE DISK; 

500 COMPILE DDINITIALIZE WITH DMALGOL LIBRARY; 

600 COMPILER FILE TAPE=*DATADICT/DDUPDATE; 

700 COMPILER FILE DASDL=*DESCRIPTION/DATADICTDB; 

800 COMPILER DATA CARD; 

900 SRESET LIST 
1000 $SET MERGE 
1 100 ?END JOB; 

Note that DESCRIPTION/DATADICTDB must exist before DDINITIALIZE can be compiled. 
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2.3 Initialization Program 



The program DDINITIALIZE is run from a terminal, and firstly asks whether initialization is 
really wanted. It will not proceed further unless an affirmative reply is given. It then 
runs the Data Dictionary UTILITY/DATADICTDB program which creates empty files for all Dat~ 
Dictionary structures, and removes any existing structures of a previous Data Dictionary 
Finally, various Data Dictionary parameters are initialized. 
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Using CANDE, the program is run by typing 
RUN DDINITIALIZE 

2.4 Commands of the Update and Report Programs 

The DDUPDATE and DDRREPORT programs are controlled by commands which specify what updates 
are to be done, or what reports are required. For example: 

INSERT DATABASE PERSONNEL; 

DELETE PROGRAM PAYROLL; 

DISPLAY SOURCES; 

SELECT PERSONNEL DATABASE; 

DISPLAY XREF ZIP-CODE OF HOME-ADDRESS ; 

QUIT; 

specifies that a data base is to be inserted, a program deleted, a report produced showing 
the sources of all the information in the Data Dictionary, and a cross reference report 
generated, showing all programs which reference the data item ZIP-CODE OF HOME ADDRESS, 
within the PERSONNEL data base. The QUIT command terminates execution of the program. 

The rules for writing these commands are as follows: 

1. All input is free format. 

2. When Data Dictionary statements are entered via a terminal, the statements are executed 
immediately. Normally, statements can be entered on a single line; however, some 
statements may exceed the width of the terminal. A % character, entered at the end of 
the line, indicates that more input will follow. When the tine is transmitted, the 
Data Dictionary responds with # and additional input may be entered. This process may 
be repeated as many times as necessary. When the statement is complete, the user can 
transmit the last line without a % and the entire statement will be executed. 

Several statements may be contained in a single input message. Each statement should 
be followed by a semicolon. The final semicolon is optional. 

3. When Data Dictionary statements are entered from cards or disk, only the first 72 
characters of each record may contain commands. The remaining columns are reserved for 
sequence numbers or comments. A command may extend over as many records as desired; 
however, no word may be split between two records. Every command must be terminated by 
a semicolon. Several commands may be contained on a single input record provided each 
is delimited by a semicolon. 

4. A percent sign (%) denotes a comment, and anything between the percent sign and the end 
of the record is ignored, (except when the percent sign is enclosed in quotation marks, 
such as "ABC*DE"). 

5. Words, names and numbers must be separated by at least one space, or by punctuation or 
delimiter characters (such as ; , / ( ) *)■ 

6. Names of DASDL identifiers, and within file titles may contain hyphens (-) and 
underscores (_) , but not at the beginning or end of a name. 

7. File identifiers containing any characters other than letters, digits, hyphens or 
underscores must be enclosed in quotation marks, ("). 

8. There is no restriction on the use of keywords such as INSERT, PROGRAM, DATABASE, and 
SOURCES as DASDL or file identifiers; the syntax causes no ambiguity. 

9. If the first command is SYNTAX; the remaining commands are checked for syntax but are 
not executed. This allows card or disk files to be checked prior to actual use. 

10. Many keywords may be abbreviated; refer to the syntax diagrams for details. 

Each command is printed or displayed as soon as it has been read, and an explanatory message 
is then given. If the commands came from a card or disk file, the remaining commands will 
not be executed, but will be checked for syntax. However, if the commands came from a 
terminal a further explanatory message will tell the user what was expected, and the user 
may retype the word in error, followed by the rest of command. Typing a semicolon instead 
will abandon that command, if the user wishes to start it again from the beginning. 
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2.S Running from Batch and CANDE 



To run DDUPDATE or DDREPORT in batch mode, a card deck or JOBSYMBOL file must be made 
containing WFL statements similar to those below: 

? BEGIN JOB EXAMPLE; 

? CLASS = 50; 

? USER = BILL/PASSWORD; 

? RUN DDREPORT; 

? DATA CARD; 

SELECT DEBTORS DATABASE; 

OPTIONS PRINTER; 

DISPLAY XREF; 

QUIT; 
? END JOB 

(For a card deck, ? denotes an invalid punch code, such as a 1 2 3 multi punch in column 1) 
By default the commands are expected to be in a card file, with internal name CARD and the 
output will be a printer file, with internal name LINE. 

To run DDUPDATE or DDREPORT in interactive mode, with CANDE, first log on to CANDE and then 
type: 

RUN SDDREPORT; 

(The S tells CANDE to look for a program called DDREPORT, instead of OBJECT/DDREPORT as it 
normal ly would) . 

By default the commands will be expected to come from the terminal using a file with 
internal name CARD, and output will be displayed on the same terminal, using a file with 
internal name LINE. However, the user may override these defaults for the CARD and LINE 
files by using FILE statements in WFL or CANDE. For example, if the commands for run were in 
a disk file called DDCOMMANDS01 1079 , and the output to be written to a disk file called 
DDOUTPUT022879, then the WFL "RUN DDREPORT;" statement, or the CANDE "RUN SDDREPORT" would 
be followed by the following file statements: 

FILE CARD (KINDOISK. TITLE>DDCOMMANDS01 1079) ; 
FILE LINE (KIND=DISK, TITLE-DDOUTPUT0228979) ; 

The DDUPDATE and DDREPORT programs will try to handle any meaningful assignment of the CARD 
and LINE files. 

2.6 Handling of Faults During Execution of Data 
Dictionary Programs 

Care has been taken to prevent system or program faults from leaving the Data Dictionary 
data base in an inconsistent state. The data base is audited, and each insertion, deletion 
or replacement of a program or data base is treated as one transaction. Thus if the program 
is stopped for some reason in the middle of such an operation, the data base will, at the 
first opportunity, restore the data base to its state before the operation was commenced. 

2.7 Securi ty of Fi les 

The DDUPDATE program has no special security privileges, so that if it needs to access files 
belonging to a usercode other than the one it is running under, that file must either be a 
PUBLIC file, or else DDUPDATE must be run by a privileged usercode. 



A- 



MARK 3 . 1 
ENTERING DATA AND TRANSACTIONS BASES 

3.1 Overview of Data and Transaction Bases 

The layout of data fields and their relationships within a data base are described bv a 
source program written in the DASDL language. The DASDL compiler reads this and creates a 
description file, containing all the information in a form which can be accessed bv the 
compilers when compiling the access routines for the data base, and application programs 
which access the data base. 

If the data base name is ABCD, then the DASDL compiler will create a description file with 
the title DESCRIPTION/ABCD. By running the DASDL compiler wi th 1 he UPDATE opt ton an 
existing data base description can be altered, and a new different description file created 
To distinguish these various updates of the original base, each is assigned an update level 
which begins at 1 for the original description file, and increases by 1 for each update In 
addition each description file has a creation timestamp, giving the date and time when the 
initial description file was created, and an untf 
update 



initial description file was created, and an update timestamp showing when the particular 
"' level was created. 



Similar considerations apply to transaction bases, except that the description file for a 
transaction base called ABCD would be called ABCD/TRDESCRIPTION. 

The Data dictionary obtains its information about a base from the description file for that 
base . 

A data base may also have logical data bases associated with it. Each logical data base mav 
access only a portion of the full (physical) data base. y 

Similarly, a transaction base may have transaction subbases associated with it each of 
which accesses only a portion of the full (physical) transaction base. 

Each description file contains information about the physical base and all of its loeical 
bases (or subbases), if any. "tn-ai 
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3.2 Naming Conventions for the Data and 
Transaction Bases 



The Data Dictionary identifies a data or transaction base by its name and update level, and 
also by the usercode and family of its description file. These are all saved for each base 
entered into the Data Dictionary. 

The Data Dictionary will not allow two data bases or two transaction ba bases with the same 
name, update level, usercode and family. Any request to enter a base which has the same 
names etc. as a base already in the Data Dictionary will be disallowed. 

Every base is given a unique number when entered into the Data Dictionary, and this number 
may be used to specify a base uniquely. When bases are mentioned in Data Dictionary 
commands the name of the base and its type (whether a data base or transaction base) must be 
given. If the Data Dictionary contains more than one update level of this base, the update 
level must be specified also. If there is more than one base with the same name and update 
level (perhaps with different usercodcs or families), this unique number must also be 
spec i Tied. 

3.3 The INSERT Command for Data and Transaction Bases 



Data and transaction bases are inserted into the Data Dictionary using the INSERT command, 
which specifies the type and name of the base to be inserted. One or more bases of the same 
type may be specified in the same command. For example, the two commands: 

INSERT DATABASE DEBTORS; 

INSERT TRBASES INVENTORY, SALES; 

insert a database called DEBTORS and transaction bases INVENTORY and SALES into the Data 
Dictionary. Any logical data bases of DEBTORS, and transaction subbases of INVENTORY and 
SALES are also entered. 

The INSERT command looks for description files DESCRIPTION/DEBTORS, and for the 
INVENTORY/TRDESCRIPTION and SALES/TRDESCRIPTION (according to the usual file naming 
convent i ons ) . 

Regardless of the title of the description file, the database name is taken from the 
contents of the description file. 

The usercode and family of the description file may be explicitly given, as for example: 

INSERT DATABASE (BILL)DEBTORS ON ACCOUNTS; 

INSERT TRBASE 'INVENTORY; 

INSERT TRBASE SALES ON RETAIL; 

These description files should be public files, or else DDUPDATE should be run with a 
privileged usercode if files in other usercodcs are to be read. 

No insertion will be done if the Data Dictionary already contains a base of the same type, 
with the same name and update level, and entered from a description file with the same 
usercode and family as that found from the information in the INSERT command. 

The keyword INSERT may be abbreviated to IN, and DATABASE or DATABASES to DA or DB, AND 
TRBASE or TRBASES to TR. 

3.4 The DELETE Command for Data and Transaction Bases 



Data and transaction bases are deleted from the Data Dictionary using the DELETE command, 
which specifies the type and name of the base to be deleted. One or more bases of the same 
type may be given in the same command. For example, the two commands 

DELETE DATABASE DEBTORS; 

DELETE TRBASES INVENTORY, SALES; 

delete the data base DEBTORS, and the transaction bases INVENTORY and SALES from the Data 
Dictionary. Any logical bases of DEBTORS and transaction subbases of INVENTORY and SALES are 

also deleted. 

The names given in the DELETE commands must be the actual names of the bases, not titles of 
description files, and must uniquely specify each base to be deleted. 

The update level, and unique number of a base may also be specified. For example, if there 
were two update levels 3 and 5 of DEBTORS in the Data Dictionary, then the DELETE command 
cou Id be 

DELETE DATABASE DEBTORS LEVEL 3; 
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or 
DELETE DATABASE DEBTORS LEVEL 5; 

to show which one was to be deleted. 

If there are two bases with the same names and update levels, but with different usercodes 
or families, the unique number may be specified. Thus the following commands could be used 

DELETE DATABASE DEBTORS (33); 

or 
DELETE DATABASE DEBTORS LEVEL 5 (41); 

to show that the bases with unique numbers 33 and 41 were to be deleted. (The unique numbers 
of all bases in the Data Dictionary can be found using the DISPLAY SOURCES command, 
described in section 6.4). 

The DELETE command will terminate if there is more than one base matching a given 
specification, or if no base matching that specification can be found. 

The keyword DELETE may be abbreviated to DEL. 

3.5 The REPLACE Command for Data and Transaction Bases 

A REPLACE command is equivalent to a DELETE followed by an INSERT, and the unique number of 
the old base is assigned to the new one. 

If the old base is not specified uniquely, or the new base has the same name, update level, 
usercode and family as a base of the same type already in the Data Dictionary then no 
deletion or insertion will be done. 

The rules for specifying the new and old base are just those given for the INSERT and DELETE 
commands respectively. 

Examples of REPLACE commands are: 

REPLACE TRBASE SALES BY SALES; 
REPLACE TRBASE SALES LEVEL 7 BY SALES; 
REPLACE TRBASE SALES BY SALES ON RETAIL; 
REPLACE TRBASE SALES (31) BY (LA) SALES; 

The keyword REPLACE may be abbreviated to REP. 



3.6 Syntax for Data and Transaction Base Commands 

<base insert command> 

l< ■ I 

I I 
INSERT DB <base insert name> ; — 

DATABASE - 

DATABASES 

TRBASE 

TRBASES — 



<base delete command) 

l< • I 

I I 
— DELETE DB <base delete name> 

- DATABASE — 

- DATABASES - 

- TRBASE 

- TRBASES — 
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(base replace comma nd> 



REPLACE DB 

DATABASE - 
DATABASES 
TRBASE — 
- TRBASES — 



I I 
— <base replace name> 



<base insert name> 
— <f i 1 e t i t 1 e> 



<base delete name> 
— <name> 

l< 



/1\- ( — <unique integer) — ) 

|-/1\- LEVEL — <update level> — 



<base replace name;. 

--<base delete name> — BY — <base insert name>- 



<unique integer) 

— <integer with no more than 11 digits>- 



<upda t e 1 eve 1 > 

— <integer with no more than 1! digits>- 
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COMPILING AND ENTERING PROGRAMS INTO THE DATA DICTIONARY 

4.1 Overview of Saving the Usage Data 

Programs whose usage of data and transaction bases is to be entered into the Data Dictionary 
must be compiled with the DATADICTINFO compiler option set. This causes the compiler to 
place this usage information into the object code file. 

Following such a compilation, the Data Dictionary can be instructed to extract that usage 
from the code file and enter it into the Data Dictionary, which can then prepare various 
reports which collate this usage. The usage data for a program may also be deleted or 
replaced. 

This usage information shows which bases structures and items were invoked by the program, 
and whether they appeared in source language statements in a read or write context. 

4.2 Saving Usage Data When Compiling 

To save data and transaction base usage data in the object code file, the compiler option 
DATADICTINFO must be set. This option must be set before the first source language 
statement, and cannot be set, reset or popped within the program. 

The usage data shows which bases, structures and items were invoked by the program, and also 
whether they were used in source language statments in a read context, a write context, or 
both. For data bases use in OPEN INQUIRY or CLOSE statements is regarded as a read context, 
and OPEN UPDATE as a write context. For data sets and sets, use in a FIND or LOCK statement 
is a read context, while DELETE, CREATE and STORE are write contents. Statements which 
alter manual sets are a write context. Statements which read a data item are read contents, 
whereas statements which alter data items are write contents. 

This data does not purport to show which data sets, sets and data items are actually updated 
or read by executing the program but only the context in which they appear in source 
language programs. 

4.3 Program Naming Conventions 

Programs within the Data Dictionary are identified by a short name up to 17 characters long, 
and by a unique number which must be specified only if the short name is not unique. 

The short name may be explicitly specified when the program is entered, and otherwise will 
be the rightmost identifier of the object code file title. (Short names are used because 
lengthy file titles would be inconvenient). 

There may be more than one program with the same short name in the Data Dictionary, so that 
different versions of a program may be kept in it at the same time. Every program, however, 
will have a different unique number. The DISPLAY SOURCES command, described in section 6.4, 
will print a list of all programs in the Data Dictionary, showing their short name, unique 
number, the full title of their object code file, their compilation date and time, and the 
date and time they were entered into the Data Dictionary. Thus it should be possible to 
identify every program from this information. 

The Data Dictionary will only enter usage data from object code files which are executable, 
and not from object code files compiled with the LIBRARY or SEPARATE options. If any 
procedures were compiled with the DATADICTINFO option reset, a warning of possibly 
incomplete usage data will be given whenever that program is entered. 

4.4 The INSERT PROGRAM Command 

The INSERT PROGRAM command enters usage information from object code files and saves it in 
the Data Dictionary. For example the commands 

INSERT PROGRAM OBJECT/STATETAX; 
INSERT PROGRAMS PAYROLL, PARTS /MODI 1 ; 

insert usage information from the object code files with titles OBJECIVSTATETAX, PAYROLL and 
PARTS/MOD11. (The keywords PROGRAM and PROGRAMS are equivalent). These files must be object 
code files containing Data Dictionary usage information, and the files must of course be 
available when the INSERT PROGRAM command is executed. 

By default, the short name assigned to each program wi I 1 be the rightmost identifier of its 
fi e title, which would be STATETAX, PAYROLL and MODI I for the commands above. Each program 
will silso be assigned a unique number. Thus it is permissible (but possibly confusing to the 
user) to have more than one program with the same short name, as they will have different 
un lque numbers . 

A specific short name can be assigned to a program as in the following examples: 
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INSERT PROGRAM PAYROLL = PAY79; 
INSERT PROGRAM PARTS /MOD 1 1 = PARTS 1 1 ; 

so that the program entered from the code file PAYROLL will have the short name PAY79, and 
that from the code file PARTS/MOD11 will have the short name PARTS11. 

These short names must begin with a letter and comprise up to 17 letters, digits, hyphens or 
underscores (hyphens or underscores must not be the first or last characters). 

If the object code file belongs to a usercode different from that used to run DDUPDATE, or 
to a different family, the usercode and family may be specified along with the file title, 

a s for e xamp I e : 

INSERT PROGRAM (NY) PAYROLL; 

INSERT PROGRAM PAYROLL ON PERSONNEL; 

INSERT PROGRAM 'PAYROLL ON PACK; 

(The * specified that the file does not belong to a particular usercode). 

If an object code file does not belong to the usercode which runs DDUPDATE, the normal file 
security restrictions will apply. Thus the file security must be PUBLIC (or CLASSA) or 
DDUPDATE must be run by a privileged usercode. 

The file titles must conform to the usual rules for file titles. However, identifiers 
containing hyphens (-) or underscores (_) need not to be quoted (unless the hyphen or 
underscore is the first or last character). The following are all valid Data Dictionary 

commands : 

INSERT PROGRAM PAY-ROLL; 
INSERT PROGRAM FICA-DEDUCTIONS ; 
INSERT PROGRAM " 5%PAYRISE" ; 

All of the data bases invoked by a program must already have been entered into the Data 
Dictionary by INSERT DATABASE commands before the program is inserted. If a program being 
inserted invokes a data base which is not in the Data Dictionary, the command is terminated 
and any data already entered from that program is deleted from the Data Dictionary. 

The description file current when the program was compiled must be the same one from which 
an INSERT DATABASE or REPLACE DATABASE command entered the base information into the Data 
Dictionary. (Their update timestamps are compared to ensure they are the same update level 
of the same data base). If there are several different update levels of a base in the Data 
Dictionary, the correct one will be found and used automatically. 

The keyword INSERT may be abbreviated to IN, and PROGRAM or PROGRAMS may be abbreviated to 
PR 

4.5 The DELETE PROGRAM Command 



The DELETE PROGRAM command deletes usage information of programs from the Data Dictionary. 

For example the commands 

DELETE PROGRAMS STATETAX, PAYROLL; 
DELETE PROGRAM MODI 1 ; 

will delete from the Data Dictionary all usage information from the programs with short 
names STATETAX, PAYROLL and MODI 1 (assuming that there is only one program with each of 
these short names). 

If there is more than one program with the same short name, the unique number must also be 
given to specify exactly which is to be deleted, as for example: 

DELETE PROGRAM STATETAX (3 14); 
DELETE PROGRAM MOD II (19); 

which delete the programs with short name STATETAX and inique number 314, and with short 
name MODI 1 and unique number 19. 

If a program specification is not unique, nothing at all will be deleted. 

A DISPLAY SOURCES command will list all of the programs in the Data Dictionary with their 

unique numbe r s . 

The keyword DELETE may be abbreviated to DEL, and PROGRAM or PROGRAMS (which are equivalent) 

to PR. 

4.6 The REPLACE PROGRAM Command 



The REPLACE PROGRAM Command is equivalent to a deletion followed by an insertion. For 

examn 1 e : 

REPLACE PROGRAM PAY79 BY OBJECT /PAYROLL = PAY80; 



A- 13 
MARK 3. 1 

specifies that the program with short name PAY79 is to be deleted and that in the code file 
OBJECT/PAYROLL be inserted with a short name of PAY80. 

No deletion or insertion is done unless the program to be deleted is specified uniquely, and 
the program to be inserted is available, and contains Data Dictionary usage information. 

The program to be deleted is specified in exactly the same way as for the DELETE PROGRAMS 
command, and the program to be inserted is described in the same way as for the INSERT 
PROGRAMS command. 

The key word REPLACE may be abbreviated to REP, and PROGRAM or PROGRAMS to PR. 
4.7 Syntax for Program Commands 
<program insert command) 



< , | 

— INSERT PROGRAM <program insert name> ; 1 

|- PROGRAMS -| 

<program delete commands 

|< , I 

— DELETE PROGRAM <program program delete name> ; 1 

I- PROGRAMS -I 



<program replace comma nd> 

— REPLACE PROGRAM <program replace naine> ; 

- PROGRAMS - 



<program insert name> 

— <f i le tit le> 

|- = — <short name>~| 

<program delete name> 

— <name> ■ 

|- ( — <unique integer> — ) -| 

<program replace name> 

— <program delete name> — BY — <program insert name>- 

<short name> 

— < I e 1 1 er> 

I <_/ 1 5\ 



-<letter or digit or hyphen or underscore)- 



<unique integer> 

— <integeir with no more than 11 digits>- 
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5. PREPARING AND ENTERING DOCUMENTATION TEXT 

5.1 Overview of Documentation Text 
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Files of free format text which contain documentation for items in data and transaction 
bases can be indexed by the Data Dictionary, which can later retrieve the text and include 
it in various reports. The text itself is not stored in the Data Dictionary, but only its 
location within the file indexed. 

This documentation text may be inserted independently of information entered from 
description files by INSERT DATABASE or INSERT TRBASE commands, and no association is made 
when either documentation text or description file data is entered. For example, a user may 
wish to index the documentation text before the description file has been generated. 

The association between description file entities and their corresponding documentation text 
is made only when a report is being compiled. The rules by which this association is made 
are given in section 5.2, and the format of documentation text files is given in section 

5.2 Naming Conventions for Documentation Text 



All documentation text belongs to a particular documentation base, and then to a particular 
item within that base, so whenever documentation text is required for a report, the 
documentation base must first be located, and then the correct item found within that base. 

Documentation bases must always have their name and type (whether a data base or a 
transaction base) specified. In addition, the update level, and usercode and family of the 
corresponding description file may optionally be specified also. Whenever a documentation 
base is required for a particular description file base, the Data Dictionary looks first for 
a documentation base with the correct type and name. If there are several documentation 
bases with different update levels, it will choose the documentation base whose update level 
is equal to or less than the description file update level. For example, if there were three 
documentation data bases called SALES in the Data Dictionary, with update levels 1.5 and 7, 
then the following associations would be made with description file data bases called SALES. 



Description file base 
Update Levels 

1.2.3,4 

5,6 

7 and greater 



Corresponding 
Documentation Base 
Update level 

1 
5 
7 



If the documentation base is still not unique, the usercode and family are then used to 
decide which base to use. 

To avoid any ambiguity when searching for a documentation base to match a description file 
base, the Data Dictionary ensures that there are never two or more documentation bases which 
could match any one description file base. It ensures that all documentation bases differ in 
at least one of type (data or transaction base), name, update level, usercode or family. 
Properties for two bases are not considered different in this context if that property is 
not specified for one of the bases. For example, the following documentation data bases are 
all different in this context. 



SALES LEVEL 3 

SAI.ES LEVEL 4 

SALES LEVEL 3 

(LA) SALES LEVEL 1 

(SFO) SALES 



ON RETAIL 
ON RETAIL 
ON BUYING 

ON CREDIT 



However, the following documentation data bases could not 
Dictionary, if it already held the ones above. 

SALES 
because it does not differ from any of the above. 

(LA) SALES LEVEL 4 
because it does not differ from SALES LEVEL 4 ON RETAIL 

(SFO) SALES LEVEL 6 
because it does not differ from (SFO)SALES ON CREDIT. 

A description file data base 

(LA) SALES LEVEL 1 ON DISK 
would be matched by the documentation data base 

(LA) SALES LEVEL 1 . 



be 



inserted into the Data 
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The description file data base 

(SD) SALES LEVEL 3 ON RETAIL 
would be matched by the documentation data base 

SALES LEVEL 3 ON RETAIL. 
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5.3 Preparation of Documentation Text Files 

A documentation text file must contain text for at least one data or transaction base, and 
its associated logical data bases or transaction subbases. All text for a base (and its 
logical bases) must be in the same file. 

Text records may be of any length, but the Data Dictionary will show only the first 72 
characters in its reports. CANDE files of type SEQDATA (SEQ) would be suitable. The 
documentation text for each item of the base may be in any format, and may comprise any 
number of records (including zero records). The item to which the text refers is identified 
by a heading record which precedes the text records for the item. These heading records have 
a unique character ($ by default) as their first character. A "level number" similar to 
those in COBOL or PL/I shows how items are owned by other items. Only the first 72 
characters of heading records are significant. 

The following example shows a text file for a data base SALES. 

$ SALES DATABASE 

text for the data base 

$ 1 DEPARTMENTS 

text for the data set DEPARTMENTS 

J 2 DEPT-NAME 

text for the data item DEPT-NAME 

$ 2 DEPT-NUMBER 

text for the data item DEP -NUMBER 

$ 2 CLOSING-DATE 

text for the group item CLOSING-DATE 

$ 3 CLOSING-MONTH 

text for the item CLOSING-MONTH 

$ 3 CLOSING-DAY 

text for the i t em CLOSING-DAY 

$ 3 CLOSING- YEAR 

text for the i t em CLOS I NG- YEAR 

$ 2 SALES -TO-CLOSING 

text for item SALES -TO-CLOSING 

$ 2 SALES-BY-DEPT-NUM 

text for the set SALES-BY-DEPT-NUM which 
spans the data set DEPARTMENTS 

The DASDL to describe these items may be: 

DEPARTMENTS DATA SET 

(DEPT-NAME ALPHA(30); 
DEPT-NUMBER NUMBER (6); 
CLOSING-DATE GROUP 

(CLOSING-MONTH NUMBER(2); 

CLOS I NG-DAY NUMBER ( 2 ) ; 

CLOS ING- YEAR NUMBER( 2 ) ; 

) 
SALES-TO-CLOSING NUMBER (6,2); 
); 
SALES-BY-DEPT-NUM SET OF DEPARTMENTS 
KEY IS DEPT-NUMBER; 

The heading for the base must specify at least the base name and type. The usercode, update 
level and family of the description file may also be specified, as for example: 

$ (LA) SALES DATABASE LEVEL 3 ON RETAIL 

If heading will not fit on one record it may be continued on successive records, by ending 
the unfinished heading with a hyphen, (preceded by at least one space), as for example: 

S (LA) SALES DATABASE - 
$ LEVEL 3 ON RETAIL 

The "level numbers" on the headings for each item in the base (not to be confused with the 
update level of a base) show that DEPARTMENTS owns DEPT-NAME, DEPT-NUMBER, CLOSING-DATE, 
SALE-TO-CLOSING and SALES-BY-DEPT-NUM, and that CLOSING-DATE owns CLOSING-MONTH, CLOSING-DAY 
and CLOSING-YEAR. 

They must follow the same rules as for COBOL level numbers. 
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All sets, regardless of whether they are disjoint or embedded, or of where they are 
embedded, are assumed to be owned by the data set they span. GROUP items, and FIELD items 
which contain BOOLEANS, are assumed to own the items they contain. 

Global data items are assumed to be owned by the global data set, and subformats by the 
format which contains them, and data items within a subformat are assumed to be owned by 
that subformat . 

A documentation text file need not contain entries for all the items in the description file 
base. However, if an item is included, there must also be entries foir every item which owns 
it. The Data Dictionary will not find a text item unless all of its owners have also been 
gi ven . 

The names for each item must be those given in the DASDL description of the data base (or 
TFL for a transaction base). 

Anything following a percent sign (%) on a heading record is ignored, and treated as a 
comment . 

Documentation text for logical data bases or transaction subbases must immediately follow 
that for the physical base. For example, if SALES had two logical data bases, SALES-1 and 
SALES-2, the text in the previous example could be followed by 

$ SALES-1 OF SALES 

text for SALES-1 

$ 1 DEPT-REMAP-1 

text for DEPT-REMAF-1 

$ 2 DEPT-NUMBER 

text for DEPT-NUMBER 

$ 2 SALES-TO-CLOSING 

text for SALES-TO-CLOSING 

S SALES-2 OF SALES 
text for SALES-2 

Global data items within a logical data base are assumed to be owned by a global data set, 
with the name used in the DASDL description to include the global data in the logical data 
base . 

S.4 The INSERT TEXT Command 



Documentation text is indexed by the Data Dictionary, using an INSERT TEXT command. For 
example : 

INSERT TEXT SALES/DOCTEXT; 

indexes the documentation text given in the file with title SALES/DOCTEXT. This file title 
may include a usercode and family also, as for example: 

INSERT TEXT (LA) SALES/DOCTEXT; 
INSERT TEXT (LA) STAFF ON PERSONS; 

If heading records are denoted by a character other than $, that character may be specified 
in the command, for example: 

INSERT TEXT SALES/DOCTEXT CHAR #; 

which states that heading records in that file begin with the character #. All headings in a 
text file must begin with the same character. If no character is specified, it will be $ by 

def aul t . 

The Data Dictionary will not use text in reports if the text file has been altered in any 
way since it was indexed, to prevent incorrect text being displayed if the file indexed has 
been replaced by an old or new file with the same title. (A file is regarded as having been 
altered if its title is changed.) 

The INSERT TEXT command indexes all bases in the given file, including any logical data 
bases or transaction subbases. 

5 . 5 The DELETE TEXT Command 



Documentation text previously indexed by the Data Dictionary is deleted using the DELETE 
TEXT command. For example: 

DELETE TEXT SALES/DOCTEXT; 

deletes from the Data Dictionary all knowledge of the text for the bases in the file 
SALES/DOCTEXT. Usually the file specified! in a DELETE TEXT command will be the same text 
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file specified in a previous INSERT TEXT command. 

Only headings for physical data bases or transaction bases are significant for a DELETE TEXT 
command. All text items in those bases, and in all of their logical data bases or 
transaction subbases are deleted. It is immaterial which items are given in the text file. 

No deletion will occur unless the base is specified in exactly the same way as when it was 
inserted. The usercode, update level and family must each have been either not specified, or 
have been specified and be the same for deletion as they were for insertion. (If the same 
text file is specified for both insertion and deletion, the specifications will alwavs 
match.) J 

The file specified in a DELETE TEXT command need not be the same one specified in the INSERT 
TEXT command. 

5.6 The REPLACE TEXT Command 



The REPLACE TEXT command is equivalent to a DELETE TEXT followed by an INSERT TEXT command 
For exampl e : 

REPLACE TEXT SALES/DOCTEXT; 

causes the file SALES/DOCTEXT to be scanned, and whenever a heading for a physical data or 
transaction base is found, that base together with all its items and logical data bases or 
transaction subbases is deleted. That base is then indexed again, together with all of its 
items and logical or subbases. 

The REPLACE TEXT command would commonly be used whenever a documentation text file had been 
updated . 

Remember that the Data Dictionary will not use text from a documentation text file which has 
been modified in any way since it was indexed by the Data Dictionary. 

5.7 Syntax for Text Commands 



<text command > 

- INSERT TEXT — <file title>- 

DELETE - 
REPLACE 



CHARACTER — <character>- 



5.8 Syntax for Documentation Text Files 
(documentation text file> 



<physical base text>- 



— (logical base text> — 



(physical base text> 

— (physical base heading>- 



|-(text>-j 



l<- 



-(en t i ty head i ng>- 



I 
|-(text>- 
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< 1 og i ca 1 base t ex t > 

— <logical base heading>- 



-<t ex t >- 



| < 

<entity heading;. 



i i 
I -< t ext >- J 



<physical base heading> 

— $ — <physical base specification;.- 



<physical base spec i f i ca t i on> 

<physical base name>- 

I 



|_ • 

! 

|- ( — <usercode> — ) 



_ DB > 

- DATABASE 

- TRBASE — 



l<- 



-/1\- LEVEL — <integer>— 
-/1\- ON — <family name>- 
-/1\- OF — <host nanie> 



<entity headings 

— $ — <integer> — <entity name>- 



< 1 o g i c a 1 base heading> 

— $ — <logical base name> — OF — <physical base name>- 



A 20 
MARK 3 . 1 



6. GENERATING DATA DICITIONARY REPORTS 



6.1 Introduction to Data Dictionary Reports 

The information about data and transaction bases, usage by programs, and documentation text, 
entered into the Data Dictionary by the various INSERT and REPLACE statements, can be 
presented in the various reports described in this section. 

These reports can be generated by both the DDUPDATE and DDREPORT programs, although the 
DDREPORT program, which cannot alter the Data Dictionary, would normally be used. 

The reports can be either displayed on a terminal or printed, depending on the option 
selected by the user as described in section 6.2. 

For most reports, the data or transaction base, to be reported on must first be selected by 
a SELECT command, as described in section 6.3. The report is then generated by a DISPLAY 
command which specifies the particular report required, and in same cases gives details of a 
particular item to be reported on. 

6 . 2 OPTION Command 



The OPTION command specifies whether the reports are to be displayed on a terminal, or 
pr i n t ed . 

OPTION TERMINAL; 

specifies that reports are to be displayed on a terminal. It is ignored for batch jobs. 

The number of lines on the terminal screen may be specified with the PAGE option, as for 
example 

OPTION TERMINAL PAGE = 20; 

which stops output to the terminal every 20 lines. Output resumes when a blank line is sent 
from the terminal. If the first character sent from the terminal is not a space, the report 
will be terminated. 

Setting PAGE = results in continuous output. 

OPTION PRINTER; 
specifies that reports are to be printed. 

OPTION; 

causes the current option to be displayed. 

The initial setting of this option is PRINTER for a batch run, and TERMINAL for a CANDE run. 
Options continue until changed by an OPTION command. 

The keyword OPTION (or OPTIONS) may be abbreviated to OPT, TERMINAL may be abbreviated to T, 
and PRINTER to P. 

(options command> 

OPTION • 1 



OPTIONS -| - PRINTER 
- TERMINAL 

|- PAGE — = — <integer>- 

6.3 Selecting a Base on which to Report 

The SELECT command specifies which data or transaction base will be reported on by the 
following DISPLAY commands. The information given by a SELECT command completely replaces 
all information given by a previous SELECT, and the new information remains in force until 
another SELECT command is given. 

In its simplest form, the SELECT just gives the name and type of a base. For example, 

SELECT SALES DATABASES; 

selects a physical data base called SALES. 

SELECT FOOD OF SALES DATABASE; 

selects a logical data base FOOD of the physical data base SALES. 
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Simi lar ly , 

SELECT LOANS TRBASE; 

selects a transaction base called LOANS, and 

SELECT RV OF LOANS TRBASE; 

selects a subbase RV of the LOANS transaction base. 

If a base entered from a description file (by INSERT DATABASE or INSERT TRBASE commands) 
needs its update level or unique number to be specified also, they can be given, as for 
ex amp 1 e : 

SELECT SALES DATABASE LEVEL 3; 
SELECT SALES DATABASE LEVEL 4 (39); 
SELECT RV OF LOANS TRBASE (91); 
SELECT LOANS TRBASE LEVEL 9; 

If a documentation base is being selected, its usercode and family may be specified, as for 
exampl e : 

SELECT (LA)SALES DATABASE ON RETAIL; 
SELECT RV OF LOANS TRBASE ON CREDIT; 

In fact, thee SELECT may include all combinations of th above, as for example 

SELECT (LA) SALES DATABASE LEVEL 3; 
SELECT LOANS TRBASE (49) ON CREDIT; 

However, only the base name, type, update level and unique number are used to select bases 
entered from description files, and only the usercode, base name, type, update level and 
family are used to select documentation text bases. 

A SELECT command does not actually try to locate a base; the information given is just 
stored, and used by the DISPLAY commands when they need to locate a base. 

The command SELECT; causes the current information to be displayed. 

<select command> 

SELECT > 

|- ( — <usercode> — ) -| |-<logical base name> — OF -| 

>-<physical base name> DATABASE > 

DB 



TRBASE 



-/1\- LEVEL — <integer> 

-/1\- ( — <unique integer>- 

-/1\- ON — < family name> 

-/1\- OF — <host name> 



6.4 SOURCES Report 



The DISPLAY SOURCES command generates a report showing all description file bases (entered 
by INSERT DATABASE and INSERT TRBASE commands), programs (entered by INSERT PROGRAM 
commands) and documentation bases (entered by INSERT TEXT commands) which are currently in 
the Data Dictionary. 

It does not use any information from SELECT commands. 

<display sources command;. 

— DISPLAY — SOURCES — ; • 1 



6.5 Cross Reference Reports 



The DISPLAY XREF command generates a report showing which programs reference each item of a 
base, any internal name by which that item was known within the program, and whether the 
usage was read or write. It has two forms, which report on all items in a base, and on just 
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one i t em. 



DISPLAY XREF; reports on all items within the selected base. Items are listed in nearly the 
same order as they were declared in DASDL or TFL. 

DISPLAY XREF MONTHLY-REPAYMENT; reports just on the item MONTHLY-REPAYMENT within the 
selected base. The item may be qualified, as for example 

DISPLAY XREF INTEREST OF LOAN-DETAILS OF LOAN-APPLICATION; 

(Remember that sets are assumed to be owned by the data set they span, and that group items 
may be used as qualifiers in the Data Dictionary. Also, global data items are assumed to 
belong to the global data set). 

All names used in PL/I programs will have underscores (_) replaced by hyphens (-) . 

<display xref command> 

DISPLAY — XREF ; 1 

|< OF I 

I I 
< ident i f i er> 



6.6 Usage Reports 

The DISPLAY USAGE report has various forms which show, for a particular program, the various 
data and transaction bases used, or for a particular base the structures used, or all the 
items used. Another form shows which programs reference a given update level of the selected 
base . 

The briefest usage report, lists the bases used by a program. For example: 

DISPLAY USAGE BY PROGRAM PAY; 

lists all data and transaction bases referenced by the program whose short name is PAY. If 
the base was renamed within the program, this internal name will also be shown. 

If there are several programs with the same short name, a unique number may also be given, 
as for example: 

DISPLAY USAGE BY PROGRAM PAY (49); 

which reports on the program PAY with unique number 49. 

Once the bases used by a program have been identified, more detailed usage reports may be 
generated showing which structures or items of one base are used by the program. For 
example, the commands 

SELECT STAFF DATABASE; 

DISPLAY USAGE OF STRUCTURES BY PROGRAM PAY; 

show which data sets and sets of the STAFF data base are referenced by the PAY program. If 
they were renamed within the program, their internal names will also be shown. 

A more detailed report, showing the use of all items (and data sets and sets) of the STAFF 
data base, by the PAY program would be obtained using the commands 

SELECT STAFF DATABASE; 

DISPLAY USAGE OF ITEMS BY PROGRAM PAY; 

If necessary, the unique number of the program may be given also, as for example: 

DISPLAY USAGE OF STRUCTURES BY PROGRAM PAY (216); 
DISPLAY USAGE OF ITEMS BY PROGRAM PAY (324); 

The programs which use a particular update level of the selected base can be listed as for 
exampl e : 

SELECT STAFF DATABASE; 
DISPLAY USAGE OF LEVEL 3; 
DISPLAY USAGE OF LEVEL 7; 

These commands generate two reports, the first showing which programs reference update level 
3 of the STAFF data base, and the second showing which programs reference update level 7 of 
the same base . 

Any update level given in the SELECT command is ignored for the usage-of-l eve 1 command, as 
the update level given in the usage command is always used. For example: 

SELECT STAFF DATABASE LEVEL 1 ; 
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always reports on the usage of update level 3. 
The following abbreviations may be used: 
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DIS 


for 


DISPLAY 


US 


for 


USAGE 


STR 


for 


STRUCTURES 


LEV 


for 


LEVEL 


PR 


for 


PROGRAM 



<display base usage command) 

— DISPLAY — USAGE PROGRAM 

| ITEMS |- BY -| 

I- OF -I - STRUCTURES - 



>-<program short name> 

I 

|- ( — <unique number> — ) 



<display update level usage c omnia nd> 

— DISPLAY — USAGE LEVEL — <integer>— 

I- OF - 



6.7 Change Impact Report 

The XREF and USAGE reports list references to items, without considering that different 
items may be related. However, the DISPLAY CHANGE IMPACT command lists not only those 
programs which reference the given item, but also those which reference subitems and owners 
of the given item, and also those which reference remaps of the given item, and the 
equivalent item in logical bases. Hence the change impact report attempts to identify all 
programs which would be affected by a change to the given item. 

For example, the commands 

SELECT STAFF DATABASE; 

DISPLAY CHANGE IMPACT EMPLOYEE-NAME; 

will generate a change impact report showing the effect of a change to the data item 
EMPLOYEE-NAME in the data base STAFF. 

This change impact report will firstly list all subitems (if any) of EMPLOYEE-NAME, and then 

a list of all programs which reference EMPLOYEE-NAME or any of its subitems. If 

EMPLOYEE-NAME were deleted from the data base, or its size or other properties changed, 
logic changes may be required in those programs. 

Next, all programs which reference owners of EMPLOYEE-NAME are listed. Although these 
programs may not specifically reference EMPLOYEE- NAME, they would probably need to be 
recompiled, as some properties of the owners may have changed. 

A similar change impact report is then printed for each data item (in the STAFF data base or 
in one of its logical data bases) which remaps EMPLOYEE-NAME was on a remap, or in a logical 
data base) . 

Finally, a similar report is printed for every data item in logical data bases which is 
equivalent to EMPLOYEE-NAME. (This would not be done if EMPLOYEE-NAME was in a logical data 

base ) . 

The item to be reported on may be qualified, as for example 

DISPLAY CHANGE IMPACT ZIP-CODE OF ADDRESS OF EMPLOYEE-DATA; 

Group items may be used as qualifiers within the Data Dictionary. 

The following abbreviations are allowed: 

DIS for DISPLAY 
CH for CHANGE 
IM for IMPACT 
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<display change impact command) 

|< OF I 

— DISPLAY — CHANGE — IMPACT <identifier> ; 1 



6.8 Alphabetic Reports 

The alphabetic reports list, in alphabetic order, all data and transaction bases, or all 

entities within a selected base. The command will list either description file bases, or 

documentation bases. Also, any documentation text for each entity can also be shown. For 
exampl e : 

DISPLAY ALPHABETIC; 

displays an alphabetic list of all physical and logical data bases, and transaction and 
subbases, which have been extracted from description files. 

Similarly, 

DISPLAY ALPHABETIC DOCUMENTS; 

displays an alphabetic list of all bases whose documentation text has been indexed by the 
Data Diet ionary . 

If the actual documentation text for each base is required, the commands would be 

DISPLAY ALPHABETIC WITH TEXT; 

DISPLAY ALPHABETIC DOCUMENTS WITH TEXT; 

Alternatively, an alphabetic list of all entities within the selected base can be obtained 
from commands such as 

SELECT STAFF DATABASE; 

DISPLAY ALPHABETIC ITEMS; 

DISPLAY ALPHABETIC DOCUMENT ITEMS; 

The SELECT command just selects the base to be reported on, and would contain any of the 
specifications described in Section 6.3. 

The first DISPLAY command generates a report showing all items in the DASDL description of 
the STAFF data base, while the second DISPLAY shows all items in the documentation text file 
for the STAFF data base. 

Documentation text for each item would be given if WITH TEXT was added to each command, as 
for exampl e : 

DISPLAY ALPHABETIC ITEMS WITH TEXT; 

DISPLAY ALPHABETIC DOCUMENT ITEMS WITH TEXT; 

The following abbreviations are allowed: 

DIS for DISPLAY 
ALPHA for ALPHABETIC 
DOC for DOCUMENT 

<display description file alphabetic report command) 

— DISPLAY -- ALPHABETIC 



ITEMS -| I TEXT -| 



1- WITH - 

<display documentation file alphabetic report> 

— DISPLAY — ALPHABETIC — DOCUMENT 

- ITEMS 



TEXT 



WITH 



6.9 Attributes Reports 
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The attributes reports show the main attributes for either a given item, or all items owned 
by the given item. This information is extracted from DASDL or TFL description files, and 
will include any comment for each item in the DASDL or TFL description. Any documentation 
text for the item can also be included. 

The commands 

SELECT STAFF DATABASE; 

DISPLAY ATTRIBUTES OF EMPLOYEE-NAME; 

will display the attributes of the item EMPLOYEE-NAME in the STAFF data base. 

The commands 

SELECT STAFF DATABASE • 

DISPLAY ATTRIBUTES OWNED BY EMPLOYEE-NAME; 

will display the attributes of all items owned by EMPLOYEE-NAME in the STAFF data base. This 
form of the command is meaningful only for data sets and group items. 

Adding WITH TEXT to the command will also display any documentation text for the items, as 
for example 

DISPLAY ATTRIBUTES OF EMPLOYEE-NAME WITH TEXT; 
DISPLAY ATTRIBUTES OWNED BY EMPLOYEE-NAME WITH TEXT; 

The given item may be qualified for any of these commands. Names of data sets or groups may 
be used as qualifiers, as for example: 

DISPLAY ATTRIBUTES OF ZIP-CODE OF ADDRESS OF 
EMPLOYEE-DATA; 

The following abbreviations are permitted: 

DIS for DISPLAY 
ATTR for ATTRIBUTES 

<display attributes command> 

| < OF | 

I I 
— DISPLAY — ATTRIBUTES OF < ident i f i er> > 

1- OWNED — BY -| 

> . — :: 1 

i i 

j TEXT - | 

I I 
I- WITH -j 



6.10 Differences Report 

The differences report compares two different update levels of the same data or transaction 
base and reports the structures which differ. The two bases compared must have the same 
creation timestamps. 
For example: 

SELECT STAFF DATABASE LEVEL 3; 
DISPLAY DIFFERENCES FROM LEVEL 4; 

display the structures which differ between update levels 3 and 4 of the STAFF data base. 

The following abbreviations are allowed: 

DIS for DISPLAY 

I) I FF for D I FFERENCES 

LEV for LEVEL 

<display differences command) 

— DISPLAY — DIFFERENCES — FROM — LEVEL — <integer> — ; 1 

6.11 REPEAT Command 
The command 
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REPEAT; 
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causes the previous DISPLAY command to be repeated, but only if that command completed 
successfully without error. 

The REPEAT command would usually be given after an OPTION command to change the output 
medium, or after a SELECT command to alter the base reported on. 

It may be abbreviated to R; 

6.12 Reports during Updating of the Data Dictionary 

If a DISPLAY command was given by one user while another was updating the Data Dictionary, 
the information given in the report could be incorrect. 

Thus, if an update is in progress when a DISPLAY command is given, the user will be advised 
of the updating and the command will not be executed. If an update was in progress at the 
end of a DISPLAY command, or i f an update occurred between the beginning and the end of the 
DISPLAY command, a warning will be displayed at the end of the report. 



USER INTERFACE 

TO 

LIBRARIES 
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USER INTERFACE TO LIBRARIES 

1 . INTRODUCTION 

Libraries provide a new process structuring technique. Specifically, a library is a program 

than provides a set of procedural 'entry points' which can be called by other programs. A 

call upon a procedure from a library is equivalent to a call upon a procedure within the 
user's program. 

Collecting functions which are logically related into a library program makes programming 
easier and program structure more visible. 

Any user can create and use libraries. Sharing of libraries is possible across multiple 
programs and multiple users. 

Libraries offer the following improvements over binding: 

1) Inter-language communication is much improved. 

2) Sharing of globals is prevented. 

3) Standard packages of routines (such as plotting routines and statistical 
routines) need not be copied into any user programs. 

Libraries offer the following improvements over Installation Intrinsics: 

1) A 'CI' by the system operator is not required. 

2) There can be more than one version of a library in use at a time. 

3) Libraries can be written in more languages. 

4) Individual users can create their own libraries without needing special 
pr i v i 1 eges . 

5) A libraries can have its own global files, data bases, transaction bases and so 
on . 

6) Libraries can contain initialization and termination code. 

7) Library programs may themselves be user programs of other libraries. 

2. FUNCTIONAL DESCRIPTION OF LIBRARIES 

2.1 Library programs 

A library program provides entry points for use by user programs. It is distinguished by 
the appearance of EXPORT declarations and FREEZE statements. (COBOL and COBOL74 differ from 
the other languages on this point; see sections 6 and 7.) 

2.2 User programs 

A user program uses entry points provided by library programs. A user program is 
distinguished by the appearance of LIBRARY declarations and entry point declarations for 
each of the declared libraries. (Again COBOL and COBOL74 differ on this point; see sections 
6 and 7.) 

It is permissible for a library program to also be a user of other libraries. The only 
restriction is that a chain of library linkages must never be circular. In other words, a 
library cannot reference itself, either directly or via some other chain of library 
re f erences . 

2.3 Library Directories and Templates 

The information needed to make the linkage between the library program and the user program 
is contained in a pair of data structures called the 'directory' and the 'template' which 
are built by the compilers. These structures are used by the MCP to match the entry points 
in a library program with the corresponding entry points in the user program. The code file 
for a library program contains exactly one directory which describes all the entry points, 
their parameters, their result types and how to link to the entry points. The code file for 
a user program contains one template for each library declared in the program. The template 
describes the library attributes and contains the entry point descriptions for the 
procedures being used. 

2.4 Library initiation 

When a library entry point is first called, the user program is suspended, and the library 
(if it has not already been initiated) is automatically initiated by the MCP. The library 
runs as a normal program until it executes a FREEZE statement; this makes the EXPORTed entry 
points available. All of the entry points that the user program declared for the library 
are linked to the entry points provided by the library and the user program resumes 
execut ion . 
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The PERMANENT and TEMPORARY specifications on the FREEZE statement control the duration of 
the library. A permanent library remains available until it is DSed. A temporary library 
remains available as long as there are users of the library. A temporary library which is 
no longer in use will un-freeze and resume running as a regular program to ' end-of-t ask ' . 
Once a library un-freezes, it may not execute a FREEZE statement in an attempt to become a' 
1 i brary aga i n . 

Actually, any running program which executes a FREEZE statement becomes a library. To be 
useful in this case, the FREEZE statement should specify PERMANENT (the specification of 
TEMPORARY would cause the library program to immediately un-freeze, since the active user 
count would be zero). 

Since a library program initially runs as a regular program, the flow of execution can be 
such that the execution of a FREEZE statement is conditional and can occur anywhere in the 
outer block of the program. 

If a user program causes a library to be initiated, and this library does not execute a 

FREEZE statement (for whatever reason, perhaps it was not even a library program and thus 

had no FREEZE statement), the attempted linkage to the library entry points cannot be made 
and the user program will be DSed. 

2.5 Linkage provisions 

The linkage of entry points declared in a user program to entry points provided by a library 
program is done in one of three ways: directly, indirectly, or dynamically. The library 
program specifies the form of linkage; indirect and dynamic linkages allow linkage to be 
established to libraries other than the one specified by the user program. Other than by 
specifying the code file title of the library (via the library TITLE attribute) and for 
dynamic linkages by specifying the LIBPARAMETER library attribute, the user program has no 
control over which actual library invocation it gets linked to. 

Direct linkage occurs when the library program actually contains the procedure that is named 
in the library's EXPORT declaration. 

Indirect linkage occurs when the library program EXPORTS a procedure that it declared as an 
entry point of some other library. The MCP will then attempt to link the user program to 
this second library, which can provide the entry point directly, indirectly (again), or 
dynamical ly . 

Dynamic linkage allows a library program to determine to which other library the actual 
linkage will be made. For an entry point that a library provides dynamically, the library 
also specifies a 'selection' procedure. This selection procedure is invoked by the MCP wheiri 
the initial linkage between the user program and the library program is being established' 
for thi s en try point . The selection procedure is passed an EBCDIC string whose value is the 
LIBPARAMETER attribute value given in the user program for this library. The selection 
procedure returns information to the MCP indicating which task (which must be a sub-task of 
the library program) will provide the entry point. This library task can provide the entry 
point directly, indirectly, or dynamically (again). The ability to provide entry points 
dynamically is available only to libraries written in the ALGOL language. 

The only restrictions on the complexity of indirect and dynamic linkages are that 1) 
eventually some library must provide the entry point directly, and 2) the chain of 
referenced libraries must never become circular. 

2.6 Error Handling 

Any fault that is caused (and ignored) by a library procedure that is invoked by a user 
program will be treated as a fault in the user program, and if ignored by the user program 
will cause the user program to be DSed. The status of library program will be unaffected by 
the faul t . 

If a library faults (or is otherwise DSed) prior to execution of a FREEZE statement, then 
all user programs that are waiting to link to that library will also be DSed. 

If a library program is DSed while user programs are linked to it, these user programs will 
also be DSed. V 6 

3. CREATING LIBRARIES 

Libraries may be created by any user within the limitations that the language used imposes 
upon the library facility. The programmer of a library program need only define a 
user-server relationship where the library serves a specified function via procedural entry- 
points. A library program differs from other programs only in the declaration of procedures 
to be exported as library entry points and the use of the FREEZE statement to make the 
program available as a library. (COBOL and COBOL74 differ from the other languages in that 
all programs written in these languages are capable of being invoked as either a normal 
program or as a library program without the need to use the FREEZE statement.) 

3.1 Library Sharing Specifications 

The allowed simultaneous uses of a library is specified by the creator of the library at' 
compile time via the dollar option SHARING, one of: SHARING=PRIVATE, SHARING=SHAREDBYALL, or 
SHARING=DONTCARE. If the sharing is PRIVATE then for each user a separate instance of the 
library is started. If the sharing is SHAREDBYALL then all simultaneous users share the 
same instance of the library. If the sharing is DONTCARE then any combination of sharing 
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will be used according to the MCP, but unknown to the creator and user of the library. 
Users of a library can be restricted, not only via the different library sharing 
specifications, but also through the normal file access restrictions of the system. 

4. REFERENCING LIBRARIES 

In order to use a library, the user program declares a library, its attributes, and the 
entry points from that library that it will use. Upon invoking an entry point the library 
linkage is automatically made by the MCP. If the library is not already started, the MCP 
starts it, and upon freezing it is connected to the user. The MCP will attempt to make 
linkages to all the entry points in a library at the first invocation of any one entry point 
in the 1 ibrary . 

4.1 Library Attributes 

Libraries have attributes much the same as files have attributes. Library attributes can be 
set and tested programmat i cal 1 y much like file attributes. Libraries have the attributes: 
INTNAME, TITLE, and LIBPARAMETER. All three of these attributes are EBCDIC string type 
attributes. The INTNAME is the internal identifier for the library. The TITLE is the code 
file name of the library. The LIBPARAMETER is an EBCDIC string used for transmitting 
information from the user program to the selection procedures of library programs that 
provide dynamic entry point linkage. Library attributes may be changed dynamically by the 
user program; these changes however must occur prior to the first attempt to link to the 
library. Changes to library attributes in the user program that are made after the user 
program is linked to the library are ignored by the MCP. 

4.2 Type Matching 

Library procedural entry points can be either typed or untyped. Type matching is performed 
on the entry point during the library linkage. If the description in the template does not 
match the description in the directory the linkage is not made and the referencing program 
is DSed. Matching includes several factors: the procedure type, the number of parameters, 
the parameter types, and how the procedure and parameters are provided. The provision of 
the procedure and parameters can be by value, by reference, or by name. 

If a library declares a parameter to be provided by name, the user of the library can pass 
the parameter by name, by reference, or by value. If the library declares the parameter to 
be passed by reference, then the user can pass it by reference or by value. If the 
parameter is declared by value in the library, it can only be passed by value from the user 
of the 1 ibrary . 

ALGOL generally passes and expects parameters by name or by value; strings, arrays, and 
formal procedures are passed by reference. COBOL, FORTRAN, and PL/I pass parameters by 
reference unless specified otherwise. 

4.3 Parameter Passing 

A formal parameter array in ALGOL that is declared using the *[*]' lower bound construct is 
actually passed as two parameters: the array and the lower bound of the array as an integer 
parameter. COBOL (when it is declared as 'with lower bounds') and FORTRAN also pass array 
parameters in this fashion. Note that, for ALGOL there is an identical relationship between 
passing an array with '[*]' lower bounds and passing two parameters: an array row with 
constant (for example '[0]') lower bounds and an integer by value. 

For multi-dimensioned (ALGOL and COBOL) arrays, if any lower bound is an asterisk, then all 
the lower bounds are passed, one integer for each bound. All FORTRAN arrays (regardless of 
the number of dimensions) are passed as an ALGOL single dimension array, with a lower bound. 

5. LIBRARIES IN ALGOL 

ALGOL supports the full library facility, including the feature of creating a library which 
provides dynamic entry point linkages. 

5.1 Creating Libraries 

There are two constructs in ALGOL for creating libraries - The <export declaration> and the 
(freeze statement;.: 

<export declaration) 

|< . I 

— EXPORT (procedure id> | 

|- AS — <ebcdic string>-| 

The (export declaration) declares procedures to be entry points in the library. All 
(procedure id>s must be declared before the (export declaration) and must be in the same 
block as the (export declaration). 

The (ebcdic string) in the AS clause cannot contain any leading, trailing, or embedded 
blanks and must be a (valid identifier). The AS clause specifies the name that will be given 
for this procedure in the library directory built from this declaration. 
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If the EXPORTed procedure is declared in a <library entry point declaration then the 
exported procedure is provided indirectly. 

If the exported procedure is to be provided dynamically, then the exported procedure i s^ 
declared as follows: 

<dynamic procedure declaration> 

— <procedure heading> — ; > 

>- BY CALLING — <se lection procedure id> | 

<selection procedure id> 

— <procedure i d> | 



The (dynamic procedure declaration> declares a procedure which is to be EXPORTed 
dynamically. The dynamic procedure cannot be declared forward and cannot be a 
separately-compiled procedure. It cannot be referenced directly in the library program 
dec laring it. 

The (selection procedure id> must be untyped, with two parameters. The first parameter must 
be a call-by-value EBCDIC string. The second parameter must be a formally specified untyped 
procedure with one parameter which is a task. When the MCP invokes this selection procedure 
the task variable passed to its procedure parameter must already be associated with a 
library which has been PROCESSed using this task variable. 

<freeze statement) 

— FREEZE — ( PERMANENT ) 1 

j- TEMPORARY -j 

When executed, the <freeze statement) changes the running program into a library. There must 
be at least one export declaration in the same block as the (freeze statement). Those 
procedures affected by a <freeze statement) are the procedures which appear in export* 
declarations in the same block as the <freeze statement). 

If TEMPORARY is specified, the library created by the <freeze statement) exists only as long 
as at least one user is referencing it. If no users are referencing the library, it resumes 
execution following the (freeze statement). If PERMANENT is specified, the created library 
stack exists no matter how few users reference it. 
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Example showing 'Direct' library linkage: 



BEGIN 




ARRAY MSG[0: 120] ; 


INTEGER PROCEDURE FACT(N) ; 


INTEGER N; 


BEGIN 


IF N LSS 1 


THEN FACT := 1 


ELSE FACT := N * FACT(N - 1); 


END; % OF FACT. 


PROCEDURE DATEANDT I ME ( TOARRAY , WHERE ) ; 


ARRAY TOARRAY [ * ] ; 


INTEGER WHERE; 


BEGIN 


REAL T; 


POINTER PTR; 


T := TIME(7) ; 


PTR := POINTER (TOARRAY, 8) + WHERE; 


CASE T. [5:6] OF 


BEGIN 





REPLACE PTR: PTR BY "SUNDAY, " 


1 


REPLACE PTR: PTR BY "MONDAY, " 


2 


REPLACE PTR: PTR BY "TUESDAY, 


3 


REPLACE PTR: PTR BY "WEDNESDAY 


4 


REPLACE PTR: PTR BY "THURSDAY, 


5 


REPLACE PTR: PTR BY "FRIDAY, " 


6 


REPLACE PTR: PTR BY "SATURDAY, 


END; 


REPLACE PTR BY T.[35:6] FOR 2 DIGITS, 


T. [29:6] FOR 2 DIGITS, 


T. [47: 12] FOR 4 DIGITS, 


T. [23:6] FOR 2 DIGITS, 


T. [17:6] FOR 2 DIGITS, 


T. [11 :6] FOR 2 DIGITS; 


END; % OF DATEANDT I ME. 


EXPORT FACT, DATEANDT I ME AS "DAYTIME"; 


REPLACE POINTER (MSG, 8) BY 


" - SAMPLE LIBRARY STARTED", 


" " FOR 94; 


DATEANDTIME(MSG, 60); 


DISPLAY(MSG); 


FREEZE (TEMPORARY) ; 


REPLACE POINTER (MSG, 8)+ 19 BY "ENDED 


DATEANDT I ME (MSG, 60); 


DISPLAY( 
MD. 


MSG); 



Example showing 'Dynamic' and 'Indirect' library linkage: 

BEGIN 

TASK LIB1TASK, LIB2TASK; 

LIBRARY SAMLIB(TITLE= "OBJECT/SAMPLE/LIBRARY."); 
INTEGER PROCEDURE FACT(N) ; INTEGER N; LIBRARY SAMLIB; 
PROCEDURE DYNL I B 1 ; 

% LIBRARY PROVIDED DYNAMICALLY AND INDIRECTLY 
BEGIN % PRINTS DATE WITH TIME. 

PROCEDURE DAYTIME (TOARRAY, WHERE) ; 
ARRAY TOARRAY[«] ; 
INTEGER WHERE; 

LIBRARY SAMLIB; 
EXPORT DAYTIME; 
FREEZE (TEMPORARY) ; 
END; % OF DYNLIBI . 
PROCEDURE DYNLIB2; 
% LIBRARY PROVIDED DYNAMICALLY 

BEGIN % PRINTS DATE WITHOUT TIME. 

PROCEDURE DAYT I ME ( TOARRAY , WHERE ) ; 
ARRAY TOARRAY[*] ; 
INTEGER WHERE; 
BEGIN 

REAL T; 

T := TIME(7) ; 

REPLACE POINTER (TOARRAY, 8) + WHERE 
BY T.[35:6] FOR 2 DIGITS, "-" , 
T.[29:6] FOR 2 DIGITS, "-", 
T. [47: 12] FOR 4 DIGITS; 
END; % OF DAYTIME. 
EXPORT DAYTIME; 
FREEZE (TEMPORARY) ; 
END; % OF DYNLIB2; 
% THE SELECTION PROCEDURE. 

PROCEDURE THESELECTIONPROC(LIBPARSTR, NAMINGPROC) ; 
VALUE LIBPARSTR; 
STRING LIBPARSTR; 
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Since COBOL data is global to the COBOL program and of course global to the entry p 
since the parameters must be kept global, it is necessary that use of the COBOL 1 
restricted to one user at a time. This restriction imposed upon shared COBOL libr 
maintained entirely by compiler code with a lock. Although this is automatic and 
to the COBOL programmer, it should be noted that sharing of COBOL libraries is 
serial, that is the next user must wait upon the previous user before he is allowed 
the library entry point. This lock upon the library also disallows a user of a lib 
recursively or cyclically calling the library since he would be in a dead lock 
waiting for the release of the lock which he himself holds. If a user attempts a 
or cyclical call upon a COBOL library with SSHARING = SHAREDBYALL, the library wi 1 
user. 

6.1 Creating Libraries 



oint, and 

brary be 

ar i es is 

invisible 

strictly 

to enter 

rary from 

s i tuat ion 

recur s i ve 

1 DS that 



The creation of a library in COBOL is completely automatic. All COBOL programs which are 
compiled at level two and which do not declare any parameters which are illegal for 
libraries are automatically made capable of being a library. If the 'Using' clause of the 
Procedure Division declares a parameter which cannot be used in a library, the program is 
not made callable as a library. Other than this, all level two programs are capable of 
being called as a library. If O-hp COBOL prog ram contains a ' Progra auOAsWc ommen t . the first 
.word of this comment is us ed as the n ame of tne li brary entry point . If "no V i oui am-lrt *> 
coMffleHt appears, Hie n attic 1 Ut rfrg ' elU r y point is PkULBPURfcUl VISIUHI . — ■ 

To exit from a COBOL library and return to the calling program an 'Exit Program' statement 
must be used. If a COBOL library attempts to do a 'Stop Run' the user is DSed for 
attempting to have the library terminate prematurely. 



Data names that are parameters to a COBOL program cannot be specified with a 
in the DATADIVISION if the COBOL program is to be invoked as a library. 



'VALUE' clause 



6.2 Referencing Libraries 

There is one construct in COBOL for calling libraries 
stat emen t > : 

<call non-numeric literal statement) 

— CALL — " — <procedure id> IN 

- OF 



The <call non-numeric literal 



— < 1 ibrary id>- 



USING <data-name> — 



GIVING — <data-name>- 



The contents of the non-numeric literal are interpreted as follows: 

1) The <procedure id> is the name of the procedural entry point. In COBOL this 
would be the Procedure Division with the name PROCEDUREDIVISION In other 
languages, such as ALGOL, this would be the procedure name. 

2) The <library id> would be the name of the library to be called. This can be a 
file name comprised of letters, numbers, hyphens and underscores and separated 
by slashes. This name (if it does not contain slashes, otherwise the last name 
following a slash) is used as the INTNAME of the library. This name, including 
slashes, is also used as the TITLE of the library. 

The 'USING' clause identifies the parameters that are being passed to the library procedure. 

The 'GIVING' clause specifies the destination for the value (of type INTEGER) that is 
returned from the procedure. ' l ,s 

6.3 Changing Attributes of Libraries 

There is one construct in COBOL for changing attributes of libraries - The <change attribute 
of non-numeric literal statement): s mniuuie 

<change attribute of non-numeric literal statement) 

— CHANGE ATTRIBUTE — <1 ibrary attribute) OF " > 

I- IN -| 

>-<l ibrary id> — " — TO <identifier> | 

I -< 1 i t eral > 
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<1 i brary a t t r i but e> 

INTNAME 

TITLE 

LIBPARAMETER 



The <library id> in the non-numeric literal coincides with the <library id> in the <call 
non-numeric literal statement> above and will be used in the same manner. 

The <identifier> must be an alphanumeric Display data-item. The <literal> must be a 
non-numeric literal. 

6.4 Dollar Options for Libraries 

A Library, when created by the COBOL compiler, can be specified to be Permanent or Temporary 
through the following compiler dollar option: 

TEMPORARY 

If set the library will be temporary and remain until there is no user 
referencing the library. If reset, as is the default, the library will remain 
unt i 1 it is DSed . 

Ex amp 1 e : 



6.5 



7. 



$SET TEMPORARY 
IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING- STORAGE SECTION. 
01 DATIME. 

03 MSG PIC X(17) VALUE " 13 FACTORIAL IS ". 
03 AMT PIC 9(12) . 
03 SEP PIC X(ll) VALUE " 
03 DAT PIC X(81) . 
77 NUM PIC 9(2) COMP VALUE 13. 
01 RA COMP WITH LOWER-BOUNDS. 

03 RAS PIC 9(6) COMP OCCURS 13 . 
77 WH PIC 9 COMP VALUE 0. 
PROCEDURE DIVISION. 
PI . 

CHANGE ATTRIBUTE LIBPARAMETER OF 

"OBJECT/SAMPLE/DYNAMICLIB" TO "WITH TIME" 
CALL "FACT OF OBJECT/SAMPLE/DYNAMICLIB" 

USING NUM GIVING AMT. 
CALL "DAYTIME IN OBJECT/SAMPLE/DYNAMICLIB" 

USING RA, WH. 
MOVE RA TO DAT. 
DISPLAY DATIME. 
STOP RUN. 



Entry Points and their Parameters 
COBOL Parameter 



Comp, 77 




Int e 


Comp , 1 




Real 


Comp-4, 77 




Real 


Comp-5, 7 7 




Doub 


Comp-1 , 7 7 


single 


Inte 


Comp-1, 7 7 


doub 1 e 


Doub 


Pic X, 7 7 




Ebcd 


Comp-2, 01 


no occurs 


Hex 


Comp-2, 01 


occurs 


Hex 


ASCII, 01 no occurs 


ASCI 


ASCII, 01 occurs 


ASCI 


Di spl ay , 01 


no occurs 


Ebcd 


Display, 01 


occurs 


Ebcd 


Transac t i on 


record 


Tran 


Transac t i on 


record array 


Tran 



Corresponding ALGOL Parameter 



ger var iabl e 

array [*] 

var iabl e 
1 e var i abl e 
ger var i abl e 
1 e var i abl e 
ic s t r ing var i abl e 
character array [0] 
character array [0,0] 
I character array [0] 
I character array [0,0] 
ic character array [0] 
ic character array [0,0] 
sac t ion record 
saction record array [0] 



LIBRARIES IN COBOL74 



COBOL74 supports the entire library facility that COBOL supports in addition to some special 
features for the ANSI74 Inter-Program Communication facility. C0BOL74 also differs from 
COBOL in the allowable parameter types for libraries (see above). 



MARK 3. 1 



B- 10 



7.1 Creating Libraries 

As with COBOL, libraries in COBOL74 are automatically created for all level two COBOL74 
programs which do no£ declare any parameters disajlowed for libraries. The single entry 



point is the Procedure Division 
PROCEDURED I V I S I ON . 

7.2 Referencing Libraries 



i t 



is for COBOL, with the entry point name of 



There are two constructs in COBOL74 related to calling libraries 
non-numeric-literal or data-name statement) and the <cancel statement): 

<call non-numeric-literal or data-name statement) 

— CALL " — <library id> — " > 

I -<dat a-name> | 

>- 

I <_ 
USING <data-name> — 



The 



<cal 1 




OVERFLOW — < impera t i ve statement}- 



ON 



The <call non-numeric-literal or data-name statement) in COBOL74 is quite similar to the 
<call statement) in COBOL, except the ^procedure id> OF/IN' is omitted from the non-numeric 
literal and the 'ON OVERFLOW <imperative statement)' optional clause is allowed. 

The optional clause 'ON OVERFLOW <imperat i ve statement)' is included for the ANSI74 IPC 
facility specifications, but has no effect upon the execution of a program. 

JJu^UjLe, of the non-numeric literal in. the ^» 1 1 M ?t emen t s i * f.,n C t i »n. i i v >i,. 



Jj Uafcd, PROCF^VKl7P . IY JL5ULfit^ The contents of the <data-name> is used the same as the < library 
<cancel statement) 

— CANCEL " — <library id> — 

I -<data-name> 






The <cancel statement) is used to cancel a library, that is to say if there are no more 
users of the library the library will go to ' end-of-task' . Of course, this naturally will 
occur for temporary libraries, but also this allows a user to cancel a Permanent library 
The <library id> is again used the same as in the <call statement). Furthermore, the 
contents of the <data-name> will be used in the same manner as is the <library id). 

7.3 Changing Attributes of Libraries 

Changing attributes of libraries in COBOL74 is exactly the same as changing attributes of 
libraries in COBOL. ANSI74 IPC library calls cannot be referenced by a CHANGE statement 
however. IPC libraries cannot have their attributes changed. 

Ex amp 1 e : 

IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING- STORAGE SECTION. 
01 PARAM PIC 9(21) COMP . 
PROCEDURE DIVISION. 
PI . 

CHANGE ATTRIBUTE TITLE OF "OBJECT/A/COBOL/LIB" 
TO "OBJECT/ANOTHER/COBOL/LIB". 

CALL "PROCEDUREDIVISION OF OBJECT/ A/COBOL/ LIB" 
USING PARAM. 

* NOTE: THE ABOVE CALL REFERENCES "OBJECT/ANOTHER/COBOL/LIB" 

* WHEREAS THE FOLLOWING WILL REFERENCE 

* "OBJECT/A/COBOL/LIB" . 

CALL "OBJECT/A/COBOL/LIB" USING PARAM. 
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CANCEL "OBJECT/A/COBOL/LIB" 
STOP RUN. 



7.4 Entry Points and their Parameters 

COBOL74 Parameter Corresponding ALGOL Parameter 

Comp, 01 Hex character array [0] 

*ASGMt— 6-1 ASCH -c*in--*«-t.ex_aj:xay 4^4- 

Display, 01 Ebcdic character array [0] 

Transaction record Transaction record 

Transaction record array Transaction record array [0] 

8. LIBRARIES IN FORTRAN 

Libraries may be created with or called frou FORTRAN programs. A new non-executable program 
unit, the BLOCK GLOBALS subprogram, has been implemented for global declarations associated 
with 1 ibrar i es . 

8.1 BLOCK GLOBALS Subprogram 

A BLOCK GLOBALS Subprogram is used for declaring libraries, export lists, and files. Only 
one BLOCK GLOBALS subprogram is allowed in a FORTRAN program and it must occur after any old 
style FILE declarations (appendix B of the FORTRAN Manual) and must precede all other 
FORTRAN source statements. 

The BLOCK GLOBALS subprogram is initiated by a BLOCK GLOBALS statement and terminated by an 
END statement. The only statements which are allowed in this subprogram are LIBRARY 
statements, EXPORT statements, and FILE statements. 

Files may be declared in the BLOCK GLOBALS subprogram by use of the non-executable FILE 
stat ement . 

<f i 1 e s t at ement > 

— FILE — <file designator> — ( > 

> <file attribute> — = <expression> ) | 

I -<mnemon i c> 

-<boolean file attribute> 



The <file designator is an unsigned integer from 1 to 99. The <file attributo is a valid 
file attribute identifier as listed in the I/O Subsystem Reference Manual. The <expression> 
or <mnemonic> must be a valid value for the attribute identifier. The <boolean> is a file 
attribute identifier of type Boolean. 

The second form of the file attribute assignment results in the value of TRUE being assigned 
to the file attribute identifier indicated. 

8.2 Creating Libraries 

There are two constructs in FORTRAN for creating libraries: the EXPORT statement and the 
CALL FREEZE statement. 

The non-executable EXPORT statement is used to specify which subroutines and functions are 
to be provided as entry points to the library upon execution of the CALL FREEZE statement. 
EXPORT statements must appear in the BLOCK GLOBALS subprogram. 

< export stat ement > 

|< . I 

— EXPORT < -jubprogr ara> | 

I -<subprogram> — = — <string>-| 

The <subprogram> name is an entry point designator and the string indicates the name by 
which the subprogram is to be known to users of the library. 

The executable statement CALL FREEZE changes the running program into a library stack. 

(freeze stat ement > 

— CALL FREEZE — ( TEMPORARY ) 1 

- PERMANENT - 
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If TEMPORARY is specified, the library stack exists only as long as at least one user is 
referencing it. If PERMANENT is specified, the library stack continues to exist even if no 
users are referencing it. 

The following is an example of a FORTRAN program which creates a library. 

S SHARING = PRIVATE 
BLOCK OLOBALS 

FILE 6(KIND=PRINTER) 
EXPORT SINE="SIN", COSINE 
END 

REAL FUNCTION SINE(X) 
C« PERFORM SINE CALCULATION. . . 

SINE=X 
END 

REAL FUNCTION COSINE(X) 
C* PERFORM COSINE CALCULATION. . . 
COSINE=X 
END 
C* MAIN PROGRAM 

WRITE(6,/)SINE(X) ,COSINE(X) 
CALL FREEZE (TEMPORARY) 
END 

8.3 Referencing Libraries 

There are two constructs in FORTRAN for calling libraries: the LIBRARY statement and the IN 
LIBRARY statement. 



All libraries used by a program must be declared 
must appear in the BLOCK GLOBALS subprogram. 

<library statement) 

— LIBRARY — <library id> 

> 

I < ) 

( /i\_ TITLE = — <string> 

-/1\- INTNAME = — <string> 

-/1\- LIBPARAMETER = — <string>- 



in a LIBRARY statement. LIBRARY statements 



) - 



Specification of the attributes is optional; by default the name being declared is used for 
TITLE and INTNAME. If the INTNAME is given, but the TITLE is not, the string given for the 
INTNAME will be used for the TITLE. 

The IN LIBRARY statement is used to indicate that a subprogram is to be found in a library. 

<in library statement) 

— IN LIBRARY — <library id> > 



i 



( ACTUALNAME 



— <string> — ) 



The <library id> name is declared in the BLOCK GLOBALS subprogram. The <string> 
the actual name of the subprogram in the library. 



indicates 



The only statements which are allowed in a subprogram which contains an IN LIBRARY statement 
are type statements and DIMENSION statements. These must specify type and dimensionality of 
the subprogram's parameters. 

8.4 Changing Attributes of Libraries 

Library attributes may be changed before the library is accessed by use of the CHANGE 
statement. For example: 

REAL A(4)/"LIBRARY/ONE."/ 
CHANGE(LIB1 ,TITLE=A) 

The following is an example of a FORTRAN program which uses the two functions created by the 
above example and a subroutine which is in another library. 

BLOCK GLOBALS 

» FILE 5(KIND=REMOTE) 
FILE 6(KIND=PRINTER) 
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LIBRARY LIB1 (TITLE="MATHINTRINSICS" , 
* INTNAME="MATHTNTRINSICS") 

LIBRARY LIB2 
END 
REAL FUNCTION SIN(X) 

REAL X 

IN LIBRARY LIB1 
END 
REAL FUNCTION COS(X) 

REAL X 

IN LIBRARY LIB 1 (ACTUALNAME= "COSINE") 
END 
SUBROUTINE SUB 

IN LIBRARY LIB2 
END 
C* MAIN PROGRAM 

READ(3,/)X 

WRITE(6,/)SIN(X),COS(X) 

CALL SUB 
END 

8.3 Entry points and their Parameters 

FORTRAN Parameter Corresponding ALGOL Parameter 

Integer Integer variable 

Real Real variable 

Logical Boolean variable 

Double precision Double variable 

Complex Complex variable 

Integer array Integer array [•] 

Real array Real array [•] 

Logical array Boolean array [*] 

Double precision array Double array [*] 

Complex array Complex array [*J 

9. LIBRARIES IN PL/I 

Libraries may be created with or called from PL/I programs. There are some limitations on 
parameter and entry point types, and all libraries written in PL/I must be PRIVATE. 

9.1 Creating Libraries 

The <opt i on-l i s t > of the main (i.e., outer block) <proccdurc-s tat ement> is extended to 
include the <expor t-opt ion> . The <expor t-opt ion> specifies which entry points the library 
is making available to programs which reference it. Its syntax is the following: 

<expor t-opt ion> 

|< , I 

— EXPORT — ( <procedure id> > 

|- AS — <char-s t r ing>- | 

>_ ) 1 

Ex amp 1 e : 

PROGRAM: PROCEDURE OPTIONS (MAIN, EXPORT (PI, P2 AS 'X')); 

The <procedure id>s and <char-s t r i ng>s must be constants. Procedure or entry names may be 
used. In the above example, PI and P2 might be the following: 

PI : PROCEDURE . . . . ; 
P2 : ENTRY ; 



The procedures and entries being exported must be declared in the outer block. 

In order to become a library at run-time, a program must become "frozen". The method for 
doing this in PL/I is the execution of a FREEZE statement. Its syntax is the following: 

< freeze statement) 

— FREEZE OPTIONS — ( PERMANENT ) — ; | 

I- TEMPORARY -I 

The FREEZE statement must occur in the outer block of the program. 
9.2 Referencing Libraries 
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Calling libraries is accomplished by declaring < 1 i brary-name>s and specifying which 
<procedure id>s within the program reference a given library. Library declaration, which 
must be explicit, is done by using the <library attribute> in a declaration. The syntax is 
the fol lowi ng : 

< I ibrary at t r i but e> 

— LIBRARY | 

|- ( — <library attribute list> — ) -| 

clibrary attribute list> 

!« . , 

-/1\- INTNAME = <char-string> 

-/1\- TITLE = <char-s t r i ng> 

-/1\- LIBPARAMETER = <char-s t r i ng> 



The TITLE, INTNAME and LIBPARAMETER attributes are as they are in the other languages The 
<char-stnng>s must be constants. Specification of these attributes is optional- bv default 
the name being declared is used for TITLE and INTNAME. If the INTNAME is giveA but the 
TITLE is not, the string given for the INTNAME will be used for the TITLE. 

Association of an entry point name with a library is accomplished with the <opt i ons-1 i s t > 
added to <entry point dec 1 ara t i on>s . The syntax is the following: 



<entry point options list> 



I < 

I « 

OPTIONS — ( /*1\- LIBRARY = <1 ibrary id> - 



|-/1\- ACTUALNAME = <char-s t r i ng> 
>_ ) 



FNTR? h ?™«£!^ / K h ,nclud /? LIBRARY or ACTUALNAME will imply the attributes of 

ENTRY and CONSTANT for the name being declared. These attributes are mutually exclusive 
with file attributes, the use of which implies that a file is being declared. Thfe library 
must be named; the actualname is optional, the declared identifier being used by default 



Ex amp 1 e : 

DECLARE LIB1 LIBRARY 

(TITLE = •MATH/LIBRARY'); 

DECLARE MY LIBRARY LIBRARY 

( INTNAME = ' YOUR_L IBRARY' ) ; 

DECLARE DO_THIS ENTRY (BINARY FIXED, CHAR(*)) 
RETURNS (CHARACTER(IOO) VARYING) 
OPTIONS (LIBRARY = MY_LIBRARY, 

ACTUALNAME = , DO_THAT*) ; 

In this example, calling the entry DO_THIS from the PL/I program would result in the MCP 
linking the program to a library called YOUR_LIBRARY with an entry point called DOJTHAT. 

.3 Changing Attributes of Libraries 

file'lid'u!" m ay also be set and tested dynamically using a syntax similar to that for 
<library attribute reference) 

— <library attribute) — ( — <library id> — ) I 



The values given for these attributes are subject to some constraints: 

U nM e pIAJML mUSt b - f ? Va ' id f ' le 'If' 6 as J ud «ed by the system; *, (usercode) and 
ON PACKNAME specifications are allowed. 

2) The INTNAME must be a single identifier. 

3) The LIBPARAMETER may be any string and is limited only by the conventions of the 
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par t i cul ar 1 ibrary . 

9.4 Entry Points and their Parameters 

The following attributes may be g 

PL/ I Parameter 

Eli nary f i xed(p, q) , 

. . .q = 0, p <= 39 

. . .q = 0, 39 < p <= 78 

. . . q neq 0, p <= 39 

. . .q neq 0, 39 < p <= 78 

Decimal Fixed(p, q), 
.q = 0, p <= 11 
.q = 0, 11 < p <= 23 
. q neq 0, p <= 11 
. q neq 0, 11 < p <= 23 



El 



nary Fl oat (p) , 

.p <= 39 

.39 < p <= 78 



Decimal Float (p) 

. . .p <= 11 

.. .11 < p <= 23 

Charac ter(n) 
Character(*) 
Character(n) Varying 
character(*) varying 



Bi t(n), 
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iven to return types for library entries: 
Corresponding ALGOL Parameter 



Transaction record 
Transaction record array 



Int eger var i abl e 
unique to PL/I 
unique to PL/I 
unique to PL/I 



Int eger var i abl e 
unique to PL/I 
unique to PL/I 
unique to PL/ I 



Real variable 
Double variable 



Real variable 
Double variable 

Ebcdic string variable 
Ebcdic string variable 
Ebcdic string variable 
Ebcdic string variable 

Boolean variable 

Transaction record 
Transaction record array [*] 



TRANSACTION 

PROCESSING 

SYSTEM 
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I. TRANSACTION PROCESSING SYSTEM: AN OVERVIEW 

1 . Mo t i vat i on 

Several considerations have motivated the design and development of the Transaction 
Processing System (or "System"). 

On-line applications 

Data management applications are moving towards transaction oriented systems which have 
high volume online update via video terminals. This trend is becoming increasingly 
important because of the great user demand. 

It is difficult to solve the recovery problems of an online system while maintaining 

efficiency. DMS II recovery backs out a certain number of transactions from the data 

base. These must be resubmitted before new input is accepted, and, for most 

applications, must be reprocessed in such a way that the previous results are 

reproduced. Due to multiprogramming, it is not immediately apparent how to achieve 

this reproducibility. Reproducibility must be designed into the system from the 
beg i nn i ng . 

Unlike batch systems, online systems must save a history of the input data. If data 
base recovery fails because of irrecoverable I/O errors on the DMS II audit trail or 
for any other reason, the data base must be reloaded and the input rerun. This is the 
user's ultimate disaster mode backup. If this procedure is resorted to and fails, 
information is lost. 

Isolate data base code 

lit is desirable to isolate user application programs from changes in the structure of 
the DMS II data base without sacrificing efficiency. Remaps are not sufficient for 
this isolation. What is needed is a way to factor out all the code which has knowledge 
of the data base into one module. 

Minimize application code 

It is highly desirable to minimize what the user has to write in order to bring up his 
application. The user should only have to describe what is unique about his 
application from other applications. The rest of the software should be supplied by 
Burroughs . 

Shared Resource systems 

lit is impractical to attempt to implement the current DMS II architecture across shared 
resources systems; the volume of communication between two systems necessary to support 
the current architecture is prohibitive. Also, the fact that shared resources systems 
can be Halt/Loaded independently adds a completely new dimension to the problem. 

Modul ar i ty 

Modularity is essential in any large software system. The critical problems in 

achieving modularity arise in the interfaces. In an update application there are two 

main types of interfaces: the transaction-oriented interface and the data base-oriented 
interface. It must be possible to achieve simple, well-defined, efficient interfaces. 

The System addresses all these considerations. 

2. Overview 

The first step in coming up on the Transaction Processing System (TPS) is to define a 
routine for every update to the data base. Each update routine is written by the user 
to (1) take a transaction record as input, (2) update and/or retrieve information from 
the data base, and (3) produce a transaction record as output. Update routines should 
have no knowledge of anything other than the input and output transaction records and 
the data base. In particular, they should have no knowledge of datacom or files or 
what program is calling them, or the results of previous transactions (except changes 
to the data base) . 

lit is expected that there will be on the order of a few hundred transaction routines, 
most of which are used infrequently. A typical routine is expected to execute about a 
dozen data management operations. The update routines are collected together in one or 
a small number of libraries called the Update Library. The Update Library is never run 
as a program. It is only used as a collection of service routines. 

The formats of the transaction records are logically defined by user in the Transaction 
Format Language (TFL) which is similar to DASDL. TFL source is processed by the TFL 
compiler supplied with the TPS and a description file is produced which describes the 
collection of transaction formats or "transaction base". The host language compilers 
(COBOL, ALGOL, PL/I) obtain information from the description file via the transaction 
base interface program supplied with the TPS. This scheme enables user programs to 
reference the centrally defined data items in transaction records in a way symbolically 
similar to the way they reference data items in DMS II data set workareas. 
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Once all data base update routines have been defined as described above, the next step 
is to convert all update programs to use them instead of updating the data base 
directly. Thus all the data base know! edgabl e code is collected into the Update 
Library. The job of all other update programs becomes: (1) collect input data (from a 
terminal, a file, etc.), (2) assemble a transaction input record from the input data, 
(3) call the appropriate routine in the Update Library, (4) disassemble the transaction 
output record to output the result (to a terminal, a file, the printer, etc.). 

For step (3), the Update Library routine is not called directly, however. The 
Transaction Library supplied with the TPS is called instead. The Transaction Library 
in turn calls the Update Library to perform the transaction and returns the result to 
the user program. Interposing the Transacton Library between the user program and the 
Update Library enables the TPS to save a history of all transaction records and to 
automatically resubmit transactions backed out by DMS II recovery. Another advantage 
of the scheme is that it can be used to make the system on which the data base resides 
transparent to user programs in a loosely coupled environment. 

By following a few simple conventions in coding the Update Library routines, 
reproduction of previous results can be achieved when transactions backed out by DMS II 
recovery are automatically resubmitted by the TPS. Reproducibility can be achieved 
even if the data base was being updated in a mul t i programmed mode. Reproducibility is 
discussed in greater detail in Section V below. Reproduc i bl i t y requires that when any 
updaters are using the TPS, all updaters are. An option is provided to enforce this, 
if desired. Inquiry-only programs and DMS II INQUIRY may, however, be run while the 
TPS is running. 

The TPS can also be used for batch or online data collection of transaction records. 

This is achieved by having the Transaction Library save the input transaction records 
in a transaction journal file but not call the Update Library. The Transacton Library 
can later be called to retrieve the transaction records from the journal. 

One reason the extra processor overhead imposed by the TPS scheme is low is that the 

Transaction Library and Update Library routines are called as procedures on top of the 

user program process stacks (similar to the way DMS II ACCESS ROUTINES and MCP routines 
are called as procedures on top of user program stacks). 

The details of the Transaction Processing System are presented in what follows. 

3 . Def ini t ions 

Transact ion : 

A transaction (from the software point of view) is a unit of processing against a 
single DMS II data base. Transactions are performed by transaction processing 
routines. A transaction may include, but is not to be confused with, a data base 
transaction, which is application code delimited by BEGIN-TRANSACTION and 
END-TRANSACTION. 

Transaction processing routine: 

A transaction processing routine takes a single transaction record as input and 
produces a single transaction record as output. The routine may retrieve data from 
and/or update a DMS II data base. 

Transaction record: 

A transaction record is a structured variable which contains user-defined data items 
and some system-defined control items. The user-defined items are similar to the data 
items in a DMS II data set record or a COBOL 01 level variable. Transaction records 
may be passed as parameters to and from procedures. They may also be read from and 
written to transaction journals. 

Transaction Journal: 

A transaction journal is a sequence of data files similar to a DMS II audit trail, plus 
a control file. It contains transaction records, and is manipulated via 
system-supplied software. When a transaction data file becomes full, the next one in 
sequence is automatically created. 

Transaction Base: 

A Transaction Base is the analog of a data base. It is a collection of user-defined 
transaction formats, journals, subbases, and other information related to processing 
transactions. A Transaction Base is designed for at most one data base. 

Two phase: 

If the first execution phase of a data base transaction only locks records but does not 
free any, and if the second and final execution phase of the transaction frees records 
but does not lock any, and if no records are retrieved without locking them, then the 
transaction is said to be two-phase. 

Host and Remote Systems: 

In a shared resource or BNA environment, the system (processor) which controls the data 
base is considered to be the "host" system; all other systems connected to it are 
"remote" systems. 
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As sump t ions 



The System, in order to achieve the objectives stated above, makes certain assumptions about 
the nature of the user's transactions. 

a) Transactions are relatively "small" units of processing, containing at most one data 
base transaction. This implies that a single transaction is not designed to make 
massive and sweeping changes to a data base. 

b) All input to a transaction processing routine is encoded in a. single transaction 
record; similarly, all output from a transaction processing routine is encoded in a 
single transaction record. 

c) No transaction uses any memory of the results of previous transactions (for example, it 
does not depend upon DMS II SIB paths from previous transactions). It depends only 
upon the state of the data base and its input transaction record; in this sense it 
"depends" upon previous transactions, but has no knowledge of them. 

d) All update transactions are two-phase, or they use programmatic conventions to achieve 

the same result. In addition, they either force a sync point or keep all records 
locked until END-TRANSACTION. They observe certain other requirements established by 
the System. 

e) While the System is in use to update the data base, no conventional update programs may 
run. Conventional inquiry programs may run in parallel with the Transaction System, 
however . 

5. Summary of Features 



The System enables the user to create a central definition of transaction record formats, to 
create and manipulate transaction records, and to manipulate transaction journals. 

The user may initiate a transaction processing routine with an input transaction record, or 
may tank input transaction records into a transaction journal for later processing. 

The System will automatically create an input transaction history and reprocess backed out 
transactions after data base recovery. 

User programs are isolated from changes to the structure of the DMS II data base except for 
the Update Library and TFL. 

Restart coding in user application programs ii s simplified. Programs need not code for abort 
recovery. For Halt/Loads, they merely ask the System for their last completed transaction, 
and reposition their input and output files accordingly. 

The volume of communication between shared resources systems consists of signals carrying 

input and output transaction records. Isolation from record locking, recovery, etc. is 

achieved. Except for speed, the fact that the data base is on another system is transparent 
to the user program. 

Transaction records and transaction journals permit clean, well-defined transaction 
interfaces to be developed, and the Update Library provides a clean, well-defined data base 
inter face . 

Although designed for use with a DMS II data base, the Transaction System may be a 
convenient tool for other applications. Transactions which do not access a data base may 
appear to the System as inquiry-only transactions. Of course, the tanking and journal 
reading functions are totally independent of data bases. 

6. Software 

6.1 Libraries 

The following libraries are components of the Transaction Processing System. 

1) The Update Library contains all the user-written transaction processing routines, 
or controls routing of input transaction records to the proper routines in other 
libraries. The user is responsible for creating and maintaining the Update 
Library, observing certain conventions required by the System. 

2) The Transaction Library is provided by the System, and is tailored for a 
particular Transaction Base during compilation. It contains all the routines 
which are called by user-written application programs to process or tank 
transactions. The Transaction Library calls the Update Library to process each 
transaction, saves the transaction records in a transaction history file, and 
reprocesses them from the history file after DMS II recovery. In a shared 
resources system, the Transaction Library must reside on the host system, where it 
is known as the Host Library. 
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3) The Remote Library is provided for shared resources systems and resides on a 
remote system. The Remote Library has the same entry points as the Host Library 
and appears identical to the user. Application programs running on the remote 
system call the Remote Library instead of the Host Library to process 
transactions. The Remote Library uses ports and signals to communicate with its 
counterpart, the Host Interface. The Host Interface must reside on the host 
system, as it calls the Host Library to process transactions on behalf of the 
remote application program. Except for speed, this technique can make the 
whereabouts of the data base transparent to the application program. 



6 . 2 TFL 

A language called the Transaction Format Language (TFL) is used to define the Transaction 
Base. The TFL source, created and maintained by the Data Base Administrator (DBA) or 
equivalent, is the central definition of all transaction formats, journals and subbases used 
by application programs. 

The TFL processor (SYSTEM/TFL) creates a description file from the TFL source. The 
description file is used to invoke transaction formats in application programs, and to 
compile tailored software. 

6.3 Application Language Interface 

The application languages (ALGOL, COBOL and PL/1) have been extended to support use of the 
Transaction System. Through the use of these extensions, application programs can invoke 
some or all transaction formats defined in a Transaction Base. The application compilers 
recognize a new data type, the TRANSACTION RECORD, which i -i a structured variable similar to 
a DMS II data set work area or a COBOL 01 record. Transaction records can be created in any 
of the invoked formats, and passed as parameters to ai>! from procedures. The host compilers 
invoke and compile references to the Transaction Base bv communicating with an external 
coroutine, SYSTEM/TR INTERFACE. 

6.4 Special DMS Host Syntax 

In order to achieve necessary control over the execution of the data base transaction in the 
Update Library, a few special forms of DMS host syntax have been implemented. These include 
a new variant to the data base OPEN statement, new forms of BEGIN-TRANSACTION and 
END-TRANSACTION, and a new statement, MID-TRANSACTION; they are restricted to the Update 
Library . 

6.5 Utility 

The System provides a Utility program which performs certain functions not appropriate for 
the Transaction Library. These functions include the initial creation of each new 
transaction journal; recovery of journals after some operational mishap; searching journal 
data files for certain transaction records, then printing and/or counting the selected 
records; printing the contents of the journal control file. 

6. 6 Released Fi les 



The following table lists all of the special files that comprise the Transaction System. 



Source Fi 1 e 

SYMBOL/TFL 

S YMBOL/TR I NTERFACE 

TRBASE/UTILITY 

TRBASE/HOSTLIB 

TRBASE/REMOTELIB 

TRBASE/HOSTI NTERFACE 

TRBASE/PROPERTI ES 

(user defined) 



(user defined) 
(journal files) 



Object File 

SYSTEM/TFL 

SYSTEM/TR I NTERFACE 

<base name>/CODE/UTILITY 

<base name>/CODE/HOSTLIB 

<base natne>/CODE/REMOTELIB 

<base name>/CODE/HOSTINTERFACE 

(none) 

<base name>/CODE/UPDATELIB 

Dat a Files 



<base name>/TRDESCRIPTION 

<base name>/< journal name>/CONTROL 

<base name>/<j ournal name>/<file num> 



Note that all files for a particular transaction base (tailored programs , descr ipt ion file, 
journal files) begin with the common directory name <base name>. In addition, all tailored 
programs begin with <base name>/CODE. 



7 . Reproduc ibi 1 i ty 
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Reproducibility during reprocessing is achieved by assuring that each data base transaction 
is independent of all others at a particular point during its execution; that is, it depends 
only upon the state of the data base. At that point the input transaction record, is saved 
in the history file. Serial processing of the transactions in the order that they occur in 
the history file is equivalent to the parallel processing of the original transactions. It 
can be shown that each transaction, whether in parallel or equivalent serial mode, is 
dependent only upon the state of the data base, and that state is identical for the 
transaction in either mode. If all transactions are two-phase, or the equivalent, then 
there is such a point of independence. This is sufficient for reproducibility during 
reprocessing after a Halt/Load. 

While necessary, two-phase is not sufficient for abort recovery. It must be assumed that 
any transaction which was completed successfully before rerun will be successful during 
rerun mode. Since no attempt will be made to reprocess a transaction which has caused an 
abort, no completed transaction may depend upon any changes made by a transaction which may 
ultimately abort. This requires that all data base transactions must either (1) wait for a 
sync point or equivalent (or force a sync point), or (2) free no records, but allow 
END-TRANSACTION to free all records. Condition (1) implies that no transaction will finish 
while other transactions are active; condition (2) means that no transaction will start 
while another, upon which it depends, can yet cause an abort. Condition (1) is > s not 
recommended, since it is likely to interfere with performance. Also, there is no way at the 
present to "wait for a sync point" without actually forcing one. Condition (2) is easy to 
observe, and it only affects transactions which are actually dependent upon others. 

8. Using the Transaction System 




There are at least four kinds of users of the Transaction System (they could be a single 
individual). Each of these users must be familiar with the basic characteristics of the 
System, although perhaps to differing degrees. 

The first is the Data Base Administrator (DBA), or someone like him, who is responsible for 
the overall design and maintenance of the System. He must be completely familiar with the 
data base and all of the transactions which are to access the data base. He must understand 
how the System works, including questions of recovery and reproducibility. He must 
co-ordinate the efforts of the other users of the System. 

The second is the programmer of the Update Library, who implements some or all of the 
transaction processing routines. Like the DBA, he must be familiar with the data base and 
the requirements of each of the transactions he implements; he may not be familiar with ALL 
transactions. He must understand how to design a data base transaction so that it observes 
conventions and requirements established by the System. 

The third is the application programmer, who must write the programs which cause the System 
to perform desired work. He need not know anything about the data base, but must understand 
the input and output requirements, including transaction record formats, of each of the 
transactions he wishes to initiate. He must be familiar with all of the entry points in the 
Transaction Library, since those procedures are the tools he must use. 

The fourth might be someone who runs an application program, particularly one of possibly 
several terminal users when the application program is interactive. He must understand the 
requirements of the program he is running, although a well-designed interactive program will 
prompt the user whenever necessary. 

In order to begin using the Transaction System, the DBA must have some idea of the major 
applications which are to access the data base. The transaction processing routines, 
together with their input and output transaction record formats, must be defined. A 
Transaction Base, which contains the symbolic definitions of all transaction record formats, 
must be designed and processed with SYSTEM/TFL. The Transaction Library, which is tailored 
for a particular Transaction Base, must be compiled. If necessary, a Remote Library must 
also be compiled. All of the transaction processing routines, which reside in the Update 
Library, must be designed, implemented, and compiled (or bound) together to form the Update 
Library . 
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II. TRANSACTION FORMAT DESCRIPTION LANGUAGE (TFL) 



1. TFL Syntax and Semantics 

TFL is a language which is used to define transaction record formats and other properties of 
a transaction base. It is similar in several respects to the DASDL language, which is used, 
among other things, to define the formats of data set records. 

The TFL Processor creates a transaction base description file from the TFL source definition 
of a transaction base. This description file is used to invoke the transaction base in 
application programs, and to compile tailored transaction software. 

2. Transaction Base 



transaction base> represents the complete definition of a transaction base. It consists of 
several components which are described in later sections of this document. 

.(transaction base> 



|- UPDATE — ; _| 
>-<base name> — TRANSACTION BASE 



l<- 



— /l\-<paramet ers statement}- 

I 

| -/l\-<defaul t s statement) 



> (transaction format> — 

-< t ransac t i on subbase>- 
-< t ransac t i on journal>- 



<base name> 

— <simple identifier;. 



UPDATE 

If present, UPDATE instructs the TFL Processor to update a previous description file 
with the current input. 

<base name> TRANSACTION BASE 

<base name> is the name of the new transaction base. It consists of at most 17 letters 
and digits, beginning with a letter. The description file created from this definition 
will be titled <base name>/TRDESCRIPTION. 

(parameters statement} 

specifies the values of global properties of the transaction base. 

(defaults statement} 

specifies defaults to be used in the absence of required information. 

(transaction format> 

defines the format of a single transaction record. There may be at most 1023 
(transaction format>s in a (transaction base>. 

(transaction subbase> 

a list of transaction formats to be invoked together. There may be at most 1023 
(transaction subbase>s in a (transaction base>. 

(transaction journal} 

defines the properties of a transaction journal. 

(s imple ident i f i er> 

a sequence of at most 17 alphanumeric characters, beginning with a letter. 
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3. Parameters Statement 



<parameters statement) specifies the values of global properties of the transaction base. 

(parameters statement) 



— PARAMETERS — ( (parameter spec> ) 



(parameter speo 

(boolean parameter>- 

SET — 
RESET 
-(numeric parameter) — = — (numeric literal>- 

-/l\-(data base parameter) 

-/l\-(res tart data set parameter) 

-/l\-(host system parameter) 



(data base parameter) 
— DATABASE 




(data base name>- 



|- ON — (family name)-| 



(restart data set parameter) 

— RESTARTDATASET — = — (restart data set name>- 



(host system parameter) 

— HOSTSYSTEM — = — (host system name>- 



(boolean parameter) 

may be SET or RESET; if neither is specified, SET is assumed. The following boolean 
parameters may be used: 

STATISTICS . 

When set, STATISTICS causes the Transaction Library to gather statistics concerning the 
operation of the system. A report summarizing these statistics is produced on a 
printer file when the last user calls CLOSETRBASE. 

(numeric parameter) 

may be given a numeric value. The following numeric parameters may be used: 

(none yet specified) 

(data base parameter) 

During its initialization the Transaction Library must access the data base contro 
file; the (data base parameter) gives the data base name, and where to find the control 
file. If not specified, data base-related code will be omitted from the Transaction 
Library. The (family name) is the family on which the data base control file resides; 
if not given, DISK is assumed. The (usercode> is the usercode of the data base control 
file; if not given, no user code is assumed. 

(restart data set parameter) . 

the (restart data set name> must be given so that the Transaction Library can invoice 
that data set. 
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<host system parameter) 

the <host system name> must be given if a remote version of the Transaction Library is 
to be compiled, since the remote system must know what system to communicate with. By 
definition, the system which contains the data base is the host system. 



MARK 3. 1 



Defaults Statement 



<defaults statement> specifies defaults to be used in the absence of required information. 

<defaults statement) 

|< , I 

— DEFAULTS — ( — — / !\-<cont rol file attributes) ) | 

-/l\-<data file attributes) 

-/l\-<item defaults> 



<i t em def aul t s> 

| < 

I 
/1\- ALPHA — 

-/1\- BOOLEAN 
-/1\- NUMBER - 
-/1\- REAL 



( — <initial value option) — ) 



< i tern defaul t s> 

specify particular default initial values to be used for any or all of the four data 
types. These initial values will be used in lieu of standard default values whenever 
individual initial value specifications are not provided. The standard default initial 
values for items are: 
ALPHA BLANKS 

BOOLEAN FALSE 

NUMBER 

REAL 
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5. Transaction Format 

transaction format> defines the format of a single transaction record, 
transaction format> 

— <format name> FORMAT — <record description> | 

- TRANSACTION - 



<record description> 
— (common part>- 



l<- 



-(subformat part>- 



< common part> 

— <subrecord descr i pt ion>- 



csubformat part> 

— <subformat name> — — (subrecord description^ 



(subrccord description> 

— ( — <item list> — ) 



I 

j- VERIFY — <condition>- 



< i t em 1 i s t > 

l< ; 1 

I I 

(data item>- 



-<group i t em>- | 



I I 



(format name> 

— (simple identifier>- 



(subformat name> 

— (simple identifier>- 



(format name> 

consists of at most 17 letters and digits, beginning with a letter. Each (format name> 
is assigned a unique integer value, which is stored in the Control Part of the 
transaction record (the "TRFORMAT" Control Item). The (format name> may be used in an 
application program, in certain contexts, to refer to this value. 

(record description> 

a (common part> and, optionally, one or more (subformat part>s. There may be at most 
1023 (subformat part>s in a (record desc r i p t i on> . 

(common part> 

represents a portion of a transaction record which contains user data common to all 
transaction records of a given format. 

(subformat part? 

represents a portion of a transaction record which contains user data for that 
subf orma t only. 



1 1 
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<subformat name> 

consists of at most 17 letters and digits, beginning with a letter. Each <subformat 
name> is assigned an integer value, which is stored in the Control Part of the 
transaction record (the "TRSUBFORMAT" Control Item). The <subformat name> may be used 
in an application program, in certain contexts, to refer to this value. 

<subrecord description> 

a list of item descriptions, optionally followed by a verify condition. For any 
transaction record, the applicable verify condition(s) must yield the value TRUE when 
evaluated using the items of that record. Note that there may be no verify condition, 
or one, or two, for any given record. If any condition yields the value FALSE, the 
record is not acceptable. 

1 1 ems 



<group i t em> 

— <group item name> — GROUP — ( — < i t em list> — ) 



I 

|-<occurs option>- 



<da t a i t em> 

<alpha item> 

-<bool ean i t em>- 
-<number i t em> — 

-<rea 1 it em> 

-<f i e Id i t em> 



/l\-<occurs option> 

I -/l\-<ini t ial value option>- 



<a lpha i t em> 

— <alpha item name> — ALPHA — ( — <integer> — ) 



SIZE VARYING 

|- WITH — <numeric item name>- 
SIZE DEPENDING ON — <numeric item name> 



<boo lean it em> 

— <boolean item name>-~ BOOLEAN 



<numbe r i t em> 

--<number item name> — NUMBER 

>- ( <integer> 

|- S -| |- , — <integer>-| 



< r ea 1 it em> 

— <real item name> — REAL 



|_ ( < integer) 

|- S - I I - , — <integer>- 
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<f i e 1 d i t em> 

— <field item name> — FIELD 
>- ( <integer> 

l< i 

I 
/48\ <bit name>- 



BOOLEAN 



< i ii i t i a 1 value opt ion> 
— INITIALVALUE — 



- BLANKS — 
-< 1 i t era 1 >- 



(occurs opt l on> 

— OCCURS — <integer>- 



- TIMES 



DEPENDING ON — <numeric item name>- 



< ... i t em namc> 

— <simple identifieo- 



<group i t em> 

defines the properties of a group item. A group item is an item that contains other 
items. When referenced as an item, a group item behaves like an alpha item of the same 
length. Unlike an alpha item, however, a group item may not have an initial value of 
its own; its initial value is determined from the initial values of its elementary 
items. If a group item has an <occurs option>, then each item within the group 
"inherits" that <occurs option>. 

<al pha i tem> 

defines the properties of an alpha item. An alpha item is a string of <integer> EBCDIC 
characters. Both the "SIZE VARYING" and the "SIZE DEPENDING" options specify data 
compaction. For "SIZE VARYING" , trailing blanks in the alpha item will be eliminated 
prior to writing the record to a transaction data file. If "WITH <numeric item name>" 
is also specified, the number of "significant" characters will be stored by the System 
«n the named item. For "SIZE DEPENDING" , the number of significant characters is the 
value of the given numeric item, or the declared size, whichever is less. It is the 
user program's responsibility to set the numeric item to the proper value. The default 
initial value is BLANKS. 

<boo 1 ean i t em> 

defines the properties of a boolean item. A boolean item is a single 4-bit HEX digit, 
representing only the truth values of TRUE or FALSE. The default initial value is 
FALSE . 

< number i t em> 

defines the properties of a number item. A number item is a string of 4-bit HEX 
digits, representing a numeric value. The maximum size, including sign, is 23 digits. 
If "S" is specified, a sign digit is added; otherwise only the absolute value is 
stored. The first <integer> is the total number of digits stored. The second 
<integer>, if present, is the scale factor. The default initial value is zero. 



<rea 1 i t em> 

defines the properties of a real 

value in one of two forms. 

internal binary floating point. 

specified, the sign is mainta 

first <integer> represents the significance of the item; 

but is maintained for documentation purposes. The second 



scale factor. The default initial value is zero 



item. A real item is a word, representing a numeric 

The first form, specified without the "( ... )", is 

The second form is a binary integer. If "S" is 

ned; otherwise only the absolute value is stored. The 

t is not used by the system, 
<integer>, if present, is the 



< f i e 1 d it em> 

defines the properties of a field item 
string of 4-bit HEX digits. The 
<integer> cannot exceed 48. The second 
individually accessible as a 



A field item is a field of bits, stored 
first form will accommodate <integer> bits, 
form will contain up to 48 bits, 
boolean value by using the appropriate <bit name>. 



The 

each 

The 
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default initial value is all bits off (zero). 

<ini tial value option> 

specifies the value a data item is to be given when a record containing that item is 
created. BLANKS may be specified for alpha items only. The <literal> must be a 
<string literal) for alpha items, <boolean literal> for boolean items, or a <numeric 
literal> for numeric items. If the <initial value option> is not given, default 
initial values will be used. 

<occur s op t i on> 

specifies that the item to which it applies occurs <integer> times in the transaction 
record. Most references to the item must be subscripted to indicate which occurrence 
of the item is intended. The "OCCURS DEPENDING" option specifies data compaction. In 
this case, only the first n occurrences, where n is the value of the given numeric 
item, will be retained when writing the record to a transaction data file. It is the 
user program's responsibility to set the numeric item to the proper value. 

< ... i t em name> 

each item name consists of at most 17 letters and digits, beginning with a letter. 

Alpha and group items always begin on a byte boundary, while the other items begin on a 
digit boundary. Whenever necessary, a binary zero digit is used as filler. 

The following table defines how each TFL items appears to the application languages: 



TFL ITEM 

name ALPHA(n) 

name NUMBER(n) 
name NUMBER(Sn) 
name NUMBER(n,m) 
name NUMBER(Sn.m) 
name REAL 
name REAL(n) 
name REAL(Sn) 
name REAL(n,m) 
name REAL(Sn.m) 
name BOOLEAN 
name FIELD(n) 



name GROUP 



APPLICATION LANGUAGE 



ALGOL: STRING name 

COBOL: name PIC X(n) DISPLAY 

PL/1 : name CHAR (n) 

ALGOL: INTEGER name 

COBOL: name PIC 9(n) COMP-2 

PL/1: name PICTURE , (n)H' 

ALGOL: INTEGER name 

COBOL: name PIC S9(n) COMP-2 

PL/1: name PICTURE , S(n)H' 

ALGOL: REAL name 

COBOL: name PIC 9(n-m)V9(m) COMP-2 

PL/1: name PICTURE ' (n)HV(m)H' 

ALGOL: REAL name 

COBOL: name PIC S9(n-m)V9(m) COMP-2 

PL/1: name PICTURE , S(n)HV(m)H' 

ALGOL: REAL name 

COBOL: name COMP-4 

PL/ 1 : name DECIMAL FLOAT( 1 1 ) 

ALGOL: INTEGER name 

COBOL: name PIC 9(n) COMP 

PL/1: name DECIMAL FIXED(n) 

ALGOL: INTEGER name 

COBOL: name PIC S9(n) COMP 

PL/1: name DECIMAL FIXED(n) 

ALGOL: REAL name 

COBOL: name PIC 9(n-m)V9(m) COMP 

PL/1: name DECIMAL FIXED(n.m) 

ALGOL: REAL name 

COBOL: name PIC S9(n-m)V9(m) COMP 

PL/1: name DECIMAL FIXED(n.m) 

ALGOL: BOOLEAN name 

COBOL: name BOOLEAN 

PL/1 : name BIT( 1 ) 

ALGOL: REAL name 

COBOL: name FIELD SIZE IS n BITS 

PL/1 : name BIT(n) 

ALGOL: STRING name 

COBOL : n ame 

PL/1 : name 
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7. Condition, Expression 



<cond i t i on> 
< 



- — AND 

! <- OR —| 

-<simple condition>- 



NOT - 



<simple condition> 

<bool ean var i abl e> 

-<bool ean literal > 

- ( — <condition> — ) 

-<expression> — < re 1 at i on op> — <expression>- 



<expres s ion> 



<-<ar i thme t i c op>-| 
— <simple value> 



< simple value> 

<var i abl e> 

-< 1 i t eral > 

- ( — <expression> — ) 



<ar i thme t i c op> 

+ 



- DIV - 

- MOD - 
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<re 1 a t iona 1 op> 



EQL - 
GEQ - 
GTR - 
LEQ - 
LSS - 
NEQ - 



<condi t ion> 

a boolean expression, used in a verify clause. Any items referenced in 
must exist in the transaction record to which the verify clause applies. 



a condi t ion 



<simple condition> 

a boolean primary. A <boolean variables, is a fully-subscripted boolean item. In a 
<simple condition> of the form <<:xpress ion> <relation op> <express ion> , both 
expressions must be of the same type; that is, both must be numeric, or both must be 
alpha. If alpha, the expressions may be only alpha items or alpha literals; if the two 
alpha expressions are of different length, the shorter is assumed to contain trailing 
blanks (this is the COBOL rule for comparing ALPHA items). 

8. Transaction Subbase 



< transact ion subbase> lists transaction formats which are to be invoked together by an 

application program. Such formats would most likely be related in some way. For example, 

each subbase may correspond to a logical data base, so that a program that invokes only a 

subbase need only cause a specific portion of the data base to be opened. 

(transaction subbase> 

— <subbase name> SUBBASE > 

- TRANSACTION - 



— <subbase format> — 



-<guard file name>- 



<subbase :name> 

— <simple identifier>- 



<subbase format> 



-<format name>- 



■<new format name>- 



! I 
( <subbase subformat> ) 
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<subbase subformat> 

< sub forma t name> | 

|-<new subformat name> — = -| 

<subbase name> 

consists of at most 17 letters and digits, beginning with a letter. Each <subbase 
name> is assigned a unique integer value, which is stored in the Control Part of the 
transaction record (the "TRSUBBASE" Control Item). The <subbase name> may be used in 
an application program, in certain contexts, to refer to this value. 

<guard file name> 

may be associated with a subbase. The system will verify that the usercode and program 
name are permitted access to the subbase by that guard file. See separate 
documentation concerning security aspects of the Transaction System. 

<subbase format> 

identifies one of several transaction formats to be invoked as part of a particular 
transaction subbase. The <new format name>, if present, becomes the <format name> in 
the application program. The list of <subbase subformat>s, if present, restricts the 
invoked subformat s to those listed; otherwise, all subformats are invoked. 

<subbase subformat> 

identifies one of several subformats to be invoked along with a format of a transaction 
subbase. The <new subformat name>, if present, becomes the <subformat name> in the 
application program. 
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9. Transaction Journal 



(transaction journal> defines attributes of control and data files for a given <journal 
name). Any transaction journal not defined here will be given default attributes. 



(transaction journal> 
--(journal name> — 



JOURNAL 



TRANSACTION 



>- ( /l\-<control file attributes> ) 

|-/l\-<data file attributes) | 



(journal mane> 

— (simple identifier>- 



(control file attributes) 

— CONTROL FILE — ( — (control file attribute list> — ) 



(data file attributes) 

— DATA FILE — ( — (data file attribute 1 i s t > — ) 



(control file attribute list> 

I < > 

/1\- AREAS — = — (integer) 

-/I\- AREASIZE -- = —(integer)— BLOCKS 

-Vl\- BLOCKSIZE — = —(integer) SEGMENTS 

I- WORDS 

~/l\- FAMILY — = DISK 

- PACK 

-(packname)- 
/1\- USERCODE — = (usercode>- 



-/1\- CHECKSUM 



* 

TRUE - 
FALSE 
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<data file attribute list> 

I < t 

/1\_ AREAS — = — <integer> 

-/1\- AREASIZE — = — <integer>— BLOCKS 

-/I\- BLOCKSIZE — = — <integer> SEGMENTS 

I- WORDS 

-/1\- FAMILY — = DISK 

- PACK 

-<packname>- 
-/1\- USERCODE — = <usercode>- 
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-/1\- DUPLICATED ON 



-/1\- CHECKSUM 



- DISK 

- PACK 

-<packname>- 

— TRUE 

— FALSE - 



A <journal name> consists of at most 17 letters and digits, beginning with a letter. 



A transaction journal is a collection of disk or pack files, 
transaction journals for any given transaction base. All have the 
their first directory name, followed by the journal name. 

Each transaction journal contains the following physical files: 



There may 
t ransac t i on 



be 
base 



several 
name as 



which contain 



transaction data records 



vvyv to i . a ne< 
the SWITCHTRFILE pr 



variable— length iiaiisai.iiuii u a i a • c \, u i u s 
has a title of the form <base name>/<jour 
1 thru 9999, wrapping around f 
«n t f • i *. becomes full "*■ «'*■-«« 



i n 

na 1 

row 

or wheneve r 



Transaction Data Files 

A sequence of files 
variable-length blocks. Each file 

name>/<f i I e-number> , where <f i le-number> ranges from 1 thru 9999 

9999 to 1. A new file is created whenever the current file be 

ILE procedure in the Transaction Library is called. 

Transaction Control File 

This file contains "control" information, including a Halt/Load flag (to indicate 
recovery is required), and the current value of the <f i 1 e-number> . For each user 
"known" to the Transaction System, the Control File contains a reference to either his 
last good input transaction record or last good restart transaction record, depending 
on whether he was using a restart transaction, and a copy of its response record. The 
Control File has a title of the form <base name>/< j ourna I name>/CONTROL. 

Transaction journals are used for two purposes: transaction tanking and transaction history. 
A tanking journal contains transaction records accumulated during a tanking operation, but 
not yet processed (applied to the data base). A transaction base may have several tanking 
journals. They may have any journal name of the user's choice except "TRHISTORY". 

A history journal contains transaction records actually applied to the data base. They are 
written in the order in which they must be re-processed in a recovery operation. A 
transaction base has only one history journal; its journal name is always "TRHISTORY". 
There is no physical difference between tanking and history journals. 



The standard default 
AREAS 
AREASIZE 
BLOCKSIZE 
FAMILY 
USERCODE 
DUPLICATED 
CHECKSUM 



a t t r i bu t e 
100 
30 BLOCKS 
900 WORDS 
DISK 
none 

not dupl i ca t ed 
TRUE 



values for both control and data files are the following: 



The USERCODE and FAMILY attributes permit the control and/or 
independently of the user running the application program. 



data files to be located 



Only the data files may be duplicated. They contain original data which cannot otherwise 
recovered if lost, whereas the control file can.be recovered by the TRUTILITY program, 
specified, USERCODE applies to the duplicated file as well as the primary file. 



be 
If 
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10. Update 



A Transaction Base can be raodif 
TRDESCRIPTION file. The entire 
changes. The UPDATE statement is 
existing TRDESCRIPTION file. 
the old TRDESCRIPTION. 
Example 
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led by making changes to the TFL source and generating a new 

Transaction Base must be redescribed in TFL with the desired 

inserted at the beginning and instructs TFL to update an 

When a TFL update is run file HOST must be label equated to 



RUN SYSTEM/TFL; 

FILE CARD = PATCH/TEST; 

FILE TAPE = TFL/TEST; 

FILE HOST = TEST/TRDESCRIPTION; 



The user may make any change to the items of a subformat or format. This generates a new 
format and invalidates the previous one. If the format name remains the same, then the new 
format has the same format number but can still be distinguished from the old format by the 
Transaction library. If the name is changed, or a format is deleted and another added, then 
the old format number is invalid and a new format number is assigned. 

The Transaction base update level is incremented when a format is altered, added or deleted. 
The Transaction library is automatically recompiled when the update level is incremented. 
Although the user's Update library is not automatically recompiled, it must match the update 
level of the Transaction library. Therefore it is the user's responsibility to ensure that 
the Update library is recompiled also. 



Application programs 
be i ng recompi 1 ed . 
Transaction library. 



that do not use 
Programs using 



the invalidated formats can continue to run without 
an old format will get an error upon passing one to the 



Global parameters and options may also be changed. The DATABASE, RESTARTDATASET , and 
HOSTSYSTEM specifications may all be changed through an update. The Transaction library will 
be recompiled to incorporate the changes, but applications programs need not be recompiled. 



The specifications 
the same manne r . 
changed, but AREAS, 
changed, including 
library will create 
existing data file. 



for the default journal and the transaction journals may be updated in 

FAMILY, USERCODE and CHECKSUM of the Control File attribute list may be 

AREASIZE and BLOCKSIZE may not. All Data File attributes may be 

the physical attributes. If the AREASIZE is changed, the Transaction 

a new file with the new attributes, rather than continuing to add to an 



Subbases may be changed by renaming the subbase, and adding or deleting formats or 
sub forma t s . Any subbase change deletes the previous subbase and adds a new one with a new 
subbase number. Any program creating a transaction record in an old subbase may pass the 
transaction through the Transaction library as long as that format is still valid. If the 
Update library is routing transactions based on the subbase number in the transaction 
record, the code should be altered to reflect the new subbase numbers assigned by the 
upda t e . 



C- 2( 
MARK 3 . 1 

11. Th e TFL Processor 

The TFL Processor is a program, SYSTEM/TFL, which reads the TFL symbolic description of a 
Transaction Base, checks the description for proper syntax, and produces a description file 
called <base name>/TRDESCRIPTION . Depending upon dollar-card options specified by the user, 
SYSTEM/TFL performs other functions as well. It produces a printer listing of the source! 
including errors which have been detected; it creates an updated symbolic file; and it 
initiates compilation of tailored software. 

11.1 Fi les 

SYSTEM/TFL employs the following files (note that they are very similar to compiler files): 

CARD this is the primary input file and is required. It is a card-image file, containing 
the entire TFL source description of a Transaction Base, unless the MERGE option if 
used; in that case, CARD contains only patches to the TAPE file. 

TAPE this is the secondary input file. When the MERGE option is used, TAPE contains the TFL 
source and CARD contains patches. The title should be label-equated by the user. 

HOST this is the previous description file used as input when the UPDATE statement is used. 
The title should be label-equated by the user. 

CODE this is the primary output file. This is the description file which will be produced 
if no errors are detected. Its title, <base name>/TRDESCRIPTION, is set by SYSTEM/TFL. 

LINE this is the printer output file. It contains various output, depending upon options 

se t by the user . 

NEW SOURCE 

this is the updated source file, produced when the option NEW is set. The title should 
be 1 abe 1 -equa t ed by the user. 

11.2 Dollard-Card Options 

The following dollar-card options may be employed by the user (the default settings are 
given in parentheses): 

ALL INFO (FALSE) 

if TRUE will set the TEXT, LAYOUT, and DECKLIST options. 

DEBUG (FALSE) 

sets the TRACE BOOLEAN and TRACE will evoke the debugging function. 

DECKLIST (FALSE) 

if TRUE will list the ZIP file produced to compile the tailored software. 

ERROR LIMIT (10 if via CANDE; otherwise 100) 

is used to set the maximum number of errors. 

HEADER (FALSE) 

if set will generate the header blocks. 

INCLNEW (FALSE) 

if TRUE will include the source from the included file on the NEWSOURCE file. 

INCLUDE 

same as the ALGOL INCLUDE. 

LAYOUT (FALSE) 

if TRUE will generate listing of all items and their offsets. 

LIST (FALSE if via CANDE; otherwise TRUE) 

sets the LISTB BOOLEAN. If LISTB is FALSE no listing will be generated (except for 
errors). If TRUE then normal listings will be generated. 

LISTP (FALSE) 

if TRUE will list the PATCH cards only. 

MERGE (FALSE) 

if TRUE will include cards from a file called SOURCE. 

NEW (FALSE) 

if TRUE then a NEWSOURCE file is generated. 

OMIT if TRUE will omit source file input. 

PAGE will cause a page eject when it is encountered. 
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POP pops a 48 bit stack, thereby returning the BOOLEAN to its previous value. 

RESET 

pushes a 48 bit stack with a FALSE. 

SET pushes a 48 bit stack with a TRUE. 

SEQ (FALSE) 

if TRUE will cause the output file to be resequenced. When SEQ is set and no <sequence 
hase> and <sequence increment) are specified, sequencing begins at 1000 and continues 
in increments of 1000. Default action can be overridden by specifying a one-to-eight 
digit (sequence base> and <sequence increment). If a <sequence base> is given, but no 
sequence increment) is specified, sequencing begins at <sequence base> and an 
increment of 1000 is used. If a <sequence increment) is specified, but no <sequence 
!>ase> is given, sequencing begins at 1000 and the specified increment is used. 

SEOERR (FALSE) 

if TRUE will make sequence errors Syntax errors. 

SINGLE (TRUE) 

if the LIST option is set then the generated listing will be single spaced. 

TEXT (FALSE) 

if set will cause a formatted listing of the generated texts. 



VOIDT 



same as ALGOL VOIDT function. 



WARNING (TRUE) 

if TRUE will allow the printing of warning messages for COBOL reserved words. 

ZIP (TRUE) 

if TRUE and if no syntax errors, will ZIP a job file to compile all tailored software. 

12. Transaction Record Format 



A transaction record consists of several words of control information, followed by the items 
defined by the user in the TFL description. The control information is read-only for an 
application program; it is assigned values either during execution of the CREATE statement, 
or by the Transaction Library. These control items are described elsewhere in this 

document . 

12.1 Format in Main Memory 



(all sizes are given in bytes) 

Con t ro 1 
Word Bits Item Name Defined by 



Content 



47:01 TRLRBIT 
46:15 unused 

3 1:08 TRCONTROLS I ZE 

2 3:08 TRFORMATLEVEL 

15:16 TRTOTALSIZE 

1 47:48 TRBASEDTS 

2 47:48 TRUPDATEDTS 

3 47:20 TRUPDATELEVEL 
27:04 TRSTATE 
23:12 unused 

11:12 TRFILENUM 

4 4 7:32 TRBLOCKNUM 
15:16 TROFFSET 

5 47:08 unused 
39:16 TRDATASIZE 

2 3:2 TRFORMAT 
11:12 TRSUBFORMAT 

6 4 7:08 TRD I SKCONTROL 

SIZE 

3 9 ; 1 8 unused 
',112 TRCOUNTER 

7 47:01 TRREJECTED 



Tran. Library 

CREATE stmt . 
CREATE s tmt . 
CREATE stmt . 

CREATE stmt . 

CREATE stmt . 

CREATE stmt . 
Tran . Library 

Tran . Library 

Tran. Library 
Tran . Library 



CREATE s tmt . 
CREATE stmt . 
CREATE s tmt . 

Tr an . Library 



Tran . Library 
Tran . Library 



left-right bit 

all bits zero 

size of control part (=48) 

format level 

con t ro 1+da t a size (=48+n) 

TIME(6) date-time stamp 

TIME(6) update dts 

update level 
t ran . state 
all bits zero 
file numbe r 

block number 
word offset 

all bits zero 
size of data part (=n) 
format number 
subformat number 

size of control part (=18) 

(on disk) 

all bits zero 

tran. counter 

rejected f 1 ag 
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46:02 TRCOMPACTED Tran. Library compacted flag 

44:02 TRRESTARTINFO Tran. Library restart info flag 

42:11 unused all bits zero 

31:12 TRSUBBASE CREATE stmt. subbase number 

19:20 TRUSERNUM Tran. Library user id number 

8 first word of user data (n bytes total) 

If the total record length in words, (TRTOTALSIZE+5) DIV 6, is greater than 1023 words, the 
arrays which hold transaction records may be segmented. the total record length may never 
exceed 1 6K words. 

12.2 Format on Di sk 



When a transaction record is written to disk (to a transaction journal), word zero is 
repeated at the end to improve error detection. 

word content 

left control word (word above, with TRLRBIT = 1) 

1-7 control information (words 1-7 above) 

S data items (n bytes, starting with word 8 above) 

right control word (word above, with TRLRBIT = 0) 

The left and right control words are identical except for a single bit to distinguish left 
from r i gh t . 

12.3 "SYSTEMTR" Transaction 



There is one transaction format, "SYSTEMTR", which is reserved for use by the System; it is 
defined automatically in all transaction bases and subbases. Within that format, the 
following subformats are also defined: 

REMOTEREQUEST 

used to communicate between remote and host systems. 

SYSTEMRESPONSE 

created by the Transaction Library whenever a response is required but not otherwise 
provided (for example, after an error in a transaction processor). 

USER INFO 

contains a brief summary of all user informations contained in the Control File. It is 
written at the end of each Data File, and is used during recovery of the Control File. 

CHANOEUSER 

used to "audit" changes to the user information in the Control File. It is written in 
the Data File when each change occurs (CREATETRUSER and PURGETRUSER) , and is used 
during recovery of the Control File. 
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III. TRANSACTION SYSTEM APPLICATION LANGUAGE SYNTAX 




Invocation of Transaction Base 

A transaction base must be invoked in a user program before any references are made to 
formats or items defined by that transaction base. Invocation consists of specifying the 
transaction base to be invoked and, optionally, a list of transaction formats and 
subformats. The user may also give alternate internal names, to be used by his program, for 
the transaction base and any of the formats or subformats invoked. 



ALGOL 



— TRANSACTION BASE — <base-spec>- 



-<foirmat-l i s t>- 



<ba se-spec> 



-<base name>- 



i -< i nt-base id>- 



-<subbase name> — OF 



<format-l i s t > 



<format-spec>- 



j- ( — <subf orma t-1 i s t > — ) -| 



< forma t-spec> 



-<format name>- 



i -< int-format id> — = -| 



<sub format -1 i s t> 

ALL 

NONE — 



l< - I 

I I 
< sub forma t-spec> 



<subformat-spec> 



j-<int-subformatid>- 



-<subformat name>- 



<base name>, <subbase name> , <format name>, <subformat name> 

identifiers declared in the TFL source for the transaction description file. 

< i n t-base id> , < i n t-f orma t i d> , < i nt-subf orma t i d> 

identifiers used as internal names by this program instead of the actual names. 
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COBOL 



A new section in the Data Division called the "TRANSACTION SECTION" contains the invocations 
of all transaction bases to be referenced in a COBOL program. 

The TRANSACTION SECTION must appear between the DATA-BASE SECTION and the WORKING -STORAGE 



< 

TRANSACTION SECTION. < t r-base-i n voice >- 



<tr-base-invoke> 

— TB — <base-spec> 

|- USING — < forma t-1 ist>- 



<base-spec> 

same as ALGOL. 



< forma t-1 i s t > 

same as ALGOL. 



PL/ 1 



— TRBASE <base-spec>- 

|- TRANSACTION BASE - 



I- FORMAT — ( — <format-list>— ) 
<base-spec> 



-<base name> 



INTNAME = 

- INVOKE 



<subbase name> ( <base name> ) -| 



< format-1 i s t > 

same as ALGOL, except that INVOKE may also be used in place of "=". 
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2. Declaration of Transaction Record Variables 

A transaction record is an array row which may contain the transaction data of one of 
several transaction formats. A transaction record variable names one of these array rows. 
It must be associated with one transaction base, and may contain only formats and subformats 
which have been invoked from that base. Note that the size of the array row will be large 
enough to accommodate the largest format of all those invoked for it. 

ALGOL 

TRANSACTION RECORD — ( — <baseid> — ) > 

|- LONG -I 

> <trvar id> 1 

— TR/VNSACTION RECORD ARRAY — ( — <baseid>-- ) > 

|< . 1 

> <trarray id-1 ist> — [ — <bound-pai r-1 i s t > — ] | 

< t rar ray i d-1 i s t > 

< t rar ray i d> 1 

< bound-pa i r-1 i s t > 

|< , I 

1 ' I 

<a _exp> — : — <a-exp> I 

<a-exp> 

An arithmetic expression. 

<trvarid> 

An identifier which is to be the name of a transaction record variable. 

<trarrayid> . 

An identifier which is to be the name of an array of transaction record variables. 

<baseid> 

the (internal) name of a transaction base invoked in this program. 

COBOL 



Each transaction record for a given transaction base is declared immediately after the 
appropriate TB entry in the Transaction Section using COBOL' s 01 level indicator. 



01 — < t r-record-id> 

|- OCCURS — <integer> 

I- TIMES - 



PL/ 1 
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— DECLARE — <trvar id-1 ist> 

I -<dimens ion attributo- 

> TRANSACTION RECORD ( — <baseid>— ) — ; — 

I- TRREC 
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<trvarid-l i s t > 

<trvar id> 

( <trvarid>- 



<dimension attribute) 



DIMENSION 



( <bound> ) 



<bound> 



-<express ion>- 



-<expr ess l on> — 



Use of the <dimension attribute) implies that a transaction record array is being declared. 
If 't is used, the keyword DIMENSION may be omitted only if the attribute appears 
immediately following the < t rvar id-1 i s t > . If it follows the "( <baseid> )", then the keyword 
be used. The asterisk may be used only for parameter specifications and means that the 
array passed will be used. 



mus t 
bounds 



of the actual 



3. Creation of Transaction Records 



The contents of a transaction record variable are undefined until it is initialized with a 
CREATE statement to a particular format. CREATE wi 1 1 assign the initial values of all items 
in the format (and sub format, if given) to the record variable; control items are 

record variable will continue to contain the given format until it 
It is never "cleared" by the system. 



initialized as well. The 

is re-initialized with a subsequent CREATE. 



ALGOL 



— CREATE — <trrec>- 



-< format id>- 



-<subformat id>- 



< t r rec> 



— < t rvar i d> 

I 

| -<t rar ray id> — [ — <subscr ipt-1 i s t > — ] 



<t rrec> 

the transaction record variable to be initialized. A transaction record array element 
must be fully subscripted. 

< forma t id> , < sub forma t i d> 

the format and subformat (if given) whose initial values are to be assigned to the 
record variable. 



COBOL 
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— CREATE <format id>— — > 

I -<subformat id> OF 

|- IN 

> OF < t r-record-id> | 

|- IN -| |- ( — <subscr ipt >--- ) -| 
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— CREATE <t rvarid> > 

|- <trarrayid> - (subcript list) -| |- . <formatid> -| 

> ; | 

I I 

|- . <subformat id> -| 

Either the <formatid> or < sub forma t id> must appear. If necessary for qualification, both may 
be used. The subcripts follow the usual PL/I rules and may follow any of the identifiers. 

Transaction Record Data Items 

A transaction record may contain a transaction of any format declared for it. When it 
contains such a transaction, data items in the format of that transaction may be referenced 
as fol lows : 



ALGOL 



— < t r rec>- 



. — <tr-itemid>- 



-< format id>- 



|- [ — <subscr ipt-1 i s t> — ] -| 



< t r rec> 

fully-subscripted transaction record variable. 

< format id> 

optional, unless required for qualification. 

< t r-i t emid> 

item of the format presently occupying the record variable; must be fully subscripted. 

This construct may be used as the left part of an assignment or replace statement, or as a 
primary in an expression. The type of the item (ALPHA, NUMBER, etc.) must be consistent with 
the context in which it is used, as follows: 



ALPHA 

NUMBER 

REAL 

FIELD 

BOOLEAN 

GROUP 



STRING 

REAL 

REAL 

REAL 

BOOLEAN 

STRING 



COBOL 



— <tr-itemid> IN 

|- OF -| I -< format id> OF - 

I- IN - 
>-< t r-record-id> — <COBOL-subscr> 
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<COBOL-subscr> 

Empty if neither the record variable nor the item is subscripted. Otherwise, it is the 
list of subscripts for the record variable followed by the list of subscripts for the 
item, the whole list being enclosed in parentheses. 

REFERENCES : 

Transaction section data items are considered as normal data items and may be 
referenced at any place in the procedure division acceptable for a normal data item 

CORRESPONDING OPTION: 

Several special rules apply to the use of the CORRESPONDING option in referencing 
transaction section items. A transaction record name alone is not considered as a 
legitimate group name. Instead, a transaction format name, a transaction subformai 
name, or a subordinate group data item must be referenced. When a transaction format is 
referenced, only the data items in the common portion of the format will be considered 
as eligible to correspond. 



PL/ 1 



Data Items 



— <trrec> . <tritem-id> -> 

l I I ! 

|- . <formatid> -| |- . <subf orma t id> -| 
>-- , 

| - ( subcr ipt list) - | 

This construct may be used on the left side of an assignment or as a primary in an 
expression. The types to which it will be converted are: 

ALPHA CHARACTER 

NUMBER PCN 'H' 

REAL (n) DECIMAL FIXED (n) 

REAL DECIMAL FLOAT (") 

BOOLEAN BIT (1) 

GROUP STRUCTURE 

FIELD BIT (n) 

The subscripts may follow the identifier according to the usual PL/I rules. 
5. Transaction Record Control Items 



Control items are system-defined items contained in every transaction record. These items 
are maintained by the transaction system, and are read-only in an application program. Some 
control items are of little interest to the user program; others must be used in order to 
process the transaction records properly. These items are defined only after a transaction 
record has been CREATEd with a particular format. 

The control items and their meanings are as follows: 

TRTOTALSIZE 

Total size in bytes of the transaction record. Includes control and data parts Size 
of the control part is a constant for all records. 

TRCONTROLSIZE 

Size of the control part in bytes. 

TRSIZE (COBOL ONLY) 

Return the actual size, in bytes, of the transaction record array row. 

TRFORMATLEVEL 

Format level of the transaction record layout. Currently defined to be 1. 

TRBASEDTS 

Date-time stamp (TIME(6)) used to co-ordinate the transaction description. user 
program, and Transaction Library. 

TRUPDATEDTS 

Update date-time stamp. Defines update level within the transaction base date-lime 
stamp; also used to co-ordinate the various code files. 

TRUPDATELEVEL 

TFL update level. Used to eliminate masksearch of a value array when checking 
TRUPDATEDTS . 

TRCOUNTER 

A counter used to synchronize input and response transaction records between remote and 
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host sy s t ems 



TRFILENUM, TRBLOCKNUM, TROFFSET 

The "record address" of a transaction record in a transaction file. Assigned by the 
Transaction Library when the transaction is first written to the transaction journal. 

TRDATASIZE 

The length, in bytes, of the user data portion of the record. 

TRLRBIT 

Bit to distinguish left from right control words on disk. 

TRFORMAT 

Unique numeric value which identifies the transaction format. 

TRSUBFORMAT 

Numeric value which identifies the transaction subformat; unique for a given TRFORMAT 

value . 

TRSUBBASE 

Unique numeric value which identifies the transaction subbase invoked. 

TRD I SKCONTROLS I ZE 

Size of the control portion of the transaction record on disk. 

TRUSERNUM 

Identifies the source of a sequence of transaction records, primarily to aid in 
recovery and restart after an abort or Halt/Load. The last good input record, and its 
response, are saved for each value of TRUSERNUM. 

TRREJECTED 

Used by the Transaction Library to mark a transaction record which has already been 
written to the history file, and is subsequently rejected by the system when faults 
occur during processing. 

TRCOMPACTED 

Used by the Transaction Library to mark a transaction record which is in its compacted 
form (always for transactions which cannot be compacted). 

ALGOL 

— <trrec> — . — <control-i t em-name > I 



< t r r e c > 

fully-subscripted transaction record variable. 

<con t ro 1 ■- i t em-name > 

one of the control items defined above. In DMALGOL only, control items may be changed 
just like data items. 

COBOL 

— <cont roi-i t em-name> — ( — <trrec> — ) I 



PL/ 1 

Same as for COBOL. 

6. Transaction Compile-time Functions 

Transaction compile-time functions provide access to certain properties of transaction 
formats which are constant at compile time. 

ALGOL 

— < t r-c-t-func t ion name> — ( — < t r-c- t-f unc t i on argument) — ) | 
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< t r-c- t-f unc t i on argument) 

< forma t i d>- 

I I 

| -<base id> — . - | 

> 



— < sub forma t i d>- j 



I 

| - . — < t r-i t emi d>- 



Not all transaction compile time functions apply to all arguments. The following specifies 
which functions apply to the possible arguments, and what the function represents: 



< format id> 



TRFORMAT 

Numeric value assigned to the < forma t id> . 

TRDATASIZE 

Size of the common part of the transaction record in bytes 

<formatid>. < sub format id> 



TRSUBFORMAT 

Numeric value assigned to the <sub forma t i d> . 

TRDATASIZE 

Size of the subformat record (including common part) in bytes. 

< forma t id> . < t r-i t emid> or <format id> . <subformat id> . < t r-i temid> 

TRBITS 

Size of the item in bits. 

TRDIGITS 

Size of the item in digits. 

TRBYTES 

Size of the item in bytes. 

TROCCURS 

Number of occurrences of the item. Zero, if not specified as occurring in TFL source. 

The values for TRBITS, TRDIGITS, and TRBYTES are computed according to the following table 
(note that it is not always the actual size of the item, but a value computed from the 



size) 
I tern Type 
ALPHA (N) 
BOOLEAN 



BOOLEAN (in FIELD) 1 



NUMBER(N) 

NUMBER(N,M) 

NUMBER(SN,M) 



TRBITS 

N*8 

1 



REAL 
REAL(N) 
REAL(N.M) 
REAL(SN.M) 

FIELD(N) 

FIELD(N BOOLEANS) 



N*4 
N*4 

N*4 

48 
N*4 
N*4 
N*4 

N 

N 

N*4 



TRDIGITS 

N*2 

1 
1 

N 

N 
N 

12 

N 
N 

N 



(N+3) DIV 4 
(N+3) DIV 4 

N=TOTALSZ 



TRBYTES 

N 

1 

1 

(N+l) DIV 2 
(N+l) DIV 2 
(N+l) DIV 2 



(N+l) DIV 2 

(N+l) DIV 2 

(N+l) DIV 2 

(N+7) DIV 8 

(N+7) DIV 8 



GROUP N*4 N=TOTALSZ N DIV 2 

COBOL 

— < t r-c- t-func t i on name> — ( — < t r-c- t-f unc t i on argument) — ) 
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< t r-c- t- f unc t i on argument) 



j -<t r-i t emid> OF - 

I 

j- IN - 




-<format id> > 



OF <base id>- [ 

I 



IN -I 



PL/ 1 

Same as ALGOL, except that any of the four names may or may not appear, as needed for 
qualification. 

7. Transaction Record Variables as Parameters 



Most of the work in using transactions is carried out by Transaction Library procedures, 
which transaction records are passed as parameters. 



The formal and 
same list of 
i n a format i t 



actual parameters must agree on 
transaction formats. Of course 
has not invoked, the procedure 



to 



transaction base, but need not specify the 

if a procedure is given a transaction record 

s limited in what it can do with that record. 



Transaction records may not be 
initiated via a CALL or PROCESS 



passed to intrinsics or to external procedures 
statement, or to procedures which are bound. 



be i ng 



ALGOL 



The specification syntax for a formal transaction record variable is identical to th 
declaration syntax, except that the <bound-pa i r-l i s t > is replaced by a < I ower-bound-1 i s t > a 
for any arrays. Note that the transaction base must have been invoked prior to thi 
procedure declaration. 



the 

as 

i s 



COBOL 



A transaction record is passed as a parameter 



the same way that any 01 entry is passed. 



PL/ 1 

The declaration syntax for transaction record parameters is the same as normal transaction 
record declarations. For arrays, bounds specified as "*" may be used. For constant bounds, 
compile time checking is done to see that the formal and actual parameters match. 

8. Transaction Record Variable Assignment 



A transaction record variable may be assigned (copied) to another 
variable, provided they represent the same transaction base. 



transaction record 



ALGOL 



— < t r r ec-1 > — 



-< t r rec-2>- 



In DMALGOL (the implementation language for the Transaction Library), 
assign a transaction record variable to an ARRAY reference variable. 
permitted in application programs. 



it is permi 1 1 ed to 
This construct is not 



COBOL 



MOVE — <tr-rec2> TO <tr-recl> 
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-< t r rec-1 >- 



= — < t r rec-2; 



9 . Res t r i c t i ons 

Certain restrictions are enforced by the compilers on the usage of transaction record 
variables (as opposed to item references). Except as described above, it is not possible to 
use transaction record variables without a syntax error. For example, it is impossible to 
use them in lists, READ or WRITE statements, assignment statements except as described 
above, as primaries in expressions, etc. 

10. Checks 

The host compilers check that all the usages of a particular transaction variable within a 
code file are compatible. The parameter checking code checks that the following attributes 
of the transaction variable are those which were expected when the variable is passed as a 
parameter to a separately compiled code file: format level, control length, and transaction 
base date-time stamp. Note that the contents of the variable do not have to be inspected in 
order to make this check. 

The Transaction Library insures that its TFL update level is greater than or equal to that 
of both the user program and the Update Library. It does this by indexing a value array by 
the update level to retrieve an update date-time stamp, and comparing it for equality with 
the update date-time stamp in the record variable. They must match. If the update level is 
out of bounds of the value array, the program (or update library) is too old or too new with 
respect to the Transaction Library. 

1 1 . TR INTERFACE 



The host compilers communicate with an external coroutine SYSTEM/TR INTERFACE in order to 
process the syntax described here. 

12. Transaction Use Procedures 



COBOL programs intended for the Update library may declare untyped paramet er 1 ess procedures 
as parameters by naming them in the USING clause of the Procedure Division header and 
declaring them as a section header in the Declaratives. The CALL statement is used to 
invoke these procedures. The syntax for the section header of a transaction procedure is: 

<sect ionnamo SECTION. USE AS TRANSACTION PROCEDURE. 



An ex amp] e : 



PROCEDURE DIVISION USING TR1 , TR2 . 
DECLARATIVES. 

TR1 SECTION. USE AS TRANSACTION PROCEDURE. 
TR2 SECTION. USE AS TRANSACTION PROCEDURE. 
END DECLARATIVES. 
PI . CALL TR1 . 
CALL TR2. 



13. Example Application Programs 

Skeleton application programs in ALGOL and COBOL are shown below to demonstrate how the 
Transaction Base and library entrypoints are declared in each language. 

ALGOL 



BEGIN % SAMPLE BATCH PROGRAM USING TRANSACTIONS 

TRANSACTION BASE TRB = BANKTR- 

L I BRARY L ( T I TLE= " BANKTR/CODE/HOSTL IB."); 
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% DECLARE ALL ENTRYPOINTS TO BE USED 



INTEGER PROCEDURE CREATETRUSER( IDSTRING, IDNUM) ; 

STRING IDSTRING; INTEGER IDNUM; 

LIBRARY L; 
INTEGER PROCEDURE PURGETRUSER( IDNUM) ; 

INTEGER IDNUM; 

LIBRARY L; 
INTEGER PROCEDURE LOGONTRUSER( IDSTRING, IDNUM); 

STRING IDSTRING; INTEGER IDNUM; 

LIBRARY L; 
INTEGER PROCEDURE LOGOFFTRUSER( IDNUM) ; 

INTEGER IDNUM; 

LIBRARY L; 
INTEGER PROCEDURE RETURNRESTARTINFO( IDNUM, TROUT); 

INTEGER IDNUM; 

TRANSACTION RECORD (TRB) TROUT; 

LIBRARY L; 
INTEGER PROCEDURE RETURNLASTRESPONSE( IDNUM, TROUT); 

INTEGER IDNUM; 

TRANSACTION RECORD (TRB) TROUT; 

LIBRARY L; 
INTEGER PROCEDURE TANKTRNORESTART ( I DNUM , TRIN) ; 

INTEGER IDNUM; 

TRANSACTION RECORD (TRB) TRIN; 

LIBRARY L; 
INTEGER PROCEDURE PROCESSTRNORESTART( IDNUM, TRIN, TROUT); 

INTEGER IDNUM; 

TRANSACTION RECORD (TRB) TRIN, TROUT; 

LIBRARY L; 
INTEGER PROCEDURE OPENTRBASE(USEROPTION, TIMEOUT); 

INTEGER USEROPTION. TIMEOUT; 

LIBRARY L; 
INTEGER PROCEDURE CLOSETRBASE; 

LIBRARY L; 
INTEGER PROCEDURE SEEKTRANSACTION(FILENUM, BLOCKNUM, OFFSET); 

INTEGER FILENUM, BLOCKNUM, OFFSET; 

LIBRARY L; 
INTEGER PROCEDURE READTRANSACTION (TRREC) ; 

TRANSACTION RECORD (TRB) TRREC; 

LIBRARY L; 
INTEGER PROCEDURE SWITCHTRFILE; 

LIBRARY L; 

% DECLARE TRANSACTION RECORD VARIABLES TO BE USED 

TRANSACTION RECORD (TRB) 

TRIN, 

TROUT , 

LASTINPUT, 

LASTRESPONSE; 
STRING JOURNALNAME; 



% START OF PROGRAM 

% SET LIBPARAMETER IN DECLARATION OR BEFORE FIRST CALL ON ENTRYPOINT 



L.LIBPARAMETER := JOURNALNAME; 
BODY OF PROGRAM 



END 
COBOL 



IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 



DATA DIVISION. 
FILE SECTION. 



DATA- BASE SECTION. 

TRANSACTION SECTION. 
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* SPECIFY THE TRANSACTION FORMAT NAMES TO BE USED 

TB TRB = BANKTR 

USING STATIS=STATUS, CREATEACCT, PURGEACCT, DEPOSIT, 
WITHDRAWAL, CHANGEACCT, STATEMENT, TEST, 
RESTARTDETANKER 

• SPECIFY THE TRANSACTION RECORD VARIABLES 

01 TRIN. 

1 TROUT . 

01 LASTINPUT. 

01 LASTRESPONSE. 

WORKING- STORAGE SECTION. 



PROCEDURE DIVISION. 
MAIN SECTION. 



STOP RUN. 

* 

CREATETRUSER. 

CALL "CREATETRUSER OF BANKTR/CODE/HOSTLIB" 
USING ID-X , IDNUM 
GIVING TPS-RESULT. 

* 

PURGETRUSER. 

CALL "PURGETRUSER OF BANKTR/CODE/HOSTLIB" 

USING ID-X 

GIVING TPS-RESULT. 

* 

* 
LOGONTRUSER. 

CALL "LOGONTRUSER OF BANKTR/CODE/HOSTLIB" 

USING ID-X, IDNUM 

GIVING TPS-RESULT. 

* 

LOGOFFTRUSER . 

CALL "LOGOFFTRUSER OF BANKTR/CODE/HOSTLIB" 
USING IDNUM 

GIVING TPS-RESULT. 

* 

* 

RETURNRESTART I NFO . 

CALL "RETURNRESTART I NFO OF BANKTR/CODE/HOSTLIB" 
USING IDNUM, TROUT 

GIVING TPS-RESULT. 

* 

RETURNLASTRESPONSE . 

CALL "RETURNLASTRESPONSE OF BANKTR/CODE/HOSTLIB" 
USING IDNUM, TROUT 

GIVING TPS-RESULT. 

* 

» 
TANKTRNORESTART . 

CALL "TANKTRNORESTART OF BANKTR/CODE/HOSTLIB" 
USING IDNUM, TRIN 

GIVING TPS-RESULT. 

* 

* 

PROCES STRNORESTART . 

CALL "PROCES STRNORESTART OF BANKTR/CODE/HOSTLIB" 
USING IDNUM, TRIN, TROUT 

GIVING TPS-RESULT. 

* 

* 
OPENTRBASE. 

CALL "OPENTRBASE OF BANKTR/CODE/HOSTLIB" 

USING OPT, TIMEOUTV 

GIVING TPS-RESULT. 

* 
CLOSETRBASE. 

CALL "CLOSETRBASE OF BANKTR/CODE/HOSTLIB" 
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GIVING TPS -RESULT. 



SEEKTRANSACTION. 

CALL "SEEKTRANSACTION OF BANKTR/CODE/HOSTLIB" 
USING FILENUMBER, BLOCKNUMBER, OFFSETS 
GIVING TPS-RESULT. 



READTRANS ACT I ON . 

CALL "READTRANSACTION 
USING TRIN 
GIVING TPS-RESULT. 



OF BANKTR/CODE/HOSTLIB" 



SWITCHTRFILE. 

CALL "SWITCHTRFILE 
GIVING TPS-RESULT. 



OF BANKTR/CODE/HOSTLIB" 



•»***•****«***«*««*****»*««»*•**«•*»»•»»*•*••••••**»»»**»»*«»»»»»* 
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IV. THE TRANSACTION LIBRARY 



ary is a collection of procedures which constitute the heart of the 

A standard symbolic is provided, which, when compiled by the user, 

ode fiie tailored for a given Transaction Base. The Transaction Library 



1 . Int roduc t i on 

The Transaction Library is a collection of procedures which 

Transction System. 

produces a library cog- • . . ». .....u...., ..,. <. e ..„.. ...... c ..„.. u .. ua a„. ..... ........ u ^ .. .... ^..,.„.j 

contains all the procedures which are called by user-written application programs to process 
or tank transaction records, and to read them back from journals. 

In a shared resources system, the Transaction Library must reside on the host system (that 
system which contains the data base), where it is known as the Host Library. A second 
version of the Transaction Library, the Remote Library, resides on any remote system which 
may interface with the host system. The Remote Library, described later in the document, 
appears identical to the Host Library from the application program's viewpoint; it 
communicates with the host system where the work is actually performed. This section 
describes the host version of the Transaction Library. 

2. Library Initiation 



As with any library, the first attempt to 
causes the MCP to connect the program 



call a library procedure by an application program 

»_. ...— ... .„„, ,,.„„... to the library stack. Physically, the Transaction 

Library consists of a D2 (and Dl) stack, shared by all users of the Transaction Base; a D3 
stack for each active transaction journal for that Base, each shared by all users of that 
journal; and a private D4 stack for each running application program. The first call of a 
procedure in the Transaction Library causes any of the required shared stacks not already 
active, and the private D4 stack, to be initiated. 

Prior to the first procedure call, the library parameter must be assigned. The parameter 
is, in this case, the journal name for the journal which is to be accessed. This determines 
which of perhaps several D3 stacks will be used by the program. For transaction processing, 
the journal name must be "TRHISTORY" ; for tanking it may be any journal except TRHISTORY. 
For reading, any journal may be used. 

Definition of Transaction User 



A "transaction user" is the source of a sequence of transaction records for a particular 
journal. It may be a program, or one of several terminals serviced by a program, or both, 
whichever is convenient at any given time. The transaction user concept is intended 
primarily as an aid to program restart. 

Each transaction user is identified by a string (IDSTRING), unique among all transaction 
users of that journal. The transaction user becomes "known" when CREATETRUSER is called, 
passing IDSTRING. CREATETRUSER verifies that the transaction user is not already known, and 
assigns a unique integer value, IDNUM, to represent the transaction user. IDSTRING must be 
an EBCDIC string of at most 17 characters. It is suggested that the string be strictly 
alphanumeric, although that is not a requirement of the system. 

A transaction user remains known until PURGETRUSER is called. This may be in the same 
program, or days or weeks later, or not at all. 

A transaction user is "active", however, only during the execution of a program. To become 
active, the program must pass a known IDSTRING to LOGONTRUSER; if the transaction user is 
not already active, LOGONTRUSER will mark the transaction user active and return the 
original IDNUM to the program. Only active transaction users are permitted to submit 
transaction records to the System. A transaction user becomes "inactive" by calling 
LOGOFFTRUSER , PURGETRUSER or CLOSETRBASE, or at the termination of the program. 

A program may make several transaction users active by calling LOGONTRUSER several times, 
each time with a different IDSTRING. It is then the program's responsibility to pass the 
appropriate IDNUM value whenever it calls one of the library procedures requiring that 
paramet er . 

The system saves the IDNUM parameter in the control part of each transaction record 
submitted by the transaction user so that its source may be identified later, if necessary. 
In addition, a reference to the restart record, and the response record corresponding to the 
last transaction, for update processing, are saved in the control file of the TRHISTORY 
journal for each transaction user. For tanking, a reference to the last tanked transaction 
record is saved in the control file of the tank journal for each transaction user. These 
records may be retrieved at any time to facilitate job restart. 

It is important to note that transaction users are known to a journal, and not to the entire 
Transaction System. A given IDSTRING may be known to one journal and not another; and if 
known to more than one, the IDNUM value is unlikely to be the same for all journals. 
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4. Transaction Library Procedures 



The following procedures are the external entry points in the Transaction Library, to be 
called by the application program. 

INTEGER PROCEDURE OPENTRBASE(USEROPTION, TIMEOUT); 
INTEGER USEROPTION, TIMEOUT; 

This must be the first procedure in the Transaction Library called by an application 
program. The Transaction System is initiated, and the transaction journal (specified by the 
library parameter in the application program) is opened and prepared for subsequent use. 

The TIMEOUT parameter is used only by the remote version of the Transaction Library; it 

indicates how long (in seconds) the Remote System is to wait for the Host System to recover 

in the event that System fails. If that time is exceeded, an exception is returned to the 
program. 

The USEROPTION parameter determines what functions the application program is permitted to 
do (that is, what procedures may be called). USEROPTION is interpreted as follows (note 
that the given integer values must be passed; the names "UPDATE", "TANK", etc., are unknown 
to the compiler in this context): 

Update (1) 

Transactions records are to be processed (applied to the data base). All procedures 
except TANKTRANSACTION, READTRANSACTION and SEEKTRANSACTION may be called. This mode 
is permitted only for the TRHISTORY journal. 

Inqui ry (2) 

Same as Update, except only data base inquiry may be performed; that is, only those 
transactions which perform no data base update operations may be used. Update 
transactions will fail when BEGIN-TRANSACTION is attempted. 

Tank (3) 

Transactions records are to be tanked, and saved for future data base update. All 

procedures except PROCESSTRANSACTION and its variants, READTRANSACTION and 

SEEKTRANSACTION may be called. This mode is not permitted for the TRHISTORY journal. 

Read (4) 

Transaction records are to be read from the journal. All procedures except 

CREATETRUSER, PURGETRUSER, TANKTRANSACTION, PROCESSTRANSACTION, and SWITCHTRFILE may be 

called. While a journal is in this mode, no other process may open the journal. The 

journal is not actually opened until SEEKTRANSACTION is called to specify the file 
number and position. 

Exclus i veupdat e (S) 

This is equivalent to Update (1) with the additional constraint that NO other updaters 

are allowed. This might be useful for large batch updating where transactions are not 

guaranteed to be independent of ail others, and therefore must run alone. 

INTEGER PROCEDURE CREATETRUSER(IDSTRING, IDNUM) ; 
STRING IDSTRING; 
INTEGER IDNUM; 

Used to identify a new transaction user for this journal. IDSTRING must be a unique string, 
not already known for this journal; a unique integer value (IDNUM) is assigned by the system 
to represent IDSTRING. IDSTRING must be an EBCDIC string of at most 17 characters. 

INTEGER PROCEDURE PURGETRUSER ( IDNUM) ; 
INTEGER IDNUM; 

Used to "forget" a transaction user previously identified by CREATETRUSER . After 
PURGETRUSER is called, the transaction mser is no longer known by this journal, and 
information about his transactions is discarded. 

INTEGER PROCEDURE TRUSERIDSTRING( IDSTRING, IDNUM); 
INTEGER IDNUM; 
STRING IDSTRING; 

Returns in the parameter IDSTRING the user identification string which corresponds to the 
value of the parameter IDNUM. 

INTEGER PROCEDURE LOGONTRUSER( IDSTRING, IDNUM); 
STRING IDSTRING; INTEGER IDNUM; 

Used to make a transaction user active for this program. IDSTRING must be a unique 
identification of that transaction user, already "known" to the Transaction System from a 
previous call on CREATETRUSER, and not yet active. The original integer assigned for this 
IDSTRING is returned via the parameter IDNUM. Note that there may be only one user of a 
given IDNUM active at a time. IDSTRING must be an EBCDIC string of at most 17 characters. 

INTEGER PROCEDURE LOGOFFTRUSER( IDNUM) ; 
INTEGER IDNUM; 

IDNUM must represent an active transaction user for this program. That transaction user 
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will be marked not active. 



INTEGER PROCEDURE RETURNRESTARTINFO( IDNUM, TRREC)- 
INTEGER IDNUM; 
TRANSACTION RECORD (TRBASE) TRREC; 

Used to help restart an application program. IDNUM must represent an active transaction 
user for this program. The restart transaction record corresponding to the last good 
transaction for this user is returned as the parameter TRREC. 

INTEGER PROCEDURE RETURNLASTRESPONSE( IDNUM, TRREC) 
INTEGER IDNUM; 
TRANSACTION RECORD (TRBASE) TRREC; 

Used to help restart an application program. IDNUM must represent an active transaction 
user for this program. The response transaction record corresponding to the last good 
transaction of this user is returned as the parameter TRREC. 

INTEGER PROCEDURE PROCESSTRANSACTION( IDNUM, TRIN, TROUT, RESTARTTR) 
INTEGER IDNUM; 
TRANSACTION RECORD (TRBASE) TRIN, TROUT, RESTARTTR; 

Used to send an input transaction record (TRIN) to a transaction processor. IDNUM must 
represent an active transaction user for this program. A response transaction record is 
returned to the program as the parameter TROUT. If successful, that is, if the exception 
flag returned by the procedure is 0, the response is that created by the transaction 
processor; otherwise, the response is a transaction with SYSTEMTR format and SYSTEMRESPONSE 
subformat, which will indicate the nature of the error. Here "successful" means that the 
transaction appeared to observe all requirements of the Transaction System; it may in fact 
not have been successful from the application's vie wpo int . In that case, the response would 
have to indicate the problem. The parameter RESTARTTR is a transaction record which is 
intended to contain user-defined restart information. It is saved for the user, and can be 
retrieved by the RETURNRESTART I NFO procedure in the event a program restart is necessary. 

INTEGER PROCEDURE PROCESSTRNORESTART( IDNUM, TRIN, TROUT)- 
INTEGER IDNUM; 
TRANSACTION RECORD (TRBASE) TRIN, TROUT; 

Similar to PROCESSTRANSACTION except that no restart transaction record is passed. In this 
case, the input transaction, TRIN, is saved in lieu of a restart record. 

INTEGER PROCEDURE PROCES STRFROMTANK ( I DNUM , TRIN, RESTARTNUM, RESTARTTR) 
INTEGER IDNUM, RESTARTNUM- 
TRANSACTION RECORD (TRBASE) TRIN, RESTARTTR; 

Similar to PROCESSTRANSACTION, except that a different user number is used for restart 
purposes than the user number of the input transaction. IDNUM wi 1 1 be assigned to TRIN- 
RESTARTNUM will be assigned to RESTARTTR. This procedure is intended primarily for use in 
processing transactions from a tank file. In this case, the output transaction TROUT of the 
other procedures is not returned, since it is of no interest to the detanking procedure. 

INTEGER PROCEDURE TANKTRANSACTION( IDNUM, TRIN, RESTARTTR) 
INTEGER IDNUM; 
TRANSACTION RECORD (TRBASE) TRIN, RESTARTTR; 

Used to tank a transaction record. IDNUM must represent an active transaction user for this 
program. RESTART! K is a transaction record which is intended to contain user-defined 
restart information. It can be retrieved by the RETURNRESTART I NFC procedure if program 
restart is necessary. 

INTEGER PROCEDURE TANKTRNORESTART ( I DNUM, TRIN) • 
INTEGER IDNUM; 
TRANSACTION RECORD (TRBASE) TRIN; 

Similar to TANKTRANSACTION except that no restart transaction record is passed. In this 
case, the input transaction, TRIN, is saved in lieu of the restart record. 

INTEGER PROCEDURE READTRANSACTION(TRREC) • 
TRANSACTION RECORD (TRBASE) TRREC; 

Read the next transaction record from the transaction journal and trove it to TRREC If the 
transaction record is marked "REJECTED", or if it is the last transaction record in the 
current physical file, an exception flag (in the ATTENTION group) is returned along with the 
record; if there are no more transaction records at all, an exception flag is returned 
instead of a record. READTRANSACTION can be called only after SEEKTRANS ACTION has opened 
and positioned a specific file. 

INTEGER PROCEDURE SEEKTRANSACTION(TRFILE, TRBLOCK, TROFFSET) 
I NTEGER TRF I LE , TRBLOCK , TROFFS ET ; 

The parameters represent the "address" of a transaction record in the transaction journal. 
The current record pointer is set so that the next read operation will read the transaction 
record at _ that address. TRBLOCK = selects the first record in the given file (TROFFSET is 
ignored i" tins case); TRBLOCK > and TROFFSET = selects the first record in the given 
block. TRFILE must always specify a valid file number. Except for the cases just 
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described, the parameters must refer exactly to the left control word of a valid transaction 
record; otherwise, no seek is performed and an exception is returned. SEEKTRANSACTION must 
be called prior to the first READTRANSACTION call in order to open and position a specific 
file. 

The user can obtain the address of a particular transaction that he wishes to seek to by 
using the TRUTILITY search function. TRUTILITY will print the address of whatever 
transactions are located according to the search specification. 



INTEGER PROCEDURE SWITCHTRFILE; 



Used to force a file 
the file numbe r i s 
wr i t e to the j ourna 1 



switch on the current data file of the journal. The 
incremented by one, and the next file in sequence is 
will occur on the new file. 



file i 
created. 



closed, 
Th e next 



INTEGER PROCEDURE CLOSETRBASE; 

Terminate use of the Transaction System. All active transaction users for this program are 
marked inactive; all subsequent calls on transaction procedures are illegal until OPENTRBASE 
is called aga in. 

5. Exception Reporting 
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Id notice. 

ncountered end-of-file: no transaction returned. 

ransaction record returned has TRREJECTED = 1. 

o restart transaction record for this IDNUM. 

o response transaction record for this IDNUM. 

te-Host interface errors: remote system cannot communicate with host system. 

Host system is not known to the network. 

Host system is down. 
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parameter: some parameter has improper value. 

unknown USEROPTION parameter. 

unknown IDNUM parameter. 

IDNUM not logged on. 

RESTARTNUM not logged on. 

IDSTRING already created. 
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invalid address parameters (SEEKTRANSACTION). 
permitted: procedure called out of order, or function out of context. 

OPENTRBASE already performed by this program. 

cannot PROCESS with tank journal. 
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for tank journal . 
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after BEGIN-TRANSACTION 
after SAVEINPUT. 
after MID-TRANSACTION, 
after SAVERESPONSE. 

call SAVERESPONSE. 
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TRUPDATELEVEL 

TRUPDATEDTS 

TRFORMAT 



(restart record ) 
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format verify condition FALSE (response 
unknown TRSUBFORMAT (response 

subformat verify condition FALSE (response 
unknown TRSUBBASE (response 

failed guardfile check. (response 

900 - 999 System error: A software, hardware or procedural 
901: maximum library stacks already in use. 
902: error while accessing journal control file. 
903: data base out of sync with TRHISTORY jorunal 
904: error in EXPANDTRANSACTION . 
905: error in COMPACTTRANSACTION . 
906: USERINFO transaction expected. 

907: USERINFO out of sync with journal control file. 
908: cannot locate known user in USERINFO 
909: error in SEEK TRANS ACT I ON . 
910: cannot position TRHISTORY file for rerun. 
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Compilation of the Transaction Library 



The Transaction Library compilation may be initiated automatically by SYSTEM/TFL whenever a 
new description file is created. Otherwise, the user may compile the Library by m in 

he source file TRBASE/HOSTLIB with the DMALGOL compiler. \l I ?cqui e d -c d o 
thl user ?n C ?h ' " tha,sour " file . The compiler file DESCR I PT I ON mu s t be 1 abeUquaTed bv 
the user to the appropriate description file (TRDESCRIPTION/<base name>). 



41 



MARK 3 . 1 



THE TRANSACTION UPDATE LIBRARY 



The Update Library is a collection of user written transaction processing routines. The 
library contains the data base declaration and ALL of the code within the transaction system 
that performs data management statements against the data base. The Update Library is a 
private library, so that each user that invokes it will get a separate stack, and a separate 
SIB after the data base has been opened. 

Locking, Consistency, and Reproducibility 



Because DMS II data bases can be updated concurrently by many programs, the concept of 

consistency and how to achieve it are important. Because DMS II recovery backs out some 

previously completed transactions, reproducibility of the previously obtained results is an 

important issue. DMS II provides record level locking as a tool to aid in achieving 
consistency and reproducibility. These issues are discussed in this section. The next 

section gives a detailed discussion of how to program the Update Library 

1.1. Consistency 



Every data base has a set of assertions which the data must satisfy. Although few of the 
assertions are ever stated formally anywhere, they are extremely important. When the data 
satisfy all the assertions (or consistency constraints), the data base is said to be 
consistent. Otherwise, it is said to be inconsistent. 

Every transaction which updates the data base must preserve the consistency constraints when 
run alone. (Otherwise, the transaction is considered to be incorrect.) Even though all 
transaction routines preserve all the consistency constraints when run alone, that is no 
guarantee that all mu 1 t i programmed mixes of these transactions will also preserve the 
consistency constraints. Record level locking is the tool DMS II provides for use by the 
transaction routines so that all the consistency constraints will be preserved in a 
multiprogramming mix. 

How is record level locking to be used to preserve consistency? Fortunately, there is a 
solution which is characterized very simply: When an arbitrary mix of transaction routines 
is run concurrently, all transactions must be two-phase in order to preserve consistency. 
Unless all transactions are two-phase, it may be possible for the transactions routines to 
execute in such a manner that consistency is not preserved. In fact, if all transactions 
are two-phase, no transaction will ever see the consistency constraints violated except as 
it temporarily violates them itself during the course of its update. 

What is a two-phase transaction? As explained above in the definitions in Section I, a 
transaction is two-phase if it can be divided into a growing phase followed by a shrinking 
phase. During the growing phase, it locks records but does not free any-. During the 
shrinking phase, it frees records but does not lock any. Furthermore, if a record is to be 
updated, it must be retrieved with an exclusive lock. Records which are retrieved but not 
updated can be shared among readers (or locked exclusively), but must be locked against 
retrieval by potential updaters. 

Two-phase transactions have the following ramifications for DMS II. 

1) FIND cannot be used at all, only LOCK. 

2) Since LOCK obtains the record exclusively, records cannot be shared among readers. 

3) Care must be taken, because DMSII docs an implicit FREE when appropriate before 
retrieving the requested record. Thus, a LOCK may be equivalent to a FREE 
followed by a LOCK, which is clearly a violation of the two-phase condition. If 
more than one record in a data set must be locked, the data set must be invoked 
more than once because of the implicit FREE. DELETE followed by a selection 
expression is equivalent to a LOCK followed by DELETE <data set name>. Thus, care 
must also be taken in using DELETE so that unwanted implicit FREEs are not 
executed . 

4) Since ENDTRANS ACT I ON frees all records, execution of the next two-phase 
transaction is facilitated. 

5) It may be possible to minimize the potential bottleneck caused by records locked 
by many transactions. (An example of such a record would be a record containing a 
data item which holds a total — for example, a bank total in a banking 
application.) This can be done by locking such records INSIDE transaction state as 
the last record locked in the transaction, updating it, STOREing it, and 
immediately FREEing it. (Note: a deadlock cannot occur when locking a record if 
no records are ever locked after it by any transaction.) This scheme keeps the 
record locked for the shortest possible time. 

To illustrate the concept of consistency, consider the following example. Suppose the 
consistency constraint to be preserved is that data item A of record Rl is equal to data 
item B of record R2 . The following two transaction routines, Tl and T2 , written in 
pseudo-COBOL preserve the consistency constraint that A=B when run alone. 
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Tl 



LOCK Rl . 

COMPUTE A=A+100. 
STORE Rl . 
FREE Rl . 
LOCK R2 

COMPUTE B=B+ 100. 
STORE R2 . 
FREE R2. 



T2 : 



LOCK Rl . 
COMPUTE A=A*2. 
STORE R 1 . 
FREE R 1 . 
LOCK R2. 
COMPUTE B=B»2. 
STORE R2. 
FREE R2 . 



When Tl and T2 are run concurrently, the consistency constraint 
The following schedule happens to preserve consistency. 



ly or may not be preserved. 



Tl 



LOCK Rl . 

COMPUTE A=A+100. 
STORE Rl . 
FREE Rl . 



LOCK R2. 

COMPUTE B=B+100. 
STORE R2. 
FREE R2 . 



T2: 



LOCK Rl . 
COMPUTE A=A*2. 
STORE Rl . 
FREE R 1 . 



LOCK R2 . 
COMPUTE B=B»2. 
STORE R2. 
FREE R2 . 



It is not difficult to prove that if A=B initially, then if Tl 
following schedule, A will not be equal to B upon termination. 
B|100.) Thus, the following schedule destroys consistency. 



and T2 execute with the 
(In fact, A will be equal to 



Tl 



T2: 



LOCK Rl . 

COMPUTE A=A+100. 
STORE Rl . 
FREE Rl . 

LOCK Rl . 

COMPUTE A=A*2. 

STORE Rl . 

FREE Rl . 

LOCK R2 . 

COMPUTE B=B*2. 

STORE R2 . 

FREE R2 . 
LOCK R2 

COMPUTE B=B+100. 
STORE R2. 
FREE R2. 

Tl and T2 both violate the two-phase condition, because "FREE Rl" is followed by "LOCK R2". 
If "FREE Rl" were eliminated, then both Tl and T2 would satisfy the two-phase condition, and 
consistency would always be preserved. Note that if Rl and R2 were records from the same 
data set, then the data set would have to be invoked twice to eliminate the "FREE Rl" — if Rl 
and R2 used the same workarea, "LOCK R2" would perform an implicit "FREE Rl " . 

Achieving the two-phase condition with DMS II can be a problem because of the implicit FREE. 
It is not convenient to invoke a data set once for every record in the data set that might 
have to be locked concurrently unless the number of such records is very small. What, then, 
are the alternatives? 

The alternatives to the two-phase condition are programmatic conventions. The two-phase 
theorem states that if an arbitrary set of transaction routines is two-phase, 
multiprogramming them will not cause loss of consistency. The key word here is "arbitrary". 
The user can use programmatic conventions to prevent loss of consistency, for then the mix 
of transactions is not arbitrary. 

The idea behind such programmatic conventions is to always LOCK certain "control" records 
before retrieving or updating a well defined collection of certain other "protected" 
records. The control record(s) are kept locked while the protected records are accessed 
and/or updated. This insures that access to the protected records is single threaded. 
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One example is LOCK TO MODIFY DETAILS. The master record must be locked before any of its 
details or any of the details of its details etc. can be updated. Each master record is a 
control record, and a master record and all its descendants are the protected records. In 
this case the convention happens to be enforceable by DMS II, but it is only applicable to 
embedded structures. 

Another convention, which is generally applicable, is to always lock a certain disjoint 
record, such as global data, as the first operation in all transactions. This record is 
kept locked until the completion of the transaction. This convention may not be pratical 
for some applications, however, because it effectively single threads update access to the 
entire data base and, consequently, decreases potential throughput. 

Thus, it is expected that in many cases the user will define a locking strategy which i s not 
two-phase but allows a reasonable degree of concurrency in updating the data base. Such 
strategies can be considered equivalent to two-phase as follows. During the first part of 
the transaction, control records are locked, and no records are freed. This corresponds to 
the first phase of a two-phase transaction. Any accesses to the protected records after the 
last control record is locked until the first FREE of a control record are considered to be 
in the MIDTRANSACTION phase. The protected records are accessed only in the midtransaction 
phase. The mi dt ransac t i on phase corresponds to the point between the phases of a two-phase 
transaction. The freeing of the control records corresponds to the second phase of a 
two-phase transaction, and no control records may be locked during this phase. 

The midtransact ion phase turns out to be very important, as will be discussed in the 
following subsection on reproducibility. 

1 . 2 Reproducibi 1 i ty 

DMS II was designed to allow a high degree of concurrency in order to maximize total 
throughput. This implies that it is highly desirable to have multiple update programs 
running concurrently. When multiprogramming is used, the question of reproducibility of 
results arises. For example, if it is necessary to reload a backup dump of the data base 
and reprocess transactions, will the results be the same? The answer is, in general, no. 
If the data base was updated in a mul t i programmed fashion, reproducibility of the previous 
results will not be achieved unless it was designed into the application from the beginning 
This lack of reproduc i bl i t y is caused by random timing behavior and the interaction ot 
transactions. DMS II recovery aggravates the problem, because it backs out a number of 
transactions which must then be reprocessed before new transactions are processed. 
Reproducibility of previous results when reprocessing backed-out transactions is a problem. 

It turns out that the midt ransac t ion phase is the key to reproducibility. Concurrently 
executing transactions which are in their midt ransac t ion phase are independent of each 
other. Two-phase transactions have disjoint collections of records locked. Transactions 
using programmatic conventions equivalent to two-phase have disjoint collections of control 
records locked, and do not share any protected records. (Note: If DMS II had a type of lock 
which would enable a record to be shared among readers but protected against access by 
updaters, the collection of records locked would not be strictly disjoint. However, the 
transactions would still be independent. None of the records shared by readers could be 
changed, and, thus, no decisions based on shared records which were made by any ot the 
transactions could be invalidated.) 

This independence means that it is easy to construct a serial schedule for executing such 
concurrent transactions which is equivalent to the original mu 1 t i programmed schedul e , viz 
they can be executed serially in any order whatsoever. There is no ordering constraint, 
since the transactions are updating disjoint parts of the data base and do not interact. 

Consider two concurrently executing transactions, A and B. Suppose A is in midt ransac t ion 
phase, and B is in the first phase. Finally, suppose B is waiting on a record which A has 
locked. Then in general, the results of B may depend upon the results of A. Note, however, 
that B cannot enter midt ransac t i on phase until A has completed mi dt ransac t ion phase . 
Because of the locking strategy, if A is run alone followed by B, then the results will be 
the same. In fact? it can be proven that the order in which transactions enter 
midtransaction state determines an order in which the transactions can be run in an 
equivalent serial schedule. 

Thus, midtransaction phase is the key to reproducibility. What the Transaction Processing 
System does is to have the Update Library transaction processing routine execute a new vero 
MIDTRANSACTION, when it is in midtransaction phase. Among other th i ngs , t hi s ca us es a 
procedure in the Transaction Library to be called which saves the t ransac t i on i nput r ecord 
in a transaction history file. If the transaction input records in the transaction history 
file are reprocessed serially in the order in which they are encountered, then the results 
obtained when originally updating the data base will be reproduced. 

There is one more wrinkle to reproducibility. Suppose there is a P ro 8 r » m e "°^ , in ? 
transaction processing routine, or an error in the data in a transaction input record such 
that when that record is processed, a fault always occurs causing an abort recovery. wnen 
this transaction record is reprocessed after the backout, an abor wi 1 1 occur aga ^ In 
order to avoid an infinite loop, the Transaction Processing System no t ices tha a part . cut r 
transaction record always causes an abort and ultimately rejects it T his i " tr ° du = e * a n * w 
reproducibility problem, because other transactions may have depended on om ,' e ^„* { " * n 
the erroneous transaction had freed in its second phase. Since the erroneous t ransac t . on 
will ultimately be discarded, the results of the rerun mode can t hen be d i f f e rent »« * J 
undesirable, because output may already have been sent to remote terminals. This problem 
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called the terminal reproducibility problem. 

There are two solutions to the problem of terminal reproducibility. The first is to have 
all transactions use the SYNC option at END-TRANSACTION to protect themselves from erroneous 
transactions. It is expected that this solution will not commonly be used, because of the 
increased overhead and decreased potential throughput. The other solution is to keep all 
records (or in the case of programmatic conventions equivalent to two-phase, all control 
records) locked until the end and let END-TRANSACTION free them. Once END-TRANSACTION has 
been executed, the transaction can no longer cause an abort, and the records it has modified 
can not be accesed until then. It is expected that this is the convention that will be 
followed (in addition to the two-phase condition or an equivalent convention) by the 
transaction processing routines in the Update Library. 

1 . 3 Summary 

In programming the Update Library, it is expected that a programmatic convention equivalent 
to two-phase will be used, and that all control records will be kept locked until freed by 
END-TRANSACTION. FIND may not be used (except on protected records). Care must be taken in 
handling the implicit FREE performed by FIND, LOCK, and DELETE. 

In order to minimize the amount of time spent in transaction state, as many records as 
possible should be LOCKed outside of transaction state. If no records are locked inside 
transaction state, BEGIN-TRANSACTION is the last command which can return a DEADLOCK 
exception. Also, this makes deadlock handling as simple as possible — merely branch back to 
the beginning of the transaction (since the data base could not have been changed outside of 
transaction state). 

2. Programming the Update Library 

Although the Update Library is user written, it must conform to certain conventions 
established by the transaction system. The user is required to provide one procedure as an 
entry point to the library which has a function flag passed as the first parameter. This 
function flag indicates which of the five basic functions are to be performed. The entry 
point must be declared as follows: 

PROCEDURE ACCESSDATABASE(FUNCTIONFLAG, TRIN, TROUT, SAVEINPUT, 

SAVEOUTPUT ) ; 
VALUE FUNCTIONFLAG; 
INTEGER FUNCTIONFLAG; 

TRANSACTION RECORD (TRB) TRIN, TROUT; 
PROCEDURE SAVEINPUTO; FORMAL; 
PROCEDURE SAVEOUTPUT( ) ; FORMAL; 

Based on the value of FUNCTIONFLAG, one of the following will be performed ; 

OPENDATABASE 

for UPDATE ( f unc t i onf 1 ag = 1) 
for INQUIRY ( f unc t i on f I ag = 2) 

UPDATE (function flag = 3) 

FORCEABORT ( f unc t i onf I ag = 4) 

CLOSEDATABASE ( f unc t i on f 1 ag = 5) 

The user writing the Update Library is not restricted in how he chooses to implement these 5 
functions. For convenience, we will describe them as procedures and give them the names 
suggested above, although they do not have to be implemented this way. 

We have forseen three approaches to setting up the Update Library, and have established 
guidelines for the user for each approach. The first approach is the general case, where 
the user will declare and open the ENTIRE data base in the Update Library. 

2.1 Method One Invoke Entire Data Base 



The five functions provided via ACCESSDATABASE within the update library must perform the 
f o 1 1 owi ng 

OPENDATABASE ( update or inquiry ) 

Each of these procedures must open the entire data base. The Transaction Library expects 
the open to occur so that recovery will be initiated on the data base if it is required. 
Note that the OPEN option for update must be "TRUPDATE" . 
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UPDATE( TRIN, TROUT, SAVEINPUTTR, SAVERESPONSETR ) 

This function is called by the Transaction Library to process a transaction (TRIN) which has 
been passed from the user's application program as a parameter to PROCESSTRANSACTION. The 
procedure must generate a response transaction (TROUT) which is passed back through the 
transaction system to the user program. SAVEINPUTTR and SAVERESPONSETR are procedures in 
the Transaction Library which are passed as formal parameters to the Update Library. These 
procedures are part of the mechanism by which the transaction system retains some control 
over what happens in the UPDATEL I BRARY , and is able to ensure that recovery will work. The 
details of the recovery operations are discussed elsewhere in this document. 

A user routine that processes a transaction record must execute at most a single 
BEGINTRANSACTION/ENDTRANSACTION pair. All Update Library routines must use the same locking 
strategy — either two-phase locking or an equivalent programmatic convention. The records 
should remain locked until freed by ENDTRANSACTION. The reasons for this are discussed in 
section V.l above. The Transaction Processing System will not enforce two-phase locking. 
If two-phase locking or an equivalent programmatic convention is NOT used, reproducibility 
of previous results will probably not be achieved upon completion of a recovery. 

In addition, the user routines should be programmed so as NOT to depend upon variables or 
DMS II paths from previous transactions. The routines should be programmed so that the 
input transaction record has complete information necessary to process the transaction. The 
Update Library is private. Thus, during normal processing its internal variables will be 
maintained between successive calls, since it is only attached to one user program. 
However, after a DMS II recovery occurs, the Transaction Processing System will use a single 
copy of the Update Library to reprocess backed out transactions. Therefore, this copy of 
the Update Library will see the requests for the various users interleaved when the 
Transaction System reprocesses the transactions backed out by DMS II recovery. 

For example, suppose the user writes a pair of Update Library routines. The first routine 
is to process the first member of a data set, and the second is called repetitively to 
process successive members of the data set until there are no more. Finally, suppose that 
the data set is to be processed in order of an index-sequential set, S, which has key item K 
and NO DUPLICATES. Then the second routine should not use "FIND NEXT S" . This is because 
the path of the set S can be changed during rerun mode by transactions interleaved from 
other users. The routine should instead use "FIND S AT K > OLDVALUE" where OLDVALUE is an 
item in the input transaction record which the calling user program sets equal the the value 
processed on the previous transaction. (The Update Library routine would have to return 
this value in the transaction output record.) This technique makes the Update Library 
routine independent of the current value of the path for S. If "FIND NEXT S" were used, the 
routine would appear to work properly during normal processing. It would, however, probably 
prevent reproducibility after a recovery. Note that this type of error may be difficult to 
track down. 

Update Library routines must execute BEGINTRANSACTION, M I DTRANS ACTION, and ENDTRANSACTION in 
that order, or the Transaction system will return an error. It is the responsibility of the 
Update Library programmer to ensure that MI DTRANS ACT I ON is executed in the mid t ransac t i on 
phase of the transaction. The SAVEINPUT procedure must be mentioned in the MIDTRANSACTION 
statement and is implicitly called at that point. Similarly, the SAVEOUTPUT procedure is 
mentioned in the ENDTRANSACTION statement and is implicitly called at that point. 

For inquiry transactions (the only kind permitted for inquiry mode), SAVERESPONSETR must be 
called explicitly and BEGINTRANSACTION, MIDTRANSACTION and ENDTRANSACTION are not allowed. 



< lock all required records > 
BEGINTRANSACTION (TRIN) RDS ; 

MIDTRANSACTION (TRIN, SAVEINPUT ) RDS; 

ENDTRANSACTION (TRIN, SAVEOUTPUT ) RDS; 

The UPDATE procedure will probably be structured so that the input transaction is processed 
based on its format and subformat type. The following is an example 

PROCEDURE UPDATE (TRIN, TROUT, SAVEINPUT, SAVERESPONSE) ; 
BEGIN 

CASE TRFORMAT(TRIN) OF 

BEGIN 
(fmt 1): 
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(fmt 2): 

( f m t n ) : 

CASE TRSUBFORMAT(TRIN) OF 
BEGIN 
(sfmt 1): 

(s fmt m) : 

< process transaction with format n, subformat m >; 

END SUBFORMATS; 
END FORMATS; 
END; 
3 . FORCEABORT 



This function must be provided in the Update Library for the Transaction Library to call in 

?h? e flPF^ A TARA«P a " a S° rt S? P rocedure mU ? t CL0SE the data base < SIB > that was °Pe«ed in 

he OPENDATABASE procedure. This procedure will be called only when the data base is in 
transaction state, so the CLOSE wi 1 1 cause the abort. 



4 . CLOSEDATABASE 



This function also must CLOSE the data base. It will be called as the result of the 
application program call rng CLOSETRBASE procedure or by the Transaction Library if the ■■--- 



e user 



forgot to call CLOSETRBASE and he is exiting the library. 

In the general case the FORCEABORT and CLOSEDATABASE procedures perform the same function. 

2.2 Method two : Invoke Part of the Data Base 

The second approach to writing the Update Library arises out of the need to break up the 
data base into logical data bases and to be able to invoke only a portion of the data base. 

"J!"* 'Ij e Eu^ie"? approach the user must open the ENTIRE data base in OPENDATABASE and 

,1 !?,■ f, ENTIRE data ba ? e ,n CLOSEDATABASE. With the second approach the user does not have 

to strictly conform to the restrictions of the previous method, but must be careful to 
provide the checks he needs to accomplish the same thing. 

1. OPENDATABASE (inquiry or update) 

The user must open some por t i on of the data base here so that recovery will run if needed 
If opening the logical data bases is allocated to other procedures, then the user can get bv 
with only invoking the restart data set here. The function flag indicating whether the open 
was inqu.ry or update should be saved so that subsequent opens are done consistently 

2. UPDATE(TRIN, TROUT, SAVEINPUTTR, SAVERESPONSETR) 

?nI^?H Pr ° CeSS -?? 8 transaction, the relevant portion of the data base must be invoked or an 
r a ilL„??Ki W f resuIt : Sln P« the entire data base is not opened in OPENDATABASE, the user 

proce^ng'tne t?ansacHon 8 tHat ^ ""^ P ° r,i ° n " °""" d 3 ' "" "° int > ri - '• 

A suggested approach is for the user to group transaction formats into subbases of the 
transaction base to correspond to logical databases of the data base. Then i t can be 
insured hat transaction records in a given subbase will refer to only those structures 
invoked in the corresponding logical data base. structures 

n^2f, , i , ?i,^ U ^ baSe nun,b f r '" the control part of the transaction record being processed, the 
Update L'brary can call the appropriate procedure to handle that subbase. A global for each 
of the subbases can be kept to tell if the procedure is being called for the first t me and 
if so, an OPEN must be performed on the logical database. This way only those par of ,he 
Inl^A '!. *V"a h V be ' ng USCd by ,h ' S aPP'ication program wi 1 I be invoked, and they will be 
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FORCE- .JORT 



When the Transaction Library is notified that the last transaction did not complete 
successfully in the Update Library, it calls FORCEABORT to close the SIB that was used by 
the transaction. Where there are multiple SIBs open, the Update Library must have a global 
value to keep track of the logical database referred to by the last transaction. Then, if 
FORCEABORT is called, it knows which portion of the data base (SIB) to close. 

4 . CLOSEDATABASE 

The Update Library must be able to close ALL logical data bases that have been invoked by 
the application program. Again, a global value for each logical data base would be 
sufficient to determine which logical data bases need to be closed. 

2.3 Method three : Multiple Libraries 

A variation to the second approach might involve the use of libraries to divide up the code 
associated with each logical data base. Since the concept of the Update Library is to have 
ALL of the code accessing the data base logically in ONE CODEFILE, it is forseeable that a 
user might generate an enormous codefile for the Update Library. It might be necessary to 
break up the codefile into pieces and only use the portions that are required at any given 
t ime . 

This can be easily accomplished with the use of libraries. The Update Library could contain 
library declarations. for many other libraries, which would provide the appropriate UPDATE, 
OPENDATABASE , FORCEABORT and CLOSEDATABASE functions for groups of transactions records. 
The Update Library would then route each transaction to the appropriate library that is 
handling that format. To simplify this process the user can group related transactions 
together in subbases in TFL and then route each transaction record based on its subbase 
numbe r . 

If the user has related a transaction subbase to a logical data base, then the library that 
handles a particular subbase would only have to open a logical data base rather than the 
entire data base. 

Since the subbase number has not yet been implemented as a compile time construct (as format 
numbers have) the actual number given a particular subbase must be written into the program. 
This will not be necessary when subbase numbers are generated at compile time based on the 
name of the subbase. Subbase number 1 is always given to the entire transaction base. Thus a 
transaction created where the entire transaction base was invoked will always get subbase 
number 1. The user should also be careful to notice any changes in subbase numbers as a 
result of adding or deleting subbases in a TFL update. 

By allocating the task of determining whether a subbase has been opened to the update 
procedure in the subbase libraries, the Update Library would not have to keep track of what 
has been opened. Thus, the individual libraries would need to provide only two functions 
for the Update Library to use, UPDATE and FORCEABORT. Note that the Transaction Library 
will continue to call the ACCESSDATABASE procedure in the principle Update Library to 
perform the appropriate function. 

2.4 Example of Update Library 

Whatever approach the user takes in implementing the Update Library, the library must 
provide the specific external entrypoint discussed above, and must be compiled as <trbase 
name>/CODE/UPDATELIB so that the Transaction Library can find it. 

An example of the form an Update Library would have is shown below in a "skeleton" written 
in Algol. Along the lines of method three above the example uses libraries to provide the 
code which does the actual processing of the transaction records. The code provided via 
these other libraries can be in any language. 



$ SHARING = PRIVATE 
BEGIN % TRANSACTION UPDATE LIBRARY 

LIBRARY DBSUBONE ( TITLE = "TRBASE/UPDATELIB/SUBONE "); 

PROCEDURE ACCESSSUBBASEONE(FUNCTIONFLAG, INQ,TRIN,TROUT, 
SAVEINPUT, SAVERESPONSE ) ; 
VALUE FUNCTIONFLAG, INQ; 
REAL FUNCTIONFLAG, INQ; 
TRANSACTION RECORD (TRB) TRIN, TROUT; 
PROCEDURE SAVEINPUTTRO ; FORMAL; 
PROCEDURE SAVERESPONSETR() ; FORMAL; 
LIBRARY DBSUBONE; 
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LIBRARY DBSUBTWO ( TITLE = "TRBASE/UPDATELIB/SUBTWO " ) ; 

PROCEDURE ACCESSSUBBASETWO(FUNCTIONFLAG, INQ, TRIN, TROUT, 
SAVEINPUT, SAVERESPONSETR ): 
VALUE FUNCTIONFLAG, INQ; 
REAL FUNCTIONFLAG, INQ; 
TRANSACTION RECORD (TRB) TRIN, TROUT 
PROCEDURE SAVEINPUTTRO ; FORMAL; 
PROCEDURE SAVERESPONSETRO; FORMAL; 
LIBRARY DBSUBONE; 

DEFINE UPDATEV = 1 #, 

FORCEABORTV = 2 #; 

% g 1 oba 1 variables 

REAL LASTSUBBASE, OPENTYPE; 



PROCEDURE FORCEABORT; 
BEGIN 

CASE LASTSUBBASE OF 

BEGIN 

( 2 ) : 

ACCESSSUBBASEONE( FORCEABORTV , SAVEFUNCTIONFLAG , TRIN , TROUT 
SAVEINPUT, SAVERESPONSE) ; 
( 3 ) : 

ACCES S SUBBASETWO ( FORCEABORTV , S AVEFUNCT I ONFLAG , TR I N , TROUT 
SAVEINPUT, SAVERESPONSE) ; 

END OF CASE; 

END; 

PROCEDURE UPDATE(TRIN, TROUT, SAVEINPUTTR, SAVERESPONSETR) 

TRANSACTION RECORD (TRB) TRIN, TROUT 

PROCEDURE SAVEINPUTTRO; FORMAL; 

PROCEDURE SAVERESPONSETRO; FORMAL; 

BEGIN 

LASTSUBBASE := TRIN.TRSUBBASE; 
CASE TRIN.TRSUBBASE OF 
BEGIN 
( 2 ) : 

ACCES S SUBBASEONE ( UPDATEV , S AVEFUNCT I ONFLAG , TR I N , TROUT , 
SAVEINPUT, SAVERESPONSE) ; 

% invokes library DBSUBONE 
( 3 ) : 

ACCES S SUBBASETWO ( UPDATEV , S AVEFUNCT I ONFLAG , TR I N , TROUT 
SAVEINPUT, SAVERESPONSE) ; 

% invokes library DBSUBTWO 

END OF CASES; 
END; 

PROCEDURE ACCESSDATABASE(FUNCTIONFLAG, TRIN, TROUT, SAVEINPUT, 
SAVERESPONSE) ; 

VALUE FUNCTIONFLAG; 

REAL FUNCTIONFLAG; 

TRANSACTION RECORD (TRB) TRIN, TROUT 

PROCEDURE SAVE I NPUT ( ) ; FORMAL • 

PROCEDURE SAVERESPONSE() : FORMAL 
% EXTERNAL ENTRYPOINT 
BEGIN 

CASE FUNCTIONFLAG OF 
BEGIN 



* OPEN UPDATE 

OPENTYPE := FUNCTIONFLAG; 

% OPEN INQUIRY 

OPENTYPE := FUNCTIONFLAG; 

% UPDATE 

UPDATE(TRIN, TROUT, SAVEINPUT, SAVERESPONSE) 

% FORCEABORT 

FORCEABORT; 

% CLOSE DATABASE 

% LET BLOCKEXIT DO IT; 



END; 
END ACCES SDATABASE; 

tt»»M)lt(MIMMtMI MailtlllttttKlltlXMItlMXIMI 



******* 
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EXPORT 

ACCESSDATABASE; 

FREEZE( TEMPORARY) ; 
END OF LIBRARY. 
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2.5 DMS Exception Handling 



The Transaction library reprocesses transactions backed out during an abort, so the Update 
library does not have to be concerned with abort detection and restart. The Update library 
does however have to be concerned with other DM exceptions that can be returned from DMS 1 1 . 
The exceptions are the same as for any other DM program, except for some differences at 
OPEN, BEGINTRANSACTION, MIDTRANSACTION and ENDTRANSACTION. The exceptions that can be 
returned at these DM statements are as follows: 

at OPEN : 

OPENERROR 

(all previous values of openerror plus two new values) 

45 - this open option not permitted while TPS active. Program tried to do a regular 

OPEN UPDATE while another program is active with OPEN TRUPDATE. 

46 - this open option not permitted until TPS recovery completed an abort or Halt/Load 

has occured and TPS has not yet had a chance to reprocess the backed out 
transactions. A regular OPEN UPDATE can not be done until a TPS program runs, 
causing the rerun to occur. 

at BEGINTRANSACTION : 

ABORT 

1 - the normal abort exception that indicates a program should restart. This will 

never occur in a program using the TPS form of BEGINTRANSACTION. 

2 - an abort has happened and TPS has not yet performed the rerun. This transaction 

should just EXIT the update library. The Transaction library will take care of 
resubmitting this transaction after it does a rerun. 

DEADLOCK 

1,2 - the update library should branch back and relock its records if this occurs. 

AUDI TERROR 

1 - tried to do BEGINTRANSACTION and already in transaction state 

4 - tried to do normal BEGINTRANSACTION in program that is open TRUPDATE Should use 

new form of BEGINTRANSACTION passing a transaction record 

5 - used new form of BEGINTRANSACTION passing transaction record, but data base is not 

open TRUPDATE. 

6 - unexpected state of the transaction record. Indicates system software problem. 

DATAERROR 

I - some required items are null. 

at MIDTRANSACTION: 

AUDI TERROR 

3 - MIDTRANSACTION and not in transaction state. 

6 - unexpected state of transaction record. 

7 - data base not open TRUPDATE. 

at ENDTRANSACTION : 

ABORT 

1 - cant get normal abort exception in program using TPS form of 

ENDTRANSACTION. 8 

DEADLOCK 

1,2 - the Update library should branch back and relock its records if this occurs. 

AUDI TERROR 

2 - tried to do ENDTRANSACTION and not in transaction state 

4 " f^™ d rt f pvnTSi««»<U^ TRANSACTION in P r °8'am that is open TRUPDATE. Should use new 

form of ENDTRANSACTION passing a transaction record. 

5 - used new form of ENDTRANSACTION passing a transaction record, but data base not 

open IRUPDATE. 

6 - unexpected state of transaction record. Indicates system software problem. 

DATAERROR 

1 - some required items are null. 

If the Update library does not capture these exceptions the acces s rou t i ne s will cause the 
application program to be DSed, after which the private Transaction library, Update library 
and SIB will go away. J 

If the Update library is in transaction state when the exception is returned, an abort will 
be caused Since the application program has been DSed, no useful information can be 
returned about the cause of the ABORT. 

The Update library should capture the exception on each DM statement. Depending on the 
value of the result, the Update library can either handle the situation and proceed, or just 
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EXIT the Update library. If the Update library exits before doing a successful 
BEGINTRANSACTTON the Transaction library will notice and give a result to the application 
program ( result 505 - did not save a response transaction). If a transaction fails after 
BEGINTRANSACTION then an appropriate result will be returned to the application program and 
an abort will be caused. 

FAILEDAFTERBTR = 501 
FAILEDAFTERSAVEINPUT = 502 
FAILEDAFTERMIDTR = 50 3 
FAILEDAFTERSAVERESPONSE =504 

An inquiry transaction that does not go into transaction state must still save a response 
transaction before returning to the Transaction library. This can be done with an explicit 
call on SAVERESPONSETR. If this is not done the Transaction library will return a result 
505. 



5;; 
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REMOTE LIBRARY - HOST INTERFACE 



Users who have a B6800 Shared Resources System may wish to have their data base on one 
system and run application programs on another system in the network. Because of the large 
amount of communication that normally takes place between a DM program and the 
access rout i nes , trying to run a DM program on a remote system which interacts with 
acces s rou t i nes and data on a host system would be very inefficient. 

The Transaction System addresses this problem by providing the Remotelib and Hos t i n t e r f ace 
programs. The Remotelib runs on the remote system with the application programs. It is 
analogous to the Transaction Library that runs on the host system and provides the same set 
of entrypoints discussed in Section IV. 

The Remotelib, which is compiled on the host system using the TRDESCRIPTION file, must be 
copied over to the remote system, and can be copied as < t rbase>/CODE/HOSTLIB. Thus an 
application program on the remote system thinks that it has called entrypoints in the 
Transaction Library, but in fact has called the Remotelib because it is running on a remote 
sy s t em. 

When an application program calls the Remotelib for the first time, a library stack is set 
up which is common for all users of the Remotelib, and a private stack is set up. The 
private Remotelib stack then initiates the Hos t i n t e r face as a dependent process on the host 
system. There is one Hos t i n t e r face program per application program on a remote system. 

The Remotelib and Hos t i n t e r face then communicate via port files which have been declared and 
opened in each program. The Remotelib tells the Most interface which entrypoint the 
application program was trying to call and passes along the parameters. The Hos t i nt er face 
has declared the same set of entrypoints in the Transaction Library and simply makes the 
procedure call with the correct parameters. 

Thus the procedure call that the application program was trying to make on the remote system 
is actually made by the Hos t i n t e r face on the host system. The response to the procedure call 
is passed back to the Remotelib and on to the application program. The net result is the 
entrypoint in the Transaction Library was called, which accessed the data base and the 
result was received in the application program. 

Obviously, there is additional overhead involved in passing information back and forth 
through the port files, but other than a slower response, the application program should not 
be able to tell that it is not in direct communication with the Transaction Library and data 
base. 

There are some additional error conditions that the application program might receive from a 
call on the Remotelib. The program should be written to handle the errors if it will ever be 
run on a remote system even though it may run on the host most of the time. 

The Remotelib knows the ID of the system on which the data base is located because it is 
specified in TFL. If for some reason the identifier given in TFL is not a system ID known to 
the network, the Remotelib will return an error (100). 

If the Remotelib loses communication with the Host interface, either because of a data 
communications problem or a failure of the host system, the Remotelib can not continue with 
the procedure that was called. 

If the user specified a value for the TIMEOUT parameter of OPENTRBASE, then the Remotelib 
W1 ' ' wait for that length of time to see if the other system comes back up. If the TIMEOUT 
is zero or the other system does not come up, the program will get a (101) result. If the 
host does come up, a different result (102) will be returned to indicate that the program 
can try aga i n . 

The application program will have to handle these errors and resubmit the last input if 

necessary just as though it were restarting from a Halt/Load on its own system. The 

Returnres tar t info and Re t urn I as t r esponse procedures should be used to determine where to 
restart . 

The application program that receives the 101 result must first determine whether the host 
system is running before it can restart. It could periodically call an entrypoint in the 
Remotelib and receive (101) results until the host comes up, or simply terminate and let 
someone restart the program when the host system is back up. 

Another error condition that may occur is (103) which means that the response received from 
the Hos t i nt e r face is not the correct response. This indicates a problem in the port and 
signal median i sm . 

If for some reason the remote system goes down, the Hos t i n t e r face will terminate. Upon 
restarting, the Remotelib will initiate another Hos t i n t e r face if there is not an active one. 

When the user of the Remotelib is done, the Remotelib informs the Hos t i nt e r face and both 
programs terminate normally. 



C- 5 3 
MARK 3 . 1 



VII. TRANSACTION SYSTEM RECOVERY 



General 



A major objective of the Transaction System is to guarantee that any transaction which has 
been processed successfully is permanent, provided that certain assumptions and requirements 
are observed That is, the user never need be concerned with reprocessing transactions 
whose changes have been backed out by a data base recovery operation (Halt/Load or Abort 

Recovery) . 

It is neither desirable nor possible to prevent the Data Base System from backing out 
certain transactions during recovery. But those transactions can be automatically 
reprocessed by the Transaction System. The previous results must be reproduced during this 
process, since it must appear to the user that they have never been backed out. As a 
consequence, the innocent victim of another user's abort is unaware that the abort has 
occurred- after a Halt/Load, the user only has to be concerned with restarting his job and 
perhaps positioning his files. Note that if the user's program is running on a remote 
system when the host system suffers a Halt/Load, he may be unaware that the Halt/Load has 
occurred. 

The Transaction System is concerned with the following basic recovery operations: 

Data Base Abort Recovery 

performed by the Data Base System. 

Data Base Halt/Load Recovery 

performed by the Data Base System. 

Transaction Halt/Load Recovery 

performed by the Transaction System. The end-of-file for the current journal is 
recovered to avoid losing any information written to the file. The backed-out 
transaction records are identified and reprocessed. 

Transaction Abort Recovery 

performed by the Transaction System. The backed-out transaction records are identified 

and reprocessed. 

Transaction Journal Rollback 

performed by the Transaction System. The system can recognize when a Data Base 
Rollback (or the equivalent using Rebuild) has occurred. The transaction history is 
then rolled back to remain in sync with the data base. 

Disaster Recovery 

-- ■ ■ ■ • j ts au dit files are destroyed 




a its auani [lies arc ucauujcu 
n off-line dump of the data base 
tistory file after a given time. 
- records which have been tanked 



Application Program Restart 

with the aid of the Transaction System, the program determines where it was interrupted 
and continues from that point. 

Transaction Recovery Design Features 



The Transaction System facilitates recovery through the following design features and 

as sump t i ons : 

1. All Data Base transactions are designed by the user to be mutually independent. That 
is, they must be two-phase, or the equivalent; they must do nothing which depends upon 
knowledge of a prior transaction, and must keep records locked intil END-TRANSACTION. 
If this assumption is false, previous results may not be reproduced during transaction 
recovery. Refer to the section on the Update Library which defines the requirements of 
the user's data base transactions. 

2. All input transaction records are saved in a transaction history file. This guarantees 
that application programs need not recreate transactions already completed. 
Furthermore, the order in which the records are saved is precisely the order required 
to reprocess them in a single-threaded recovery operation which reproduces previous 
results. This order is achieved by saving each record while the data base transaction 
is between its two phases. 

3. The Data Base System maintains in its control file, and writes to the audit, the 
history file address of the transaction record corresponding to each data base 
transaction. Any recovery operation which moves the data base backward or forward in 
time maintains this file address in the data base control file. 
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4. A Halt/Load flag is maintained in the control file of each transaction journal, so that 
the Transaction System can recognize when a Halt/Load has occurred. 

5. The Transaction System can determine whether or not the transaction processor has 
performed the required sequence of operations, including BEGIN-TRANSACTION , 
MID-TRANSACTION, and END-TRANSACTION. It can also determine whether or not the 
transaction processor is in transaction state. These abilities permit the Transaction 
System to recognize when an abort has occurred, or when an abort should be forced by 
the Sys t em. 

6. For each identifiable user, a reference to either the last successful input transaction 
record or the last restart transaction record, and the corresponding response 
transaction are saved in the journal control file. The user can retrieve these records 
in order to determine where to restart an interrupted program. 

Transaction Halt/Load Recovery 



When the Transaction Library is initiated, it checks the status of the Halt/Load Flag in the 
journal control file. This flag is always reset when the Transaction Library terminates 
normally; if it is still set then the previous use of the library was either interrupted (by 
a Halt/Load or DS ; it doesn't matter which), or the last transaction caused a abort. 

The end-of-file for the current journal data file must be recovered to avoid loss of 
information written before the interruption. Next the data base is opened by the 
Transaction Library, which will cause data base Halt/Load Recovery if it is necessary. 

After data base recovery, the data base control file contains the history file address of 
the last input transaction record remaining in the data base. This address is retrieved 
from the data base control file, and compared with the address of the last transaction 
record in the history file. If they do not agree then transaction reprocessing is 
initiated. 

In the case where the final transaction caused an abort, the abort has possibly backed good 
transactions out of the data base, and the Transaction Library has not yet had a chance to 
reprocess the transactions. Leaving the Halt/Load flag on allows the Transaction Library to 
do the rerun automatically the next time it becomes active. The address in the data base 
control file will not match the address of the last transaction in the history file, and 
these backed out transactions will be reprocessed. 

Transaction reprocessing begins with positioning the history file to a point just beyond the 
address in the data base control file. Because of the order of transaction records in the 
history file, all the records prior to this point are in the data base, and all records 
after are not. Now the Transaction Library merely reads transaction records and passes 
them, one at a time, to the user's Update Library for reprocessing. It is important to note 
that the reprocessing operation must be successfully completed in order to assure reproduced 
results. Irrecoverable IO errors, for example, may have serious consequences. 

During this recovery operation, users attempting to process new transactions must wait until 
recovery' is completed. 



Transaction Abort Recovery 
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Once the occurrance of an abort is determined (or an abort is forced), other users are 
locked out and forced to wait until abort recovery is completed. The first user who tries 
to process a transaction after the abort has finished will be selected to initiate the rerun 
of backed out transactions, much like Halt/Load Recovery. After the abort has finished, all 
users can proceed with their transactions. 



5. Transaction Journal Rollback 

The initialization of the Transaction Library which checks for the occurrance of a Halt/Load 
may instead discover that the data base appears to be at a state prior to the state of the 
transaction journal. This situation is recognized when there has been no Halt/Load, but the 
history file address in the data base control file does not agree with the address of the 
last transaction record saved in the history file. 

This mismatch could occur either because an old data base control file has been loaded which 
does not reflect the state of the data base, the control file was initialized, losing the 
values of the last good transaction, or the data base has been rolled back or rebuilt. 

In the event that the user has done a rebuild or rollback of the data base, he should then 
run TRUTILITY to recover the journal control file to the same state as the data base and 
adjust the datafile end-of-file. This should be done prior to letting any programs access 
the transaction base, so that the transaction base and data base do not appear to be out of 
sync . 

If the Transaction Library does encounter a mismatch, it will notify the user and ask for 
instructions to either go on, overlooking the inconsistent states, or DS the program 
allowing the user to run TRUTILITY to recover the control file before proceeding. 



Application Program Restart 



The only aspect of recovery that an application program need consider is how to restart 
itself after an interruption (Halt/Load or DS) . Since the Transaction System saves a 
reference to the restart record of the last successful input transaction, and its response, 
for each user, all the program has to do is ask for these transaction records. This is 
accomplished by calling two of the Transaction Library procedures, RETURNRESTARTINFO and 
RETURNLASTRESPONSE, passing the user's id number. It must be assumed that these records 
have been designed to provide whatever information is required to restart. Because of other 
aspects of transaction recovery already discussed, the user is assured that the transaction 
record purported to be his last is in fact just that. 
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VIII. DMS II HOST SYNTAX FOR TRANSACTION PROCESSING 



1 . General 



It is important to be able to syncronize recovery of the Transaction System with recovery of 
the Data Base System. To accomplish this, certain extensions to the present application 
language interface to DMS II have been defined. H 



These extensions include (1) a new statement, MID- TRANSACTION; (2) optional extension, - 
the present BEG I N-TRANS ACTION and END-TRANSACTION statements; and (3) a new option for th 
data base OPEN statement (TRUPDATE) . Present syntax will continue to support DMS I 
applications which do not use the Transaction System. However, user code in the Undat 
Library must use the new syntax. p 



to 

he 

I 

e 



Statement Syntax 



All three statements must be able to pass a transaction record, in addition to nresent 
parameters, to procedures in the acces s rou t i nes . For the new forms only, NO-AUDIT i s the 
?< f °" .' i?^°i b . 2^I£;™ AN ?^ r "? N an ? END-TRANSACTION; in fact, i, is lot pe^.T.ed tl 



specify AUDIT or NO-AUDIT with these forms. 
COBOL 



BEGIN-TRANSACTION 

( — transaction record variable> — ) - 

AUDIT 

NO-AUDIT 

>-<restart data set name> — <exception> 



— MID-TRANSACTION — ( — <mid transaction parame t ers> — ) > 

>-<restart data set name> — <exception> i 



END-TRANSACTION 

( — <end-t ransact ion parameters) — ) - 

AUDIT 

- NO-AUDIT 

>-<restart data set name> <exception> 

- SYNC - 



<mi d-t ransac t i on parameters) 

— -.transaction record variable) — 
>-<saveinput procedure identifiers 



<end transaction parameters) 

— < t ransac t i on record variable) — , 
>-<saveoutput procedure identifier)- 
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ALGOL 

— BEGINTRANSACTION > 

( — transaction record variablo — ) 

AUDIT 

- NOAUDIT 

>-<restart data set name> — <exception> 



— MIDTRANSACTION — ( — <mid- t ransac t i on parameters) — ) > 

>--< res t ar t data set name> — <exception> | 



ENDTRANSACTION > 

( — <end-t ransac t ion parameters) — ) - 

AUDIT 

NOAUDIT 

>-<restart data set name> <exception> 

- SYNC - 



For both languages, transaction record variablo is the name of the formal input 
transaction record variable; <saveinput procedure identifier* is the name of the SAVEINPUT 
formal procedure; <saveoutput procedure identifier* is the name of the SAVEOUTPUT formal 
procedure. The procedures are untyped formal procedures with no parameters. In each case, 
the compiler will generate a call on the given procedure immediately prior to the call on 
the DMS procedure in the access rout i nes . 



3. OPEN Option 



The new OPEN option, TRUPDATE, must be used in the Update Library instead of the UPDATE 
option. Only when this option is used are the statements described above permitted. Note 
that it is still permitted to use the INQUIRY option; in this case, no forms of 
BEGIN-TRANSACTION, etc., are allowed. 
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IX. TRANSACTION SYSTEM UTILITY PROGRAM 



A Utility program serving several functions is available with the Transaction System. 
Currently there are four major functions allowing the user to initialize transaction 
journals , search through transaction data files, print information in the control file of a 
journal, and recover a control file that has been lost or damaged. The syntax for the 
Utility program is driven by the first word which presently can be INITIALIZE, SEARCH 
RECOVERCF, or CONTROL INFO. 

The program is tailored for a particular transaction base ( it is compiled using the 
t rdescript ion file). It also interprets the t rdescr ipt ion file at run time, if necessary, 
to provide formatted output for the specified transaction records. 

1. Journal Initialization 



When a user wants to create a new journal he must first run the Utility program to 
initialize one with the new name. UTILITY will check to see if any special attributes were 
specified for the journal in the TFL description. If there are no predefined attributes 
then UTILITY will use the default attributes specified in TFL. If there are no defaults 
given then standard defaults will be used. 

UTILITY wi I 1 create the file <t rbase>/< journal id>/CONTROL. The data files will be created 
as needed by the Transaction Library. The user will then be able to refer to this journal 
name in an application program as the parameter to the Transaction Library. 

The syntax for the INITIALIZE option is given below: 



— INITIALIZE <journalid> 
2. Search Data Fi les 



A major function of the Utility program is to search a specified transaction data file for 
certain transaction records and print them out. This is similar in function to PRINTAUDIT 
but has the capability to print formatted transaction records along the lines of INQUIRY. 

The syntax for the SEARCH option is as follows : 



SEARCH <journalid> 



-/1\- RANGE <range options> - 

-/1\- USERS <user option> 

-/1\- SELECT <tr options> 



<range options) 
' < 



I 
( /i\_ TIME = 



-/1\- FILE 



BEGIN 

<da t e t ime> - | | - 

<filenum> 

<filenum> TO <filenum> 



TO END 

- <datetime> 



) —I 



— <Month> — <day> 



|- <yts*r> -| 
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AT <hour> : <mi nut e> 



: <s*cond> 



, < f rac t ion> 
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<user option> 
__ ( AIX - 



|< , - 

I 
• — <int> - 



<tr opt i on s> 

— ( ALL : <a I 1 options> 



<format selecfor> : <formst options> 



<al 1 opt ions> 
| < 



I 



-/1\- PRINT 



HEX - 



-/I\- COUNT 



<format selector> 
— <formal id> 



- . <subfmt> -| |- WHERE <item cond> -| 



< forma t opt ions> 
| < 



-/1\- PRINT 



HEX 



< — 



ITEMS ( <item> ) 



-/1\~ COUNT 



< i t em cond> 
— < i t em name> 



> = 
> 



— <alpha valuo — 
- <numeric value> 
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Three verbs follow the SEARCH command and journal id which must be specified by the user. 
RANGE gives a time range between which UTILITY will search for transaction records; USERS 
gives the userids that are to be searched for; SELECT gives the transaction record types to 
be searched for and the appropriate action to take when one is located. 

Upon selecting a transaction record which satisfies the given selection criteria, the user 
can specify that it either be PRINTed or COUNTed or both. The printing of the records is 
the most useful function, and can optionally be done either formatted or in hex. The user 
can limit the printing to certain items within the record, and can even base the selection 
of a transaction record on the value of a particular numeric or alpha item. 
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3. Control File Recovery 

— RECOVERCF > 

> TRHISTORY I 

| I 

|- <journaiid> — TO — <stop point> — FILE — <filenum> -| 

<s t op po i n t > 

END OF 

- BLOCK — <blocknun» — OFFSET <int> — OF 

-<datetime> — IN 



A function to allow the TRHISTORY file to be recovered in case the control file is corrupted 
or the transaction system is out of sync with the data base is provided by this command. 

If the Transaction library notices that it is out of sync with the data base upon being 
invoked it will refuse to run. This could be caused by a rollback of the data base. The 
user can run UTILITY to do a RECOVERCF TRHISTORY which will effectively ROLLBACK the 
TRHISTORY file to a point where it is in sync with the data base. 

Another way that this function would be used is if the TRHISTORY control file had been lost 
or destroyed The user will need to take some action to recover a control file to work 
with, preferrably a copy of a recent one that the user dumped. If no copy is available the 
user could resort to doing an initialize to create the control file. The RECOVERCh 
TRHISTORY function will then get the control file in sync with the data base, using the 
TRHISTORY file which reflects changes to the control file up to the current point in time. 

A means to recover the control file for a tank file is also provided, but with slightly 
different syntax. Since tank files are not considered to be in sync with any part of the 
transaction system, the user must provide a point at which the control file is to be 
recovered to. 

The user can specify this point by giving either a datetime or a block and offset within a 
file or specifying that recovery should continue to the end of the particular f'le. 
UTILITY will use the data files to make updates to the control file so that it will reflect 
the state of the tank file at the stopping point specified. 

By specifying an earlier time, the user is able to roll back a tank file to a point in time. 
This allows the user to delete a series of transactions that he doesn't want to process 
later on. This function is not available for the TRHISTORY file. 

4. Print Control File Information 

— CONTROLINFO — <journalid> — , 1 



I- USERS -| 

Information in the control file of a journal can be printed with this funct ion. The table 
of contents or first block of the control file is printed by default. The USERS syntax 
causes the information about each known user for the journal to be printed, including the 
last response transaction and the location of the last restart transaction. 

Starting a UTILITY Run 



When initiating a UTILITY run, the parameters discussed above are passed as an array. Since 
UTILITY interprets the description file at run time, the file TR must be label equated at 



run tine. 

A example of a UTILITY job follows: 

RUN TRTEST/CODE/UTILITY(" INITIALIZE TRHISTORY"); 
FILE TFL = TRTEST/TRDESCRIPTION; 
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X. TRANSACTION SYSTEM SECURITY 



1. Guardfile Security 



abl 



The only security provided by the Transaction system is via guardfiles A DBA will be 
to restrict the use of transaction record types by program name and/or usercode. 

h»!r r fn n AA«Ai n bC TK S ° C r\Si ed WMh a t [ ansac « i °» subbase in TFL, just as with logical data 
base n DASDL. The DBA can use this to restrict access to transaction types which have 
logical y been grouped together. To a certain degree, this ability overlaps with the 
2??h ni 6 Sec " r ' ty A P rov,d ? d '". DASDL. but it can be used independently or in conjunct on 
with DM security A user might wish to restrict access to certain transaction re 
independent of whether he has logical data bases in the DASDL. mon records 

The Transaction Library is responsible for checking the transaction records against the 
guardfiles as they come through to be processed. Rather than checking EVERY transaction 
record from a user, the I'brary wi 1 I check the guardfile for each .ubb.se the fir i i 
is used, and remember whether the user was "OK". The subbase number is placed in the 
control portion of each transaction record when it is initialized. A record without a 
subbase number was not properly initialized and will be rejected wnnoui a 
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XI. CONVERTING TO THE TRANSACTION PROCESSING SYSTEM 



Converting an existing data base with all its application programs to use TPS may prove to 
b* impractical for some users. The only practical approach, where there are a large number 
of application programs, may be to convert some of the programs to TPS and continue to run 
the others as conventional DMS programs. To facilitate this step by step conversion, a 
variation of the Transaction System has been developed that allows both TPS and conventional 
DM programs to update a data base at the same time. 

There are restrictions to running in a mixed TPS mode which make it desirable only as a 
temporary means of converting an existing DM data base to use TPS, and not as a permanent 
way of operating. In this mode the problems of reproducibility are greatly magnified and 
the burden of insuring reproducibility falls on the user. 



i n 
are 



When TPS is the only updater of the data base and the Update library has been programmed 
a two-phase manner, then TPS guarantees reproducible results. But when other updaters 
running, even if they are programmed to be independent, TPS can no longer guarantee 
reproducibility unless extra restrictions are imposed. If any TPS transaction requires the 
same data base records as a non TPS program running at the same time, then the results 
produced by the TPS program may not be reproduced if the transactions have to be 
resubmitted. This is because TPS will resubmit only the transactions it knows about, and 
the sequence of events may not be reproduced. 

Reproducibility may be achieved even when TPS and conventional updaters run if suitable 
restrictions are imposed. The simplest restriction is to divide up the application programs 
into groups that access disjoint portions of the data base. If this can be done then one set 
of programs may be run through TPS and the other as conventional programs without attecting 
reproducibility of the TPS programs, since the order in which the non TPS transactions are 
reprocessed has no effect on the TPS transactions. 

Another alternative is to divide the set of applications into two groups which have the 
least amount of overlap, and take additional steps to ensure that there is reproducibility. 
The problem now centers around the application programs that access common port ions ot ttie 
data base. Either programmatic or operational guidelines must be followed to ensure 
reproducibility. An operational strategy might be to only run the programs that would 
destroy independence when TPS is not running. 

If this is not feasible, programmatic conventions can be followed to ensure that if a TPS 
program is referencing a certain portion of the data base, then a DM program can not . A 
global data set with a single record could be used as a lock to accomplish this. In addition 
to preventing an outside program from using this portion of the data base while the irs. 
program is active, it must also ensure that a sync point is caused when it is finished so 
that a subsequent program cannot cause its transactions to be backed out. 

Any other programmatic conventions that accomplish the same degree of independence will also 
work If a user does not care about results being reproduceable when transactions are 
reprocessed by TPS, then such restrictions are not necessary. Each user must analyze the 
degree of reproducibility they require and design their system accordingly. 

TPS and non TPS update is allowed by specifying a global data base option in DASDL. The new 
option is TPSDUALUPDATE and the default value is FALSE. Its value can be changed through a 
DASDL update. During the conversion process, the option should be set to TRUE; when all 
application programs have been converted, it should be reset to FALSE 



IMPLEMENTATION 

OF 

INTER-PROCESS COMMUNICATION 
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INTER-PROCESS COMMUNICATION 

Tasks executing on various hosts (or the same host) may communicate with each other by means of 
the Inter-Process Communication (IPC) facilities provided by Host Services. There are two forms of 
user interface to the IPC system: the full IPC interface and the logical input/output interface. 

The full IPC system facilities are currently defined and available only in the B6000/B7000 series 
DCALGOL language. The elements of the full interface are called ports and signals. Ports and 
signals are very general mechanisms for performing synchronous and asynchronous communication. 

The logical input/output interface is available in B6000/B7000 series ALGOL, FORTRAN, COBOL, 
COBOL74, and PL/I . The elements of this interface are simple files with a new KIND attribute value 
of PORT. Ordinary input/output operations may be used to perform IPC using these port files. 

The port provides the end-point functions for a set of connection paths between two or more 
processes. It performs segmentation and reassembly of messages as required by the connection 
path(s); it provides reliable delivery of text between the processes; it delivers text in the 
order in which it was sent by the processes; it provides a mechanism for associating requests and 
responses between processes. 



A port is described by a set of port attributes and a set of functions. If two processes wish 
communicate, each one opens a port with attribute values which are compatible with those that 
other process has specified for its port, and a path between them is established. 



to 
the 



Hos t 
A 



Port Port 



Connection Path 



Host 
B 



Connections between processes which desire to communicate are established based on the attributes 
of the port for each process. The port attributes are exchanged and the port connection is 
established via a series of messages transmitted between the hosts. All port connections, whether 
for Host Services processes or for user processes, are established in the same manner. 



1 .0 



DCALGOL LANGUAGE SYNTAX AND SEMANTICS 



1 . 1 DECLARATIONS 



Syntax : 



<port declaration) 

| < , 

I 
— PORT <port identifier> — <port attribute list>- 



<por t i dent i f i er> 
— <identi fier> — | 

<port attribute list> 



l<- 



I I 

|- ( <P or t attribute>- 



j- = <attribute value> -j 



<signal declaration) 
l< 



I 
SIGNAL <signal identifier) — <signai attribute 1 i s t >- 
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<s i gna 1 i dent i f i er> 
— <ident i fier> — | 

<signal attribute list: 



( <signal attribute) 



= <attribute value> 



<port array declaration) 
— PORT ARRAY 



> <port array id> — [<bound pair 1 i s t > ] — <port attribute list; 



<port array id> 
— < i den t i fier> — 



<signal array declaration> 
— SIGNAL ARRAY 

I < 



> <signal array id> — [<bound pair list)] — <signal attr list; 



<signal array id> 
— <ident i f i er> — | 

Ex amp 1 es : 

PORT PORTl(MYNAME«"TASKNAME."), 

PORT2; 
SIGNAL SIG(TIMEOUT=3); 

PORT ARRAY PARY1 [1:10] ( S ECUR I TYTYPE= PRIVATE) ; 
SIGNAL ARRAY SI GARY 1 [0:2,0:4] (RESPONSEREQUIRED=FALSE) , 
SIGARY2 [0:9]; 

Semant i cs : 



The <port declaration> declares an <identifier> to be a <port identifier) and specifies values for 
the port attributes associated with the declared port. 

The <signal declaration) declares an <identifier> to be a <signal identifier) and specifies values 
for the signal attributes associated with the declared signal. 

The <port array declaration) declares an <idcntifier> to be a <port array identifier), specifies 
the number of dimensions and the bounds for each dimension of the port array, and specifies values 
for the port attributes associated with each element of the port array. A port array can have up 
to IS dimens ions . 

The <signal array declaration) declares an <identifier> to be a <signal array identifier), 

specifies the number of dimensions and the bounds for each dimension of the signal array, and 

specifies values for the signal attributes associated with each element of the signal array. A 
signal array can have up to 15 dimensions. 

In the <port attribute list) and in the <signal attribute list), the <attribute valuos must be 
cons tant . 
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PORT ATTRIBUTES 



The following port attributes are available in 
Pointer-valued attribute values must end with a 
null ("."), meaning not specified. 

DSONERROR 



the full interface to ports 
period. Pointer-valued attribute 



and s igna 1 s . 
values may be 



Data Type: Boolean 
Get : any t' ime 
Set : any t ime 

The DSONERROR attribute indicates whether or not the task using a PORT should be DSed 
(caused to cease execution) when a run-time error on a SIGNAL or PORT operation or 
attribute occurs. The default value of the attribute is implementation specific, but 
should normally be TRUE. If DSONERROR is set FALSE, the task will not be DSed; instead, 
the SIGNALERROR attribute of the SIGNAL being referenced will be set to indicate the 
nature of the error. 

INTNAME 

Data Type: pointer 

Get : any t ime 

Set: when PORT is CLOSED 

The INTNAME attribute of a PORT is the name by which it is declared and referenced by the 
task which is using it. It has the same form as the file attribute INTNAME. 

MESSAGEEVENT 



Data Type: event 

Get: anytime 

Set: RESET/anyt ime. 



no other action allowed 



more MESSAGES have 
ved. In particular, 
nated by a remote 
either a RESPONSE originated by a 

continuation of a previous MESSAGE; 

affect the values of attributes of that 



The MESSAGEEVENT attribute for a PORT is caused whenever one or 

arrived at the PORT, and is reset when all MESSAGES have been rece 

the MESSAGEEVENT is caused when the MESSAGE being queued was orig 

SENDMESSAGE operation. It is not caused by 

SENDRESPONSE operation or by a MESSAGE which is a 

these are placed directly in a target SIGNAL and 

SIGNAL. 

MES S AGEQUEUEL I M I T 

Data Type: integer 
Get : anyt ime 
Set : anyt ime 

The MESSAGEQUEUELIMIT attribute indicates how many MESSAGES may be queued in the PORT. 
If the MESSAGEQUEUELIMIT is set to a value smaller than the current size of the queue, no 
additional inserts into the queue are permitted until the size of the queue falls below 
this MESSAGEQUEUELIMIT. Setting the value to causes it to revert to the system default 
value . 

If the number of MESSAGES queued for a particular PORT equals or exceeds the 
MESSAGEQUEUELIMIT value, then incoming MESSAGES are rejected. 



MES S AGEQUEUES I ZE 

Data Type: integer 
Get : anyt ime 
Set : get only 

The MES S AGEQUEUES I ZE attribute of 
queued in the PORT (they have not 

MYHOSTNAME 



a PORT gives the number of MESSAGES 
yet been received by the task). 



which are currently 



Data Type: pointer 
Get : anyt ime 
Se t : get only 

The MYHOSTNAME attribute contains the name of the host at which the task using the 
is executing. It allows tasks to be independent of the host at which they f execute , 

interrogating this attribute provides this information. """* " 

attribute is the set of logical host names. 



The range of values for 



PORT 

s ince 

thi s 
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MYNAME 



Data Type: pointer 

Ge t : any t ime 

Set: when PORT is CLOSED 

The MYNAME attribute is the name by which this task wishes to be known when opening the 
PORT. Its default value is the TASKNAME of the task opening the PORT. It may take on the 
same range of values as a FILENAME attribute. The value may also be set to " " meaning 
not spec i f i ed . 

PORTATTERROR 

Data Type: Boolean 
Get : read 
Set: get on 1 y 

The PORTATTERROR attribute has a value of TRUE if the last attribute action was in error. 
PORTERROR 

Data Type: integer 
Ge t : any t ime 
Se t : get only 

The PORTERROR attribute indicates various error conditions of the PORT. Some of the 
possible values are: 

NOERROR 

There are no errors. 
DISCONNECTED 

The PORT has been disconnected from its correspondent. 
NOHOST 

The attribute "YOURHOSTNAME" refers to an unknown host. 
HOSTNOTREACHABLE 

The attribute "YOURHOSTNAME" refers to a host that cannot be contacted at th« 
present t ime . 

PORTNAME 

Data Type: pointer 

Get : any t ime 

Set: when PORT is CLOSED 

The PORTNAME attribute of a PORT is the external name by which PORTs that are 
communication with each other are associated. The form of PORTNAME is that of a 
FILENAME. Its default value is the same as the INTNAME of the PORT. The value of 
PORTNAME may be changed at run time; however, the value of PORTSTATE must be CLOSED when 
this is done . 

PORTSTATE 

Data Type: integer 
Get : any t ime 
Set: get onl y 

The values of the PORTSTATE attribute are: 

CLOSED 

Either the task has not yet attempted to open the PORT or the task has completed a 
close operation on i t . No MESSAGES are queued for the PORT; SIGNALS which had used 
the PORT may or may not have a value of COMPLETED for their SIGNALSTATE. Any 
attempt to use the PORT in a SIGNAL operation will result in an error action. 



OFFERED 



The task has attempted to open the PORT but the opening of the PORT is not yet 
complete; the offer to open remains in the system until it is completed or withdrawn 
by the task. Any attempt to use the PORT in a SIGNAL operation will result in an 
error action. 



OPENED 
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The PORT may be used for SIGNAL operations. 

DEACTIVATED 

The PORT has been closed by the other task engaged in the conversation or by a 
disconnection between the hosts where the tasks in communication reside. The 
MESSAGES from that task which are queued for this PORT remain available to be 
dequeued and processed. However, any attempts to perform a SIGNAL operation other 
than RECEIVEMESSAGE using this PORT wi 1 1 result in an error action. When all queued 
MESSAGES have been removed, the PORTSTATE of the PORT becomes CLOSED. 

SUSPENDED 

Communication between the local host and the remote host has been temporarily 
interrupted, and may be resumed or discontinued depending on the actions of the 
remo t e hos t . 

PORTUSE 

Data Type: integer 

Get : any t ime 

Set: when PORT is CLOSED 

The attribute PORTUSE specifies how the PORT may be used. Some of the possible values 
are : 



IN 



OUT 



10 



May be used to do RECEIVEMESSAGE and SENDRESPONSE . 
May be used to do SENDMESSAGE and RECEIVERESPONSE. 



May be used to do all operations. 

STATEEVENT 

Data Type: event 

Get : any t ime 

Set: RESET/anyt ime, no other action allowed 

The STATEEVENT attribute for a PORT is caused whenever the value of its PORTSTATE 
changes . 

YOURHOSTNAME 

Data Type: pointer 

Get : anyt ime 

Set: when PORT is CLOSED 

The YOURHOSTNAME attribute specifies the host in the network which contains the task with 
which this task wishes to communicate using this PORT. Its default value is the value of 
the MYHOSTNAME attribute. 

YOURNAME 

Data Type: pointer 

Get : anyt ime 

Set: when PORT is CLOSED 

The YOURNAME attribute of a PORT in use by a task corresponds to and is the same value as 
the MYNAME of the task with which it is communicating. Its default value is "not 
specified" ("-")- 

1 . 3 SIGNAL ATTRIBUTES 

The following signal attributes are available in the full interface to ports and signals. 

CONFIRMATION 

Data Type: Boolean 

Get : anyt ime 

Set: when SIGNAL is COMPLETED 

If the value of the CONFIRMATION attribute of a SIGNAL is TRUE, the user will be informed 
(via the SIGNALSTATE attribute) of Network level acknowledgements to MESSAGES or 
RESPONSES sent. If the value of the CONFIRMATION attribute is FALSE, the user will not 
be informed of these acknowledgements. 
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MAXMES S AGETEXTS I ZE 

Data Type: integer 

Get : any t ime 

Set: when PORT is CLOSED 

The value of the MAXMES S AGETEXTS I ZE attribute of a SIGNAL is the limit on the size of the 
MESSAGETEXT of the SIGNAL in characters. Its default value is the maximum size permitted 
by the host system implementation. The user may change the value of this attribute, 
except that the value may not exceed the default value. 



MAXRESPONSETEXTS I ZE 

Data Type : i nt eger 

Ge t : any t ime 

Set: when PORT is CLOSED 



The value of the MAXRESPONSETEXTS IZE attribute of a SIGNAL is the limit on the size of 
the RESPONSETEXT of the SIGNAL in characters. Its default value is the maximum size 
permitted by the host system implementation. The value of this attribute may be changed 
by the user to any other value smaller than the default value. 

MESSAGETEXT 



Data Type : s t r i ng 

Get : any t ime 

Set: when SIGNAL is COMPLETED 



The MESSAGETEXT attribute of a SIGNAL is the text of the MESSAGE carried by the SIGNAL 
Its value is used in SENDMESSAGE operations and is changed by RECEIVEMESSAGE operations 
Its value is undefined if the MESSAGEEVENT is not in the HAPPENED state. 

MESS AGETEXTS IZE 

Data Type: integer 
Get : any t ime 
Se t : get onl y 

The MESS AGETEXTS IZE attribute indicates the current size of the MESSAGETEXT of a SIGNAL 
in characters. Its value is defined when MESSAGETEXT is defined. 

RESPONSEREQUIRED 

Data Type: Boolean 

Ge t : any t ime 

Set: when SIGNAL is COMPLETED 

The RESPONSEREQUIRED attribute of a SIGNAL indicates that a response must be sent for 
this mes sage . 

RESPONSETEXT 

Data Type : s t r ing 
Get : any t ime 
Set : any t ime 

The RESPONSETEXT attribute of a SIGNAL is used much like the MESSAGETEXT attribute, 
except that it is used to hold the RESPONSE to the MESSAGE in MESSAGETEXT. As such, its 
value is used in the SENDRESPONSE operation; it is changed by a RECEIVERESPONSE 

_any time, its value is undefined when the 

in the HAPPENED state. 



opera t i on . 
SIGNALSTATE 



While it is accessible 
is AWAITINGRESPONSE and the 



at any t ime , 
TEXTEVENT is not 



RESPONSETEXTS IZE 



Data Type: integer 
Ge t : any t ime 
Se t : get on I y 

The RESPONSETEXTS IZE attribute indicates the size of the RESPONSETEXT in 
Like MESS AGETEXTS IZE, this attribute is valid when the RESPONSETEXT is valid. 

SIGNALERROR 



charac t ers . 



Data Type: integer 
Ge t : any t ime 
Set: get on 1 y 

The value of the SIGNALERROR attribute of a signal indicates whether an error is 
currently associated with this SIGNAL, and if so, what kind of error. If the DSONERROR 
attribute of the PORT is TRUE, then the occurrence of one of these errors will cause the 
task performing the operation to be DSed. The SIGNALERROR attribute is reset to NOERROR 
when the SIGNAL is used in a SIGNAL operation. 
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Some of the possible values for SIGNALERROR are: 

NOERROR 

There is no error currently associated with the SIGNAL. 

NETWORKTIMEOUT 

The network control system encountered a timeout when it tried to transmit the 
MESSAGE or its RESPONSE. 

MESSAGEREJECTED 

A SENDMESSAGE has been performed and the MESSAGE sent has been rejected (for 
example, due to the MESSAGEQUEUELIMIT for the receiver's PORT being exceeded). 

RESPONSEREJECTED 

A SENDRESPONSE has been performed and the RESPONSE sent was rejected (for example, 
it could not be associated with a SIGNAL). It is possible to receive a SIGNAL 
claiming to be a RESPONSE to a MESSAGE for which no SIGNAL can be found because a 
SIGNAL may be CLEARed while at the same time the RESPONSE is in transit back to the 
originating host. If no SIGNAL can be found for the RESPONSE or if it is found and 
its SIGNALSTATE is not AWAITINGRESPONSE, the text of the RESPONSE will be discarded 
at the host where it is received, and the SIGNALERROR attribute will be set to 
RESPONSEREJECTED where the SENDRESPONSE was performed. If the SIGNAL used in the 
SENDRESPONSE has been reused by the time the rejection of the RESPONSE has been 
detected, then no error is reported. 



CLEARED 



A CLEAR operation has been performed on this SIGNAL, or the program waiting on some 
sort of signal operation was DSed by the operator. 



EMPTYSIGNAL 



A RECEIVEMESSAGE operation has been performed and there is no MESSAGE available at 
the PORT. 



TIMEDOUT 



The SIGNALSTATE of the SIGNAL has remained AWAITINGRESPONSE more than the number of 
seconds specified by the TIMEOUT attribute. The SIGNAL has been CLEARed, its 
SIGNALSTATE set to COMPLETED, and SIGNALERROR set to TIMEDOUT. 



PROTOCOL 



An operation was performed that is inconsistent with the current state of the 
SIGNAL; e.g., a SENDMESSAGE while the state of the SIGNAL is AWAITINGRESPONSE. 

CHANNELERROR 

The message could not be sent because the message transportation vehicle mechanism 
fai 1 ed. 

NOTTRANSMITTED 

An attempt was made to send a SIGNAL through a PORT whose PORTSTATE is SUSPENDED. 

SIGNALSTATE 

Data Type: integer 
Get : any t ime 
Set: get only 

Possible values for the SIGNALSTATE attribute are: 

COMPLETED 

No segments of the MESSAGE or RESPONSE based on this SIGNAL remain to be transmitted 
and no such segments await confirmation of their receipt. 

TRANSMITTING 

The PORT is in the process of transmitting a MESSAGE or RESPONSE based on this 
SIGNAL. If the MESSAGE requires segmenting, then some segments remain to be 
t ransmi 1 1 ed . 

AWAITINGACK 

The PORT has finished transmitting all segments of the MESSAGE or RESPONSE based on 
this SIGNAL but has not received confirmation of their receipt. 
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AWAITINGRESPONSE 

The local PORT has sent the MESSAGE associated with this SIGNAL whose 
RESPONSEREQUIRED attribute is TRUE and the PORT is ready for the remote user to send 
a RESPONSE to i t . 

RESPONSENEEDED 

The PORT has received a MESSAGE from the remote user, delivered it to the user, arid 
a RESPONSE must now be sent to the remote user. 



STATEEVENT 



Da t a Type : even t 

Ge t : any t ime 

Set: RESET/any t ime , no other action allowed 

The STATEEVENT attribute for a SIGNAL is caused whenever the SIGNALSTATE attribute 
becomes COMPLETED. It is reset when a SIGNAL operation is performed using the SIGNAL. 



TEXTEVENT 



Da t a Type : even t 

Ge t : any t ime 

Set: RESET/any t ime , no other action allowed 

The TEXTEVENT attribute for a SIGNAL is caused when a RESPONSE to a MESSAGE is received 
Additionally, this event will be caused when the SIGNAL times out (see the TIMEOUT 
attribute). This event is reset when the last RESPONSE is received. 

TIMEOUT 

Data Type: integer 

Ge t : any t ime 

Set: when SIGNAL is COMPLETED 

The TIMEOUT attribute of a SIGNAL indicates the number of seconds which may elapse 
between the time the SIGNALSTATE of the SIGNAL changes from AWAITINGRESPONSE to 
COMPLETED. The occurrence of a timeout will cause the TEXTEVENT and the STATEEVENT for 
the SIGNAL and set the SIGN\LERROR attribute to TIMEDOUT. 

A value of 0, which is the default value for this attribute, indicates that the timeout 
function is not desired. 

1.4 ATTRIBUTE ASSIGNMENT STATEMENTS 

Syntax : 



<port attribute assignment) 

— <port designator) — . <port attribute) — := — (expression) — | 

<por t de s i gna t o r > 



-<po r t identifier)- 



l | 

|-<port array identifier) — [<subscript list>] -| 



<signal attribute assignment) 

— <signal designator) — . <signal attribute) — := — (expression) — | 

<signal designator) 

<signal ident i fier> i 



-<signal array identifier) — [<subscript list)] -| 
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Ex amp 1 es : 



STRING STRG; 

PORT! . SECUR I TYTYPE:= VALUE (PRIVATE) ; 

S IG . MAXMESSAGETEXTS IZE : = 1 000 ; 

S I GARY i [ 1 , 4 ] . MES S AGETEXT : = STRG ; 



Seman tics: 



Port and signal attributes may be assigned values at runtime through attribute assignment 
statements. The type of the attribute and the type of the expression must match; for example, 
string attributes must be assigned string expressions. The <port attribute> and the <signal 
attribute;, cannot be pointer-valued attributes. 



1.5 ATTRIBUTES IN EXPRESSIONS 
Syntax and Semantics: 



<port designator> <port attribute> and <signal designator) . <signal attributo can be used in 
arithmetic, boolean and pointer expressions where <file identifier) < f i 1 e attributo would be 
allowed and where the type of the attribute is appropriate. <port designator) <s t r ing-val ued 
port attribute) and <signal designator) <s t r i mg-va 1 ued signal attribute) can be used as <string 
primary>s in <string expres s i on> s . 

Ex amp 1 e s : 



INTEGER STATE; 

POINTER PTR; 

STRING STRG; 

STATE : =PORT 1 . PORTSTATE ; 

IF PARY1[9] . SECURITYTYPE = VALUE (PRIVATE) THEN; 

REPLACE PORT2 . PORTNAME BY PTR; 

REPLACE PTR BY PARY 1 [ 2 ]. PORTNAME ; 

STRG : = S I G . MES S AGETEXT CAT " ABC " ; 

STRG : =S IGARY2 [ 8 ] . RESPONSETEXT ; 



1.6 EVENT HANDLING 
Syntax and Semantics: 



<port designator) <even t-va 1 ued port attribute) and <signal designator) . <even t -va 1 ued signal 
attribute) can be used wherever an event can be used. 

Ex amp 1 es : 



BOOLEAN B; 

REAL VAL; 

B : = AVA I LABLE ( PORT 1 . MES S AGEEVENT ) ; 

VAL : ==WAIT(PARY1 [ 3 ] . MES S AGEEVENT, S IG . TEXTEVEMT) ; 

B:=AVAILABLE(SIGARY1 [2,0] TEXTEVENT) ; 



1.7 PARAMETER PASSING 



Syntax and Semantics: 

A <port designator) can be passed to a port formal parameter, and a <signal designator) can be 
passed to a signal formal parameter. 

<port array designator) 

<port array identifier) | 

j-<port subarray designator)-! 

<port subarray designator) 

— <port array id> — [ — <subscript part) — <subariray part) — ] — j 



D- 10 
MARK 3 . 1 



<signal array designator) 
<signal array identifier}.- 



I | 

|-<signal subarray de s i gna t or >- j 

<signal subarray designator) 

— <signal array id> — [ — <subscript part> — <subarray part> — ] — | 

A <port array designator) can be passed to a port array formal parameter with the same number of 
dimensions as the <port array designator), and a <signal array designator) can be passed to a 
signal array formal parameter with the same number of dimensions as the <signal array designator). 

Ex amp I e : 

BEGIN 

PORT PORTID; 

PORT ARRAY PORTARY[0 : 9 , : 4 ] 

PROCEDURE PROC(P); PORT P; 

BEGIN 

END; 

PROC(PORTID) ; 

PROC(PORTARY[ 5 ,11); 
END. 

1 . 8 PORT STATEMENTS 

Syntax : 



<open statement) 

— OPEN — ( — <port designator) — , WAIT ) — | 

- OFFER 



AVAILABLE 



<close s t a t ement > 

— CLOSE — ( — <port designator) — , CLEAR ) | 

I- RETAIN -I 



Ex amp 1 es : 



OPEN ( PORT 1 .OFFER) ; 

IF CLOSE(PARYl[5],CLEAR) THEN; 

Seman t i cs : 

The port statements can also be used as Boolean primaries, in which case a value of TRUE means 
that the operation was unsuccessful. 

The OPEN statement opens the port. A list of ports waiting to be opened is maintained by the 
system. rhi s 1 is t is searched at open time for a matching port. If a match is found, both ports 
are put into the OPENED state. The matching algorithm is the following: 

A. The MYNAME of one port must match the YOURNAME of the other port and vice versa. Note that a 
null YOURNAME (".") will match any MYNAME but not vice versa. 



B. 



The PORTNAMEs must be identical and may not be null (".") 



C. The MYHOSTNAME of one port must match the YOURHOSTNAME of the other port and vice versa Note 
that a null YOURHOSTNAME will match any MYHOSTNAME. 

If WAIT is specified in the OPEN statement, the task is suspended until the port is completely 
open. r v ' 

If OFFER is specified in the OPEN statement, an offer is made to the system to open the port. When 
a matching open request or offer is found by the system, then the open operation will be 
completed. Before the open operation is completed, the PORTSTATE of the port is OFFERED. The task 
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is not suspended . 

If AVAILABLE is specified in the OPEN statement, the port is opened if and only if there is an 
outstanding offer to open it. In either case, control is returned to the user program. 

The CLOSE statement closes a port. 

If CLEAR is specified in the CLOSE statement, any signals which have not yet been received by the 
port are cleared. 

If RETAIN is specified in the CLOSE statement, any signals which have not yet been received by the 
port are allowed to be received before the port is closed. Responses may be sent if the port to 
which the response is directed is not closed. Elefore the close operation is completed, the 
PORTSTATE of the port is DEACTIVATED. 

1.9 S IGNAL STATEMENTS 

Syntax : 



<sendmessage statement) 

-- SENDMESSAOE — ( — <signal designator) — , — «port designator) — ) -| 

<sendresponse statement) 

— SENDRESPONSE — ( — <signal designator) — ) 1 



<rece i vemessage statement) 

— RECE I VEMESSAGE — ( — <signal designator) — , — <port designator) > 

>_ > 1 

<rece i veresponse statement) 

— RECE I VERESPONSE — ( — <signal designator)— > | 



<clear statement) 

— CLEAR — ( — <signal designator) — ) 



Ex amp 1 e s : 



BOOLEAN B; 

SENDMESSAGE(SIG,PARY1 [ 1 ] ) ; 

IF SENDRESPONSE(SIGARY1[0,3]) THEN; 

RECE I VEMES SAGE ( S I G , PORT2 ) ; 

B:=RECEIVERESPONSE(SIGARYl [2,2] ) ; 

CLEAR(SIGARY1[2,2]) ; 

Seman tics: 

The signal statements can also be used as Boolean primaries, in which case a value of TRUE means 
that the operation was unsuccessful. 

The SENDMESSAGE statement causes the message contained in the MESSAGETEXT of the specified signal 
to be sent via the specified port to the other task in the conversation. 

The SENDRESPONSE statement causes the response contained in the RESPONSETEXT of the specified 
signal to be sent to the task which sent the message vi a the port through which the message 
arrived. The text of the response is placed in the RESPONSETEXT of the other task's signal. 

The RECE I VEMES SAGE statement causes the first message in the message queue of the specified port 
to be placed into the MESSAGETEXT of the specified signal. If the message queue is empty, a 
SIGNALERROR of EMPTYS IGNAL is returned. 

The RECEIVERESPONSE statement causes the first response in the response queue of the specified 
signal to be placed into the RESPONSETEXT of the specified signal. If the response 4 jeue is 
empty, a SIGNALERROR of EMPTYSIGNAL is returned. 
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The CLEAR statement causes the SIGNALSTATE of the signal to become COMPLETED; i.e., resets the 
TEXTEVENT, flushes outstanding responses, etc. 

1.10 THE SIZE FUNCTION 

Syntax and Semantics: 



The following can be parameters to the SIZE function: 

<port array designator). 
<port subarray designator> 
<signal array designator;. 
<signal subarray designator) 

Examp 1 es : 



REAL R; 

R:=SIZE(PARY1); 
R:=SIZE(SIGARY1[1,*]) ; 
R:=SIZE(SIGARY2[*]); 



1.11 THE RESIZE STATEMENT 
Syntax and Semantics: 



A row of a port array or signal array may appear in a RESIZE statement. RETAIN is always done. 
If an attempt is made to do a downward RESIZE, at runtime the message ATTEMPTED DOWNWARD RESIZE 
FAILED will be displayed, the RESIZE Will not be done, and the program will continue executing. 

Ex amp 1 es : 



RESIZE(PARY1 ,50, RETAIN); 
RESIZE(SIGARY1 [ 1 , •] , 20, RETAIN) ; 
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2.0 LOGICAL INPUT/OUTPUT INTERFACE TO PORTS AND SIGNALS 

The logical input/output interface to ports and signals is available in ALGOL, FORTRAN, COBOL, 
COBOL74, and PL/I. In this interface, a port is a file whose KIND attribute has the value PORT. 

2.1 PORT FILE ATTRIBUTES 



The following file attributes have been added for use by port files. Pointer-valued attribute 
values must end with a period. 

MYNAME Pointer-valued 

The value may be null ("."), meaning not 

specified. The default value is the 

TASKNAME of the task. 
YOURNAME Pointer-valued 

The value may be null ("."), meaning not 

spec i f i ed . 
HOSTNAME Pointer-valued 

The value may be null ("."), meaning not 

spec i f i ed . 

For PORT files, the file title is equivalent to the PORTNAME of a PORT. The INTNAME of the file 
will be used if no title is specified. The TIMEOUT function for SIGNAL and PORT file READ or 
WRITE statements are equivalent. 

The following mnemonic values have been added to the value of field [24:8] of the file attribute 
STATE. These are valid only if STATE. [3 : 1 ] = 1 . 

NOERROR 

NETWORKTIMEOUT 

MESSAGEREJECTED 

RES PONS ERE J ECTED 

CLEARED 

TIMEDOUT 

PROTOCOL 

CHANNELERROR 

NOTTRANSMITTED 

BUFFERS BUZY 

NOTRESPONSEREQU I RED 

BADS II GNALNUMBER 

A new value for use by port files has been added to the possible values of file attribute 
AVAILABLE. This new value, equal to 24, indicates that an offer has been made to open the port 
file but the open operation is not yet complete. If the AVAILABLE attribute has a value of 26, 
the open cannot be completed because the host is not reachable. 

Interrogating the value of file attribute PRESENT for a port file will perform a port offer for 
that port file, but the offer will not remain outstanding. If there is no outstanding port offer 
to match this offer, then FALSE wi 1 1 be returned as the value of PRESENT. 

The file attribute RESIDENT behaves like file attribute PRESENT when applied to a port file. 

Ex amp 1 e : 

IF F.AVAILABLE=26 THEN ERROR (BADHOST) ; 

WHILE F.AVAILABLE=24 DO WHEN (1); % WAIT UNTIL OPEN 

IF F.AVAILABLE=1 THEN BEGIN %FILE IS OPEN 

END; 

2.2 GENERAL RESTRICTIONS 



Some restrictions hold for the logical I/O interface to ports and signals. Restrictions specific 
to a user language are mentioned in the section pertaining to that language. The general 
restrictions are: 

1. For an explicit or an implicit open of a port file, the 
open option is WAIT; that is, the task is suspended until 
the port file is open. 

2. When the port file is closed, it is closed with the 
CLEAR option. Any other file close options that are 
specified, such as CRUNCH, are ignored. 

3. Only FILETYPEs and 3 are allowed. FILETYPE 3 behaves similarly to remote files. 

4. The BLOCKSIZE must be equal to MAXRECSIZE. MAXRECSIZE must be LEQ 20,000 

cha rac t e r s . 
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2.3 ASYNCHRONOUS AND SYNCHRONOUS INPUT/OUTPUT 

There are two kinds of port file I/O, asynchronous and synchronous. In asynchronous I/O, no 
signal number is assigned to the signal by the system (the signal number will be zero) and no 
response is allowed. In synchronous I/O, the system assigns a signal number (which is greater 
than zero) to each signal and responses are required. A task receiving a message can tell whether 
a response is required by checking for a nonzero signal number. 

2.3.1 ASYNCHRONOUS INPUT /OUTPUT 



A signal sent using asynchronous I/O will have a signal number of zero. Responses are not allowed 
and an attempt to read or write a response to an asynchronous signal will cause an error. The 
number of buffers declared for a port file will be used by the system to determine the number of 
signals that the task can have for that file. 

Input : 



If no input is available when a read operation is attempted, the task will be suspended until 
i nput i s avai labl e . 

Output: 



Each signal can be reused as soon as the message has been delivered to its destination. A task is 
suspended until there is an available signal. 

2.3.2 SYNCHRONOUS INPUT/OUTPUT 



A signal sent using synchronous I/O will have a signal number greater than zero. Each message sent 
expects a response in return. The number of buffers declared for a port file will be used by the 
system to determine the number of signals requiring a response that the task can have for that 
file. 



Input : 

When a message is read, the system will supply the nonzero signal number of that message to the 

user program. When a response is read, the user program supplies the signal number and the 

response with that signal number is read. If, on any read operation, the expected message or 
response is not available, the operation will wait until the message or response is available. 

Output : 



When a message is written, the system will return the nonzero signal number of that message to the 
user program. When a response is written, the user program supplies the signal number and the 
response is sent to the task which sent the message with that signal number. 

2.4 USER LANGUAGE SYNTAX 

2.4.1 ALGOL 

Declaration and Attribute Use 



A port file cannot be a direct file and must have a FILETYPE of or 3. 
Exampl es : 

FILE P(KIND=PORT,TITLE="A/PORT. ") • 
P.SECURITYTYPE.=VALUE(PRIVATE) ; 

Asynchronous I/O 

The syntax for asynchronous I/O is that of formatted, freefield, or array row READ and WRITE 
statements referencing a port file. 

Examples of asynchronous I/O: 



15 
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FILE P(KIND=PORT) ; 
REAL /RRAY A[0:9] ; 
READ(P, 10, A); 
WRITE(P,<H12>,A[5]); 
WRITE(P,*/,A); 

Synchronous I/O 



The following two elements are added to the definition of <record number or carriage control>: 

[SIGNAL <ident i f ier>] 
[RESPONSE <ident i f ier>] 

where the < i den t i f i er> is the name of an integer or real variable. The syntax for synchronous I/O 

is that of array row READ and WRITE statements referencing a port file and containing one of the 

above <record number or carriage control> elements. Only array row READ and WRITE statements are 
allowed to reference port files. 

When a WRITE statement containing [SIGNAL < i den t ii f i e r>] is executed, the system assigns a signal 
number to the message and stores that number in the <ident i f i er> . When a READ statement 
containing [SIGNAL < i den t i f i er> ] is executed, the signal number of the message read is stored into 
the < idein t i f i er> . When a WRITE statement containing [RESPONSE < i den t i f i er> ] is executed, the 
response is returned to the task which sent the message whose signal number is equal to the value 
of the < ident i f i er> . When a READ statement containing [RESPONSE < i den t i f i er> ] is executed, the 
response whose signal number is equal to the value of the <identifier> is read. The values of the 
< ident i f i er>s appearing in [SIGNAL < ident i f i <;r> ] and in [RESPONSE < ident i fi er>] should not be 
changed by the user between the time a message in written or read and the time its response is 
wr i 1 1 en or read . 



Examples of synchronous I/O: 

The following two program segments represent two different tasks communicating with 
through port files. The time sequence is implied by the order of the statements. 



each other 



FILE P(KIND=PORT) ; 

INTEGER I; 

REAL ARRAY A[0:9] ; 



FILE Q(KIND=PORT,TITLE="P. "); 

INTEGER J; 

REAL ARRAY B[():9] ; 



WRITE(P[SIGNAL I], 10, A); 



READ(Q[SIGNAL J],10,B); 



WRITE(Q[RESPOHSE J],10,B); 



READ(P[ RESPONSE I] , 10, A) ; 
2.4.2 FORTRAN 

Declaration and Attribute Use 

A port file must have a FILETYPE of or 3. 

Ex amp 1 es : 

FILE 1 (KIND=PORT,TITLE="A/PORT. " ) 

CHANGE( 1 , SECURITYTYPE=VALUE(PRIVATE) ) 

Asynchronous I/O 



The syntax for asynchronous I/O is that of READ, WRITE, PRINT, and PUNCH statements referencing a 
por t file. 

Examples of asynchronous I/O: 

FILE l(KIND~PORT) 

DIMENSION A(10) 
100 FORMAT(X,F13. 3) 
READ( 1 ) A 
WRITE(1 , 100) A[3] 
WRITE(l.V) A 

Synchronous I/O 



The following two clauses are added to the list of result clauses: 

SIGNAL = <ident i f ier> 
RESPONSE = <identifier> 
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where the < i den t i f i er > is the name of an integer or real simple variable. The syntax for 
synchronous I/O is that of unformatted READ and WRITE statements referencing a port file and 
containing one but not both of the above clauses. Only unformatted READ and WRITE statements are 
allowed to reference port files. 

When a WRITE statement containing a SIGNAL= clause is executed, the system assigns a signal number 
to the message and stores that number in the < i den t i f i e r > . When a READ statement containing a 
SIGNAL= clause is executed, the signal number of the message read is stored into the < i den t i f i e r > . 
When a WRITE statement containing a RESPONSE= clause is executed, the response is returned to the 
task which sent the message whose signal number is equal to the value of the < i den t i f i e r > . When a 
READ statement containing a RESPONSE= clause is executed, the response whose signal number is 
equal to the value of the <identifier> is read. The values of the < i den t i f i e r> s appearing in the 
SIGNAL= clause and in the RESPONSE= clause should not be changed by the user between the time a 
message is written or read and the time its response is written or read. 

Examples of synchronous I/O: 

The following two program segments represent two different tasks communicating with each other 
through port files. The time sequence is implied by the order of the statements. 

FILE l(KIND=PORT) FILE 2(KIND=PORT,TITLE="P. " ) 

DIMENSION A(10) DIMENSION B(10) 



WRITE(1,SIGNAL=I) A 



READ(2,SIGNAL=J) B 

WR I TE( 2, RESPONSES) B 
READ(1, RESPONSES) A 
2.4.3 COBOL and COBOL74 

Declaration and Attribute Use 

COBOL and COBOL74 have an additional restriction not found in any of the other languages. A file 
can perform either synchronous or asynchronous I/O, but not both. Which type of I/O a file can 
perform is specified in the file declaration. 

A port file is a file declared in the 'select-clause' with a 'hardware-name' of PORT. For a file 
to be declared capable of performing synchronous I/O, the declaration of that file must contain a 
clause providing a numeric data-name for the signal number associated with a signal sent from or 
received by the port. The absence of this clause from a file declaration declares a file capable 
of performing asynchronous I/O. 

A port file cannot be a direct file and must have a FILETYPE of or 3. 
Ex amp 1 es : 

SELECT FILE-NAME ASSIGN TO PORT. « ASYNCHRONOUS I/O 
SELECT FILE-NAME ASSIGN TO PORT 

SIGNAL IS DATA-NAME. % SYNCHRONOUS I/O 

Asynchronous I/O 

The syntax for asynchronous I/O is that of READ and WRITE statements referencing a port file. 
Examples of asynchronous I/O: 

SELECT FILE-NAME ASSIGN TO PORT. 

READ FILE-NAME. 

WRITE RECORD-OF-FILE-NAME. 

Synchronous I/O 



The syntax for READ and WRITE statements has been extended to specify reading and writing the 
response to a message: 

READ RESPONSE <filename> 
WRITE RESPONSE <recordname> 

The syntax for synchronous I/O is that of READ, WRITE, READ RESPONSE, and WRITE RESPONSE 
statements referencing a port file. The READ RESPONSE and WRITE RESPONSE statements can only 
reference port files. 

When a WRITE statement referencing a synchronous I/O port file is executed, the system assigns a 
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signal number to the message and updates the data-name associated with the signal to that number. 
When a READ statement referencing a synchronous I/O port file is executed, the data-name 
associated with the signal is updated with the signal number of the message read. When a WRITE 
RESPONSE statement is executed, the response is returned to the task which sent the message whose 
signal number is equal to the value in the data-name associated with the signal. When a READ 
RESPONSE statement is executed, the response whose signal number is equal to the value in the 
data-name associated with the signal is read. The value in a data-name associated with a signal 
should not be changed by the user between the time a message is written or read and the time its 
response is written or read. 



Examples of synchronous I/O: 

The following two program segments represent two different tasks communicating with 
through port files. The time sequence is implied by the order of the statements. 



each other 



SELECT P 

"ASSIGN TO PORT 
SIGNAL IS I. 



SELECT Q 

ASSIGN TO PORT 
SIGNAL IS J. 



WRITE RECORD-OF-P. 

READ Q. 

WRITE RESPONSE RECORD-OF-Q. 
READ RESPONSE P. 
2.4.4 PL/ I 

Declaration and Attribute Use 

The FILETYPE of a port file must be or 3 . 

Ex amp 1 es : 

DECLARE P FILE RECORD ENVIRONMENT (K1ND='P0RT' ) ; 
SECURITYTYPE (P) = PRIVATE'; 

Asynchronous I/O 



The syntax for asynchronous I/O is that of record READ and WRITE statements, and stream GET and PUT 
statements referencing a port file. 

Examples of asynchronous I/O: 

DCL P FILE RECORD ENV (KIND='PORT" ,MAXRECSIZE=60) ; 

DCL P2 STREAM FILE ENV (KIND= 'PORT' ) ; 

DCL A CHARACTER (60); 

READ FILE (P) INTO (A); 

WRITE FILE (P) FROM (A); 

PUT FILE (P2) LIST (X.Y.Z); 

Synchronous I/O 



The f o 1 1 owi 
stat emen t : 



ng two elements are added to the definition of <opt i on-1 i s t > in an input/output 



SIGNAL (<ident if ier>) 
RESPONSE (<ident i fier>) 

where the <identifier> must be of arithmetic, character string, or bit string type. The syntax 

for synchronous I/O is that of record READ and WRITE statements referencing a port file and 

containing one of the above <opt ' on-l i s t > elements. Only record READ and WRITE statements are 
allowed to reference port files. 

When a WRITE statement containing SIGNAL ( < iden t i f i er > ) is executed, the system assigns a signal 
number to the message and stores that number in the < i den t i f i e r > . When a READ statement 
containing SIGNAL ( < i den t i f i er> ) is executed, the signal number of the message read is stored into 
the <ident i f ier>. When a WRITE statement containing RESPONSE ( < i den t i f i er> ) is executed, the 
response is returned to the task which sent the message whose signal number is equal to the value 
: i dent i f i e r > . When --■— - «-- •-- - ■ -• 

whose signal number 
< i den t i f i e r >s appearing in SIGNAL ( < i den t i f i e r > ) and 
changed by the user between the time a message is written 
written or read. 



of the 
response 



READ statement containing 
is equal to the value of the 



RESPONSE (<ident i f ier>) is executed, the 
<identifier> is read. The values of the 
in RESPONSE ( < i den t i f i er> ) should not be 
or read and the time its response is 



Examples of synchronous I/O: 

The following two program segments represent two different tasks communicating with each other 
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~>CL P FILE RECORD 

ENV (KIND- 'PORT' , 

MAXRECSIZE=60); 
DCL I FIXED BINARY; 
DCL A CHARACTER (60); 



DCL Q FILE RECORD 

ENV (KIND='PORT' ,TITLE='P. 
MAXRECSIZE=60); 
DCL J FIXED BINARY; 
DCL B CHARACTER (60); 



WRITE FILE (P) FROM (A) 

SIGNAL (I); 



READ FILE (Q) INTO (B) 

SIGNAL (J); 



READ FILE (P) INTO (A) 

RESPONSE (I); 



WRITE FILE (Q) FROM (B) 

RESPONSE ( J ) : 
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3.0 WFL EXTENSIONS FOR INTER-PROCESS COMMUNICATION 



3. 1 



FILE ATTRIBUTE HANDLING 



There is a new file attribute, HOSTNAME, for specifying the name of the host system at which a 
file e x i si t s . 

If a file's HOSTNAME is not specified, the file will be searched for on the host system where the 
file open request originates. 



3.2 



TASK ATTRIBUTE HANDLING 



There is a new string-valued task attribute, HOSTNAME, which specifies the host system at which 
the task will be initiated. The default value is the host system where the task initiation 
request originates. 

There is a new read-only string-valued task attribute, ORGHOSTNAME, which specifies the name of 
the host which caused this task to be initiated. 

To task attribute HISTORYTYPE has been added the value UNKNOWNEOTV, which indicates that after the 
time a task was initiated at a remote host and before the time it completed, communication between 
the systems was lost and was not restored until after the task had completed. 

To task attribute HISTORYCAUSE has been added the value NETWORKCAUSEV, and to task attribute 
HISTORYREASON has been added the value DISCONNECTEDV. 



3. 3 



EXPANDED LIBRARY MAINTENANCE SYNTAX 



The <volume spec i f i ca t i on> for Library Maintenance statements has been expanded to allow 
specification of a HOSTNAME. 

<disk volume spec i f i cat i on> 

AREACLASS — = — <integer expression) 1 

FAMILYINDEX — = — < integer express ion> — 
HOSTNAME — = — <string expression) 



1 



<pack volume spec i f i cat i on> 

' < , 

SINGLEPACK 

I 

| — = __ <boolean expression) 

- FAMILYINDEX -- = — <integer expression) — 

- HOSTNAME -- = -- <string expression) 
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<family volume spec i f i ca t i on> 
| < 



! 



INTERCHANGE 



! 

[— KIND -- = 



FAMILY INDEX 
SERIALNO — 
HOSTNAME — 



— = — <boolean expression> 

PETAPE 

TAPE9 

TAPE7 

TAPE 

- PACK 

- = — <integer expression) 

— <serial number Iist> 

— <string expression) 



Examp ! es : 



COPY FILEID FROM SOMEPACK(KIND=PACK,HOSTNAME=HOSTID) ; 
REMOVE FILEID FROM DISK(HOSTNAME=HOSTID) ; 



3 . 4 JOBS TO OTHER HOSTS 



A WFL job may request to be executed at a host different from the one where it was submitted. 
For example, 

<I> AT Q BEGIN JOB X; 

<I> END JOB. 

will cause the WFL source records to be transferred to host Q for interpretation and execution. 
The records are transferred transparently. 

The notation "<I>" stands for the invalid character code required for jobs entering the system 
from the card reader. The invalid character is not allowed between the host specification and the 
"BEGIN". This insures that jobs intended to be executed locally need only begin with 

<I> BEGIN JOB R; 



in order to be caught before being sent to Q in the event that a 

<I> AT Q 
card was left in the reader. 



DMALGOL Implementation 
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The following note describes the DMALGOL language, which was implemented in previous 
releases but was largely undocumented. This note also incorporates significant D-notes 
from previous release documentation. 

1 . INTRODUCTION 

DMSII requires a special compiler for two reasons: The compiler must be able to 
retrieve information from the description file and it must build stack structures which 
are different from those in ALGOL. DMALGOL consists of ALGOL with extensions to meet 
these requirements. 

The DMALGOL language is an "implementation" language for the DMSII system and is not 
intended for general use. New features may be added at any time and existing features 
may be changed or deleted without notice. For this reason, users should not rely upon 
DMALGOL as an application programming language. 

2. OVERVIEW 

2.1 Compi 1 e-Time Facilities 



DMALGOL compi le-t ime facilities consist of elements which are of a general nature and 
have been documented in ALGOL, and elements specific to DMSII. 

The basic technique used to write the ACCESS ROUTINES is conditional compilation. 
Various pieces of code are omitted, included and parameterized based on information 
from the DASDL description file. This file is read by the DMALGOL compiler; the 
DMALGOL language contains elements used to conveniently reference its information. 

NODE variables and PROPERTY definitions are used to reference "nodes" within the 
description file. A node is a data structure which consists of two parts: a list and a 
set of properties, either of which may be absent. The elements of lists are frequently 
other nodes, but they may be integers or other data items. The syntax in DMALGOL to 
reference list element I of node N is N[IJ. The properties of a node are in a 
non-homogeneous substructure whose format is defined by PROPERTY declarations. 

Example : 

NODE N; 

INTEGER T; 

PROPERTY RECORDSZ=[ 1 1 ] . [ 1 1 : 12] ; 

T:=N.RECORDSZ; 

This will extract the property RECORDSZ of the node N. The properties actually used in 
the ACCESSROUTINES are included from the file called DATABASE/PROPERTIES. 

A special form of the 'FOR statement is used to access the members of a node's list. 
It uses the fact that DASDL stores the number of list items at OFFSET=0 in the list, so 
that the compiler knows how many elements are in the list. 

Ex amp I e : 

NODE STRUCTURE, SPANSET; 

'FOR EACH SPANSET OF STRUCTURE DO . . . 

This statement goes through each member of the list belonging to the node STRUCTURE, 
assigning its successive list elements to the node SPANSET. 

A special form of the 'INCLUDE statement is used to access the text section of the 
DASDL description file. This section consists of a set of source language DMALGOL 
constructs; these "texts" are always referenced via an appropriate property. For 
example, data set nodes contain a property called VERIFYSTORETEXT which checks whether 
a record meets all verification rules before it is stored. To access this text for 
node DS , the following would be written: 

* I NCLUDE DS . VER I FYSTORETEXT . 

DMALGOL would extract the appropriate text and compile it. 



2 . 2 Env i ronmen t s 



A normal ALGOL program contains block initialization code to reserve space in the stack 
for its local variables. DMSII environments, however, are not contained in a running 
stack and cannot, therefore, execute code to build the stack. Rather, the MCP 
procedure DMSOPEN sets up the stack variables based on an "image" of the DBS and SIB 
stacks kept in the ACCESSROUTINES code file. Thus, one task of DMALGOL is to build 
these stack images. This is done by using the ENVIRONMENT declaration, which delimits 
the boundaries of each environment, in much the same way as a procedure declaration 
does. Environments may not be nested more than three deep. 
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DMSII uses environments at all three levels. The outermost environment contains global 
variables common to the entire data base. Intermediate level environments, DBS 
environments, contain variables unique to each data base structure. The innermost 
environments, SIB environments, contain the variables which are unique to a single 
invocation of a structure. 

It is possible to call a procedure in a different environment using the following 
cons t rue t : 

<procedure name> * <structure number> 

<structure number> is the number declared in the ENVIRONMENT declaration containing the 
desired procedure. 

Ex amp 1 e : 

ENVIRONMENT X OF 2 ; 
BEGIN 

PROCEDURE P; 
END; 

ENVIRONMENT X OF 3 ; 
BEGIN 

PROCEDURE P; 

P; 

p. 2 

END; 

The call P will call the routine in its local environment; i.e., the second one. The 
call P'2 will call the routine in environment 2; i.e., the first one. 

2.3 Reference Variables 



DMALGOL provides the ability to declare procedure reference variables, file reference 
variables and direct file reference variables. These reference variables allow for 
dynamic selection of procedures, files and direct files within the DMSII system. 

2 . 4 "ONCE ONLY" Comp i I a t i on 

Each structure of the data base has one D2 and one D3 environment compiled for it. The 
same lines in DATABASE/SYMBOLIC are typically compiled many times over. For example, 
the procedure STORE is compiled for every data set. Conditional compile-time 
statements alter it to fit each successive data set; each has its own VERIFYSTORETEXT 
included, for example, and calls to insert it into each of its automatic sets. 

Some procedures, however, do not differ in any major respect between two structures of 
the same type. An example is GENERATE; the main difference in its operation is the 
block size and end-of-file, which are easily parameterized. To save compile time and 
code space, such procedures are compiled only once. It is not possible to use calls on 
the shared procedure using the (procedure name> ' <s t rue ture number> syntax, since that 
would change the environment as well. Rather, a PCW is constructed for each structure; 
for a shared procedure, the PCW in each structure will point to the same segment 
descriptor. This allows the procedure to be both shared by different environments, but 
behave as if it were local to each environment. 

3. DMALGOL EXTENSIONS 

3.1 Compile-Time Facilities 



3.1.1 NODE Declaration 
Syntax : 



< 

NODE <ident i f ier>- 



=<arithmetic expression 1> 
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1. An identifier declared to be a NODE is a compi 1 e-t ime variable similar to a NUMBER; 
however, it must be used in conjunction with a compi 1 e-t ime array created by DASDL. 

2. A node variable represents an index into the DASDL array. 

3. The value of a node variable (index into the DASDL array) may be changed at any time 
during compilation by means of a compi 1 e-t ime 'LET statement. 

4. <arithmetic expression 1>, if used, must be a constant arithmetic expression. It 
represents the initial index of the node variable. By default, the initial value is 
zero, which is otherwise an illegal value; thus, a node must be initialized or 
assigned a value before it is used. 

5. If the "*" is used, that node variable is a special read-only node which may be used 
to reference any word in the entire DASDL array. If N is such a node, then N[<i>] 
is the <i>th word of the DASDL array. 

6. Normally, the node variable represents the index of a "node" in the DASDL array. A 
list and a set of properties is associated with a node; the list is usually a list 
of nodes, and the properties contain values. The node variable may be used to 
reference members of the list and values of the properties, as follows: If N is a 
node variable and P is a property identifier, then N[<i>] is the <i>th member of the 
list of N, and N.P is the value of the property P of N (<i> is a constant or 
constant expression). 

3.1.2 PROPERTY Dec larat ion 

Syntax : 



PROPERTY 

I I 
|-<type>-| 

|< , 

I 
> <identifier> — = — <property speo- 



<property speo 

— [ — <arithmetic expression 1> — ] > 

> --| 

|- . [ <ar i thmet ic expression 2> : <ar i thmet i c expression 3>] -| 

Semant i cs : 

1. A property identifier defines the location and format of a property value associated 
with a node in the DASDL array. 

2. Each arithmetic expression must be a constant arithmetic expression. <arithmetic 
expression 1> specifies the word in the property set. <ar i thmet i c expression 2> and 
<arithmetic expression 3> specify a field within the word; if they are not given, 
the entire word is used. 

3. If a type is declared, it must be a single-precision arithmetic or Boolean; when no 
type is specified, REAL is assumed. 

4. A property identifier is used only with a node variable, as follows: 

— <node variablo — . — <property identifier) — | 

This construct represents the value of the property for the given node. It may be 
used wherever constants of the specified type may appear. 

5. The "node property" construct is only used to retrieve a value from the DASDL array; 
it may not be used to change a property value (in fact, no construct can change the 
DASDL array: it is read-only). 

3.1.3 'FOR Statement Extensions 
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Syntax : 

— 'FOR EACH <nodeid 1> OF — <nodeid 2> > 

|- ALL — I |-<number id>-| 

> DO <ct statement) j 

|- WHERE — <boolean express ion>- | |-<begin clause>-| 

<begi n c 1 ause> 

— BEGIN — <text 1>— "NEXT — <text 2> — 'PRIOR — <text 3> > 

>- 'END 1 

Seman t ics : 

1. This statement provides for iterative compilation of ALGOL source code. One 
iteration is made over the source code for each entry in the list belonging to 
<nodeid 2>. 

2. <nodeid 2> must be the index of a node in the DASDL array. 

3. For each iteration, the control variable is assigned the index of the list element 
(if <nodeid 1> is specified) or the contents of the list element (if <number id> is 
spec i f ied) . 

4. If the WHERE clause is used, a constant <boolean expression) must be specified. 
Before the statement following DO is processed but after the control variable has 
assumed its next value, the <boolean expression) is evaluated. If the expression is 
TRUE, the statement following DO is processed; otherwise, the statement is ignored. 

5. If the body of the "FOR statement is the 'BEG IN- 'NEXT- 'PR I OR- 'END form, a 
"telescoping" form of iteration is performed. In that case, the 'NEXT behaves like 
an 'END, so that the <text 1> is processed for each iteration. After the last 
iteration, <text 2> is processed just once. Finally, the iteration is repeated, 
backwards, for <text 3>. If a WHERE clause is used, the backwards iteration 
processes exactly the same cases as the first iteration; i.e., the <boolean 
expression) is not re-evaluated while backing out of the telescope. 

6. <ct statement) is a compile-time statement including any DMALGOL extensions. 
3.1.4 'INCLUDE Statement Extensions 



Syntax : 

— 'INCLUDE — <nodeid) — . — <property id> — | 

Semant i cs : 

1. This statement causes the compiler to process text directly out of the DASDL array. 

2. The value of the specified property is assumed to be an index of text in the DASDL 
array. That text must be terminated by a pound sign (#) and at least one null 
character (4"00"). 

3.1.5 'LET Statement Extensions 

Syntax : 

— "LET — <number variable) — := — (procedure name) — | 

Seman tics: 

This statement stores a copy of the procedure's PCW in the number variable. This 
construct is intended for use with compile once only procedures. Refer to the section 
on "ONCE ONLY" Compilation for additional details. 

3.1.6 'PRINT, 'ERROR, 'DISPLAY S t a t emen t s 
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Syntax : 

'PRINT — 

•ERROR 

•DISPLAY - 



<node id> 

-<s t r i ng> 

-<ar i thme t i c express ion>- 



Semant i cs 

1. This statement causes one or more lines to be printed on the compilation listing. 

2. Each line may contain up to 87 characters, starting in position 18. 

3. If the 'ERROR form is used, the compiler's error count is incremented by one, and 
the printed line is bracketed by the ">" and "<" characters, as for a normal syntax 
error message. 

4. The lines are created from the information given in the statement, as follows: 

a. If a <nodeid> is specified, the alpha name property for the node is inserted into 
the line. 

b. If a string is specified, it is inserted into the line. 

c. If an <arithmetic expression) is used, it must be a constant arithmetic 
expression. It is assumed to be an integer, and the value of the integer, zero 
suppressed, is inserted into the string. 

No blanks are inserted into the line between specified items. 

5. If a 'PRINT or 'ERROR statement is processed (not skipped) by the compi 1 e-t ime 
processor, the lines are printed whether or not any listing $ card options are set 
(LIST, LISTOMIT, etc.). 



3.1.7 PROCEDURE Declaration Extensions 

Syntax : 
Form 1: 
— PROCEDURE — <procedure id 1>— 



-<procedure id 2> — | 



Form 2: 

— <procedure typo — PROCEDURE — <procedure heading>- 

>- EXTERNAL — <number variable> 



Semant i cs : 

Two forms of procedure declaration are used for compile once only procedures. Refer to 
the section on "ONCE ONY" Compilation for additional details. 



3.2 



ENVIRONMENT Declaration 



Syn t ax : 

— ENVIRONMENT — < ident i f i er> > 

>- ( <ari thme tic expression 1> ) > 

> BEGIN > 

|- OF — <arithmetic expression 2>-| 

> <dec 1 arat ion> END | 
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1. The ENVIRONMENT declaration is used to declare the contents of the Data Base Stack 
(DBS) and Set Information Block (SIB) stacks for a data base. 

2. The entire "program" for a data base is an environment containing all data base 
g lobal s . 

3. Following the data base globals, one or more DBS environments may be declared. One 
DBS environment is present for each data set or set in the data base. 

4. Within each DBS environment, and after other DBS items, one or more SIB environments 
nils t be declared. 

5. The identifier specified in the ENVIRONMENT declaration is primarily for 
documentation; it is not used again. <arithmetic expression 1> is a constant used 
to aid structure allocation within the ACCESSROUTINES . <arithmetic expression 2> (a 
constant, normally a node variable) is the environment identification. Every DBS 
environment must have a distinct environment identification. Each SIB environment 
must have an environment id equal to that of the DBS which contains it. The outer 
level environment is not declared with an environment id. 

6. In a DBS environment, only global items and DBS items declared in that DBS are 
accessible. In a SIB environment, all global items, all items in the corresponding 
DBS environment, and all SIB items are accessible. In addition, all procedures 
declared in prior SIB environments are accessible. Those procedures are referenced 
via dynamic identifiers, using the environment id after the apostrophe. 

3.3 Reference Variables 



3.3.1 PROCEDURE References 

Declaration Syntax: 
(Form 1) 

— PROCEDURE REFERENCE — <procedure reference id> — := > 

>-<procedure i d> I 

(Form 2) 

— PROCEDURE REFERENCE — <procedure reference id> > 

>-<formal parameter par t> — <procedure body> | 

Assignment Syntax: 

— (procedure reference id 1> — := > 

> <procedure id> I 

|-<procedure reference id 2>-| 

Seman t i cs : 

Form 1 of the declaration declares the procedure references variable (procedure 
reference id>. The initial value of this variable refers to (procedure id>. The 
parameter description for (procedure reference id> is derived from (procedure id>. 

Form 2 of the declaration declares the procedure reference variable (procedure 
reference id 1>, specifies the parameter description for the reference variable and 
specifies a body of code to be executed if (procedure reference id 1> is used before an 
assignment is done to it. 

The procedure reference assignment statement causes the (procedure reference id 1> to 
refer to the procedure specified on the right side of the ":=". Both procedures must 
be of the same type and have the same parameter descriptions. 

A (procedure reference id> may be used to invoke a procedure as if the procedure were 
invoked directly. 

3.3.2 File References 
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Declaration Syntax: 

|< . I 

FILE REFERENCE — <file reference id> ; -- | 

I- DIRECT -| 

Assignment Syntax: 

— < f i I e reference id 1> — := <file id> ; — | 

I . I 

|-<file reference id 2>-| 

Seman tics: 

1. Prior to being assigned a value, a procedure reference variable does not point to a 
file. 

2. In the file reference assignment statement, the left and right file identifiers must 
both be DIRECT or must both be non-DIRECT. 

3.4 "ONCE ONLY" Compilation 

Compile once only procedures may be declared in two ways. 

3.4.1 Fo rm 1 



Syntax : 

<procedure declaration> 

— PROCEDURE — <procedure id 1> — := — <procedure id 2> — | 



Ex amp 1 e : 



BOOLEAN PROCEDURE GETADDRESS (A) ; 
VALUE A; 
REAL A; 
BEGIN 



END; 

PROCEDURE GETADDR := GETADDRESS; 

Seman t ics : 

This is the most common type of compile once only procedure. <procedure id 1> and 
<procedure id 2> are identical. The parameters and procedure type of the two 
procedures must be exactly the same. The body of the procedure is compiled only 
once. Subsequent references to the procedure merely copy the PCW for <procedure 
id 2> into the environment that contains <procedure id 1>. 

This technique can only be used for procedures declared in the outer block of a 
DBS or SIB environment. Embedded procedures must use the alternate form of 
compile once only. 



3.4.1 Form 2 



Syn t ax : 

< 1 e t s ta t ement > 

— 'LET — <number variable> — := --<procedure name>--| 
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<procedure declaration 

— (procedure type> — PROCEDURE — (procedure heading> > 

>- ; — EXTERNAL — <nuraber variable) 1 



Ex amp 1 e : 



NUMBER GETADDRESSPCW; 

BOOLEAN PROCEDURE GETADDRESS (A); 

VALUE A; 

REAL A; 

BEGIN 

END; 

'LET GETADDRESSPCW := GETADDRESS; 

BOOLEAN PROCEDURE GETADDR (A) ; 
VALUE A; 
REAL A; 
EXTERNAL GETADDRESSPCW; 

Semant ics : 

This type of compile once only procedure must be used very carefully. The user 
must ensure that the procedure declarations are identical. DMALGOL does not check 
the procedure declarations for consistency; it simply copies the PCW for the 
original procedure into the environment containing the EXTERNAL procedure 
declarat ion . 

3.5 DMIO Fi le Attribute 

The DMIO direct file attribute is used by the ACCESSROUTINES to indicate that the DMSII 
system is using the file. 

3.6 DMALGOL Functions and Statements 

3.6.1 ALLOW and DISALLOW Statements 

Syntax : 

ALLOW | 

I- DISALLOW -I 

Semant ics : 

The DISALLOW statement disables external interrupts. The ALLOW statement enables 
external interrupts. These statements are intended for use in the ACCESSROUTINES and 
are used in critical sections where a series of operations must be performed without 
interrupt ion . 

3.6.2 ATTACHDBS Statement 



Syntax : 

— ATTACHDBS — ( — (arithmetic expression) — ) — 



E- 
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3.6.3 DMINQ Funct ions 



The DM INQUIRY interface permits direct communication with the DMS1I ACCESSROUTINES . 
It is intended only as a tool for use in implementing special purpose packages, such as 
on-line inquiry, and is specifically not intended for general user interface to DMS I I . 

It is assumed that exactly one data base is invoked in the norma) manner in the program 
which uses these constructs; otherwise, a syntax error will result. 

1. DMINQ [<arithmetic expression)] (<array row>) 

. The <arithmetic expression) is the SIB index for the desired structure. The <array 
row> is a one-dimensional array used to communicate with the ACCESSROUTINES. The 
contents of the array control the function performed by the system. 

A [0] = identifies desired procedure 

1 = pathfinder (find key only) 

10 = set to beg i nning 

11 = data finder (find/lock nex t /current ) 

12 = getdata 

13 = DMS read (access data portion only) 

14 = get 1 ink 

16 = s tore current 

17 = free current 

23 = create 

24 = delete current 

A [i], i>0, depend upon A[0] as follows: 

1. Pathfinder (A[0] =1) 
A[l] = FIND op : 

-1 = current record 

= next in set 

1 = next in set = UKA 

2 = next in set > UKA 

3 = next in set >= UKA 

4 = link in set 

A [2] = SZ parameter to pathfinder 

This parameter specifies the size of the key passed to 
pathfinder in the user key area. If SZ is less than zero 
(0), then ABS(SZ) is the number of hex characters in the user 
key; otherwise, SZ is the number of bytes in the user key. 

A [3 J = SZ2 parameter to pathfinder 

This parameter specifies the size of the major portion of the 
user key which must exactly match the retrieved key. If SZ 
is less than zero (0), then ABS(SZ2) is the number of hex 
characters in the user key; otherwise, SZ2 is the number of 
bytes in the user key. 

As an example, if an index set had a concatenated key (A,B,C) 
with each portion two bytes long, to retrieve the next key 
where A=UKA and B=UKA requires SZ=4 and SZ2=4. To retrieve 
the next key where A=UKA and B>UKA requires SZ=4 and SZ2=2 . 

If a record is found as specified, the AA word is returned in A [1]. 
A getdata call must be used to move the record to the user's work 
ar ea . 

2. Set to beginning (A[0] = 10) 
A [ i ] , i >0, not used . 

3. Datafinder (A[0] = 11) 
A[l] = FIND op: 

= find current data set 

1 = lock current data set 

2 = find next data set 

3 = lock next data set 

If a record is found, its AA word is returned in A[l], and the record 
is moved to the user's work area 

4. Getdata (A[0] = 12) 

A [ 1 ] = AA word of desired record Mo v e s the 
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desired record to the user's work area. 

5. DMSREAD (A[0] = 13) 

A[l] = AA word of desired record. 

This function is similar to the Getdata call, except that only the 
data portion of the desired record is moved to the user's work area; 
structures embedded in the accessed record are unaffected. 

6. Get link (A[0] = 14) 

"Fetchkey" call on control manager: 

A[l] = Unused 

A[2] = LLOC parameter 

A[3] = LLEN parameter 

The link entry is returned in the array A[*]. 

7. Store current (A[0] = 16) 
A[ i ] , i >0, not used . 

8. Free current (A[0] = 17) 
A[ i ] , i >0, not used . 

II. Three "intrinsic" arrays 

Note that these arrays may be used only in array reference assignment statements. 
They may not be used as ordinary arrays. 

1 . DMKEYAREA 

Hex array; the user's key area for the one SIB invoked. 

2. DMWORKAREA [X] 

Hex array; the user's work area for a particular 
s t rue t ure . 

X is an arithmetic expression, value = SIB index for 
that structure (see bel ow ) . 

3. DMSIBDESC 

Real array; the SIB description for the SIB invoked. Used primarily 
to determine the SIB index for each invoked structure. The first N 
words of this array (0 to N-l) contain the structure number (plus 
other stuff) for each invoked structure. The index in the SIB 
description of this word is the value of the SIB index for that 
structure. N is equal to SIZE(DMSIBDESC)-8 . 

3.6.4 DMTRANSLOCK Statement 



Syntax : 

— DMSTRANSLOCK — ( — <formal array 1>- 

>-<formal array 2> — ) 



Seman t i c s : 

DMTRANSLOCK is intended only for use in compilation of ACCESSROUTINES . It performs 
transaction locking for DMS jobs where <formal array 1> refers to a transaction lock 
and <formal array 2> is its new value. 

3.6.5 DMSCAUSE Statement 



Syn tax: 

— DMCAUSE — ( — <arithmetic express ion> — ) — | 
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Semant i cs : 



The DMSCAUSE statement calls the MCP procedure DMSCAUSE and passes a single real-valued 
parameter. The effect of the call is dependent on the parameter, as follows: 

parameter < Indicates that the calling program has left transaction state. The 
program is delinked from the transaction state linkage chain. 

parameter = Indicates that a syncpoint has been completed. All programs waiting 
for a syncpoint for this data base are awakened. 

parameter > Indicates that a record for which other users are waiting has been 
freed. The parameter is the stack number of the previous owner. All 
programs waiting on that stack number will be awakened. 

3.6.6 DMSFREE Statement 



Syn t ax : 

— DMSFREE —| 

Semant ics : 



This statement calls the MCP procedure DMSFREE, which causes all records locked by this 
process to be freed in every data base visible to the process. 

3.6.7 DMSUPDATEDISKHEADER Statement 



Synt ax : 

— DMSUPDATEDISKHEADER — ( — <file designator— ) — | 

Semant ics: 

This statement causes the disk header for the designated file to be flushed to the 
di rectory . 

3.6.8 DMSWAIT Function 



Synt ax : 

— DMSWAIT — ( — arithmetic exp. 1> — , > 

>-<ar i thmet i c exp. 2> — , — <arithmetic exp. 3> — , > 

>-<array identifier — ) I 

Semant ics: 

The DMSWAIT function is a Boolean-valued function with four parameters. The DMSWAIT 
function calls the DMSWAIT procedure in the MCP. The first three parameters are 
real-valued and the last is an array. The effect of the DMSWAIT function is dependent 
on the values of parameters 2 and 3. 

a. Parameter 2=0, parameter 3=0 

Indicates that the calling program needs to wait for a syncpoint to complete on this 
data base. The program is linked into the sleeper chain for the data base and is 
suspended. When a syncpoint is complete on this data base (indicated by some other 
program doing a DMSCAUSE(O) ) , this program will be awakened and a result of FALSE 
returned. If a deadlock is detected, this program is awakened and returned a result 
of BOOLEAN(l). If the program has specified a wait limit and the limit expires 
before the syncpoint occurs, the program is awakened and returned a value of 
BOOLEAN(3) . 

Parameter 1 is a control word obtained from the location specified by parameter 3 in 
the array given as parameter 4. If the value of the control word from the array 
changes before suspending the program, a value of FALSE is immediately returned. 

b. Parameter 2=0, parameter 3 = -1 
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Indicates that the calling program has entered transaction state. The program is 
linked into the transaction state linkage for the appropriate data base. If at the 
time of this call the program is already in transaction state, a result of TRUE is 
returned; otherwise, a result of FALSE is returned. 

c. Parameter 2 = -1, parameter 3 = -1 

If the number of processes waiting for locked records in this data base is less than 
the first parameter, a result of TRUE is returned; otherwise, a result of FALSE is 
returned. 

d. Parameter 2 > 0, parameter 3 > 

Indicates that the calling program needs to wait for a locked record. Parameter 2 
>s the stack number of the current owner. The calling program is linked into the 
sleeper chain for the current owner of the record, the sleep count for this data 
base is incremented by one, and the program is suspended. When the current owner of 
the record frees it i idicated by doing a DMSCAUSE (<owner's stack number>)), this 
program is awakened and a result of FALSE returned. If a deadlock is detected, a 
result of BOOLEAN(l) is returned. If the program has specified a wait limit and the 
limit expires before the record is freed, the program is awakened and returned a 
value of BOOLEAN{3) . 

Parameter 1 is a control word obtained from the location specified by parameter 3 in 
the array given as parameter 4. If the value of the control word from the array 
changes before suspending the program, a value of FALSE is immediately returned. 



3.6.9 DSED Funct ion 



Syn tax: 

— DSED — i 



Seman tics: 

The DSED function is a paramet er 1 es s function which returns a Boolean result of TRUE if 
the program is DSed, and FALSE otherwise. 

3.6.10 DSWAIT and DSWAITANDRESET Functions 

DSWAIT and DSWAITANDRESET constructs are identical to WAIT and WAITANDRESET, except 
that a result of -1 indicates the job was DSed while waiting. Note that these 
constructs are intended for DMSII ACCESSROUTINES only. 

3.6.11 NEWDOPEVECTOR Func t i on 

Syntax: 

— NEWDOPEVECTOR — ( — <array identifier;.— , > 

>-<ar i t lime t i c exp> — ) | 

Seman tics: 

The NEWDOPEVECTOR function is a Boolean function with two parameters. The first 
parameter is a 2-d i mens i ona 1 array designator and the second is the new size for the 
first dimension. The new size may be larger or smaller than the current size. If the 
new size is smaller, rows will be deallocated. If the new size is larger, unallocated 
ro*s will be added. Care must be taken when using this function, since no copy 
descriptors will be fixed up. 

3.6.12 SIBOFFSET Funct ion 



Syntax : 

— SIBOFFSET — ( — <procedure name> — ) — | 
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Seman t i cs : 



The SIBOFFSET function is a compi 1 e-t ime function that accepts a procedure name as its 
only parameter. The result of this function is the offset of this procedure in its 
env i ronmen t . 



3.6.13 SNR Funct ion 



Syntax : 
— ■ SNR — | 

Seman t i cs : 



The SNR function is a par arm e t er 1 es s function which returns as a real value the current 
value of the processor's stack number register. 

4. DMALGOL Reserved Words 

The reserved word type is indicated following each word. Refer to the ALGOL 
Language Reference Manual (Form No. 5001639) for details. 

ALLOW (2) 
ATTACHDBS (2) 
DMINQ (2) 
OMKEYAREA (2) 
DMWORKAREA (2) 
DMSIBDESC (2) 
DISALLOW (2) 
DSWAIT (2) 
DSWAITANDRESET (2) 
DMIO (2) 
DMSCAUSE (2) 
DMSFREE (2) 
DMTRANSLOCK (2) 
DMSWAIT (2) 

DMSUPDATEDISKHEADER (2) 
DSED (2) 
ENVIRONMENT (2) 
NEWDOPEVECTOR (2) 
NODE (2) 
PROPERTY (1) 
SIBOFFSET (2) 
SNR (2) 
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INTRODUCTION 



This note details differences 
previously-documented versions. 



between 



SYSTEMSTATUS 



the 
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MCP 



and 



The bulk of the changes fall into two categories: 



3 EX D e 2oA£"„°f - ypeS •• 2 and 7 to provide "box-by-box" data on the various subsystems of 

a B 6800 Multiprocessor (tightly-coupled or TC) system. 

b ' S™ is '° n of data return <5d by types 3 and 9 because of substantial changes within the 
Additional changes include the following: 



A few new data items in type 2. 

Minor changes to type 4 data. 

Minor changes to IOTRACE data in type 7. 

New process-time breakdown in type 7. 

Revision of data in type 10. 

New type 11 - Swapper parameters. 

New type 14 - Suspender parameters. 



The next section explains the scheme used for box-relative data. The succeeding sections 
discuss specific changes by type. 

io^ 6800 L Mul l 'P roc essor system contains a Global memory subsystem and one or more local B 
6800 su <>systems Each subsystem is called a "box" within the MCP. Some of the data which 
are reported by SYSTEMSTATUS will vary from one box to another. The SYSTEMSTATUS interface 
has been extended to make such data available. 

To accomodate tightly-coupled systems, the VI parameter used in calling SYSTEMSTATUS has 
been redefined as follows: 



Field 



Mean i ng 



4:5 
29:5 



Group selection field (previously the entire 
word) . 

Bit mask field for requesting box relative 
i n forma t ion : 



Bit 



Box Number 



29 

28 
27 
26 
25 



5 (Local Processor 4) 

4 ( " " 3) 

3 ( " " 2) 

2 ( " " 1) 

1 (Global Memory) 



The bit mask field is relevant only for types 1, 2 and 7; it is ignored in all other types. 
" a blt mask is provided for one of these valid types, a separate block of data will be 
returned for each selected box. The structure of the data returned by SYSTEMSTATUS is as 
fol lows : 



GS 



Box Info 



\ 



Box Info 



/ 



Lowe s t 

Numbered 

Box 



Highest 
Numbered 
Box 



The above structure contains first an overall group-size word (at index 0), a bit mask word 
(at index 1) indicating the boxes for which data are being returned, and then groupings of 
box relative information (each with its own group-size word). A minor exception to this 
rule is the Type 7 call where only the times and count information is repeated (see Type 7 
call for further explanation). Note that requests for information pertaining to 



non-existent boxes are ignored and 
ascending box number order. 



the box-relative data groupings 



pertaining 

are returned in 
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olithic system is considered as having •» Ol.b.l b... If « bit -sk is^pas sed^to 
MSTATUS for the appropriate cases, the data will be returneo a b 



A mon 

SYSTEMSTATUS 

structure, as follows: 



GS : 0&1 [ 1 : 1 ] : GS : Box Info : 
- ^ 



Global 
Box 
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The information structure employed in this text appears as follows: 
Item Meaning 



WORD Group-Relative word index 

If a SYSTEMSTATUS call of type 1 , 2 or 7 is made with a box mask (VI. [29:5]), the 
word index is relative to the information for each box returned; otherwise, one 
major group is returned and the index is absolute. 

FIELD For those words which contain multiple fields, the starting (high-order) bit and 
field lengths are indicated; e.g., 10:5 implies that the field starts with bit 10 
and extends for 5 bits. 

TYPE Data types may be indicated by a letter, as follows: 
I Integer 
M Bi t-mask 

R Floating-point number ("real") 
S Text string 

The type is blank for word structures which are subdivided, and for single-bit 
subdi vi s ions . 

-CAT In call types 1, 2 and the first group of type 7, a category code is appended in 
the TYPE column to indicate the category of the data returned, as follows: 



-CAT 



MEANING 



(blank) These items may vary from one box to another and are reported 
appropriately for each box. If no bit mask is specified when calling 
SYSTEMSTATUS, the quantitative box relative information will be summed 
over all boxes and this sum returned as if the system had only one box 
(name ly Global ) . 

1 These items, typically descriptive or parametric, apply to all boxes 
equally and are reported identically for each box. Examples of this 
category are Intrinsic name and option settings. 

2 Certain quantitative items are maintained only for the MCP as whole; 
e.g., MIXCOUNT. These items are reported with the Global box data only 
and zeroes will appear in their corresponding positions within the local 
box information. 

>2 These categories indicate that the data item does not fall into one of 
the other categories. Because these categories represent exception 
items, their interpretation will be explained as these items occur. 

NAME & MEANING 

The item identifier as declared in the MCP, accompanied with explanatory comments 
in many cases. 

It should be noted that times and counts reported for the Global box refer to processes 
(stacks) residing in Global memory. There is no Global processor; each local processor 
spends part of its time serving Global needs. 

In the following text, an effort has been made to minimize redundant verbage. The 
definitions referring to single bit fields apply only when the bit is on. 

Unless otherwise noted, all time values are reported in "clicks" of 2.4 microseconds, and 
all times and counts accumulate values since Halt/Load. 
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MAINFRAME INFORMATION (Type 1) 

This information group contains the "hardcore" information pertaining to the system, such 
as number of processors, amount of memory, name of the running MCP, etc. 

The structures of information returned by SYSTEMSTATUS for a Type 1 call on both monolithic 
and tightly-coupled systems are as follows: 

Wi thout bi t mask : 

: GS : Group 1 Info : 



With bit mask : 



: GS : M : GS : Group 1 Info : . . . : GS : Group 1 Info : 

_ - ^ ^ 

Lowest Numbered Highest Numbered 

Box Box 

Because of variable length items returned with this SYSTEMSTATUS call, the following 
convention has been adopted to indicate item displacement: 

X = 10 + [10] 

Y = X + [10+[10]] 

where [N] is defined to be the contents of word N. 

Graphically, the above algorithm appears as follows: 



MCP INTRINSIC : . . . : Memory : 

name-size word name-size word Info 

(word 10) (word X) (word Y) 
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All items returned by the type-1 call are listed here. 

TYPE 
WORD FIELD -CAT NAME & MEANING 



I (Group-Size Word) 

1 I (System Serial Number) 

2 M PROCMASK 

Bit "n" indicates whether there is a processor "n". 

3 M MULTIPLEXORMASK 

Bit "n" indicates whether there is a multiplexor "n". 

4 1-1 MAXUNIT 

The upper bound of the tables indexed by unit number. 

5 M-3 MA 

This word contains a true (one) for each memory mod that is "in-use" by the 
MCP; bit is memory mod 0, bit 31 is memory mod 31. (MB contains the bits 
for memory mods 32 through 63.) The contents of this word and the next 3 
words will be zero if the system is tightly coupled and no bit mask was 
specified with the SYSTEMSTATUS call. 

6 M-3 PMA 

The bits in this word correspond with the bits in MA above, except that a 
true (one) means that the memory mod is present (i.e., it was "found" by 
the last Halt/Load). It may or may not be "in-use" depending on MA. 

7 M-3 MB 

This word has the same function as MA, but it reflects the "in-use" status 
of memory mods 32 through 63. 



8 M-3 PMB 

This word has the same function as PMA, but it reflects the presence of 
memory mods 32 through 63. 

9 MCPLEVEL 
47:16 1-1 MARKDIGIT 

MCP ' s "MARK LEVEL" in binary. 
31:16 1-1 LEVELNO 

MCP's "LEVEL NUMBER" in binary. 
! 5 : 1 6 I - 1 CYCLENO 

MCP's "CYCLE NUMBER" in binary. 
10 I (MCP NAME- SIZE WORD) 

Length of the standard form MCP name. 
1 1 S (MCP NAME) 

Name of the running MCP in standard form. 
X 1-1 (INTRINSIC name-size word) 

Length of standard form INTRINSIC name. 
X+l S-l (INTRINSICS name) 

Name of running INTRINSICS in standard form. 
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TYPE 
WORD FIELD -CAT NAME & MEANING 



Y I (Total memory mods present and in-use) 

23:12 Total number of mods present 

11:12 Total number of mods in-use 

Y+l N:4 1-1 DCPHEYUMAP where N is the DCP number 

i.e., N=[DCP number] *6+5. 

Indicates multiplexor/processor to which each 
running DCP is physically connected. 

The value stored in the 4-bit field is the processor ID for B 6800s and the 
MPX ID for B 6700s. 
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OPERATIONAL GROUP (Type 2) 

This information group contains the kind of information which an operator can affect as 
well as interrogate in order to make operational decisions. 

The Operational Information structure as returned by SYSTEMSTATUS appears as follows: 
Wi thout bi t mask : 



GS : Group 2 Info : 



With bit mask: 



GS : M : GS : Group 2 Info : ... : GS : Group 2 Info : 
\ ~ -- -- 



Lowest Box 
Number 



Highest Box 
Number 



Of those items returned by the type-2 call, only those which have been changed or added 
since the original documentation are listed here. 

TYPE 
WORD FIELD -CAT NAME & MEANING 






1 


1 


1 


2 


1 


3 


1 


4 


1 


5 


1 


6 


1 


7 


1 


8 


1 


9 


1 


10 


1 


1 1 


1 


12 


1 


13 


1 


14 


1 


15 


1 


16 


1 


17 


1 


18 


1 


19 


1 


20 


1 


21 


1 


22 


1 


23 


1 


24 


1 


25 


1 


26 


1 


27 


1 


28 


1 


29 


1 


31 


1 


43 


1 


45 


1 


46 


1 


47 


1 



OPTIONS 

The bits in this word indicate the settings of the run-time options: 

(Not used) 

OPEN 

TERMNATE 

NOCHECK 

LPBDONLY 

AUTORM 

DIAGNOSTICS 

CDONLY 

AUTORECOVERY 

DUPSUPERVISOR 

DUPINTRINSICS 

(Not used) 

AUTODC 

NODUMP 

CPBDONLY 

(Not used) 

CRUNCH 

BACKUPBYJOBNR 

FULLTRANSLATI ON 

NOFETCH 

RESOURCECHECK 

NOSUMMARY 

DIRDEBUG 

CATALOGING 

OKTIMEANDDATE 

NEWPERETRY 

LOGPOSITIONING 

SERIALNUMBER 

ARCHIVING 

CONTROLOLDWFL 

IORANGECHECK 

I OD I AGNOSTICS 

USECATDEFAULT 

CATTEST 

MCPTEST 
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TYPE 
WORD FIELD -CAT NAME &. MEANING 



6 1-2 MIXCOUNT 

The number of jobs and tasks in the mix. 
2 7 I OLAYCHANNELS 

A decaying average of recent overlay I/O time, used in scheduling. 

2 8 I SCHEDCORE 

The amount of memory which is "scheduled"; i.e., the total number of words 
temporarily committed for recently initiated programs. 

29 I SUSPENDEES 

The number of tasks which are suspended. 

30 (Contains a -1, previously IRJOBS) 

31 1-2 NUMBEROFSWAPTASKS 

The number of swap tasks running on the system. 

3 2 I BATCHTASKS 

The number of batch tasks running on the system. 

33 1-1 Memory Priority Factor 

The system's memory priority factor. 

34 1-1 OLAYROWSIZE 

The system's overlay row size. The maximum overlayable item cannot exceed 
OLAYROWSIZE* 30 words. 

3 5 I READYTIME 

The total time accumulated by tasks in the READY queue (since Halt/Load). 

3 6 1-4 PROCNET 

This item and the next are used for scheduling in a B6800 multiprocessor 
(TC) system. PROCNET is calculated once per second for each local 
processor as the total since Halt/Load of three times: processor time spent 
in global tasks plus "true" idle time minus ready time. Zero is reported 
for the GLOBAL box. 

37 R-4 RECENTNET 

This item is a decaying average of incremental values of PROCNET. It may 
be regarded as approximating the time a local processor has recently had 
available to spend on additional local tasks. Its units are clicks per 
second. RECENTNET may be "normalized" by multiplying it by 2.46-6 
(seconds/click); it will then range from about +1 for a completely idle 
processor to -n for a completely busy processor with n tasks always in the 
ready queue. 

3 8 I SCHEDPROC 

SCHEDPROC is used to bias the scheduling algorithm against successively 
placing many new tasks in the same box. It is incremented by 1/3 second 
(in clicks) for each new task, and decayed by .5 each second. 

39 I SWAPSPACESIZE 

The size of the swapspace in words. 

40 1-3 HLUNITNO 

The Halt/Load unit number. 
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On a TC system, each subsystem may have its own Halt/Load units or a unit 
may be shared. When a boxmask is specified, the Halt/Load unit for each 
processor is reported for its local box and the Halt/Load unit for the 
"lead" processor is reported for the Global box. If no boxmask is 
supplied, the "lead" Ha 1 t /Load un i t is returned. 



F- 10 
MARK 3 . 1 



GENERAL MIX INFORMATION (Type 3) 

A general mix request returns a series of mix entries, each of which contains pertinent 

information about a task in the mix. The general format is mix entry, followed by another 

mix entry, followed by another mix entry, etc. Each entry has a size word to facilitate 
indexing to the next entry. 

The structure of the information returned for the general mix call appears as follows: 



GS : GS : General Mix Info : ... : OS : General Mix Info 



The first group-size word (GS) specifies the entire length of all the information returned. 
The second group-size word indicates the length of the first general mix entry. This is 
followed immediately by the general mix information. Subsequent group-size words and 
general mix information structures are repeated for all tasks running on the system. 

Only those general-mix items which have been changed or added since the original 
documentation are listed here. 

WORD FIELD TYPE NAME ft MEANING 



SERIAL (previously STACKNO only) 

45:10 I Stack Number (STACKNO) 

31:16 I Job Number 

15:16 I Task Number 

SWAPSPEX and STACKSTATE 
(previously STACKSTATE only) 

47:1 WASSLICEDF 

The associated swaptask is being or has been forced out of the swapspace 
because of timeslice lapsed or need to enlarge the swapspace. 

46:1 EXPRESSF 

The associated swaptask presently resides in or will be swapped into the 
express portion of the swapspace. 

39:8 I SLICENRF 

The number of times this swaptask has been "sliced" by SWAPPER. The term 
sliced means that the task used its portion of processor or elapsed time 
and may have been forcibly swapped out of the swapspace to give other 
swaptasks usage of the system's resources. 

31:5 I LOCATIONF 

SWAPPER uses this field as a state variable to control the swaptasks. 

Value Name ft Meaning 

NEWV 

A new swaptask, not yet set up. 

1 INCOREV 
Able to run. 

2 QUIESCINGV 

Swapout requested; waiting because of 10 in progress, 
dependent tasks in core, etc. 

3 WRITEREQV 

Swapout is requested and pending SWAPPER attention. 

4 WRITEV 

Swapout write is being considered or performed. 

5 ONDISKV 
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Task is on disk until demand (interactive). 

6 READREQUV 

Swap in is requested and pending SWAPPER attention. 

7 NEEDCOREV 

Needs central memory. 

8 READINV 

Swap in read being set up or performed. 

9 DONEV 

Swaptask is being terminated. 

10 OUTOFDISKV 

Needs swapdisk for swapout (exception case). 

1 1 NEEDPARENTV 

Waiting for antecedent task to be in core. 

12 LINGERINGV 

Swapout requested; waiting to see if task will be resumed 
short ly . 

13 CONSIDERINGV 

Special transition state. 

23:4 I STACKSTATUSF ( STACKSTATE) 

There are three groupings of STACKSTATEs . The first group applies to 
stacks which cannot process. The second group is for process tasks which 
have no need for a processor at the moment. The third group is for tasks 
which presently have a processor or are waiting for an available processor. 

Group 1 — Stacks which cannot process. 

Value Name & Meaning 

NOTUSED 

No stack exists ( SYSTEMSTATUS will never return this value). 

1 BEINGSETUP 

The task is being established by the INITIATE procedure of 
the MCP. 

2 DYING (Formerly 8) 

The task is in the process of termination. 

3 SCHEDULED (Formerly 2) 

The task is in the schedule queue. 

4 SELECTED (Formerly 3) 

The transition state between BEINGSETUP or SCHEDULED and 
task ini t i at i on . 

5 UNEMPLOYED (Formerly 9) 

This stack state only exists for segment dictionary stacks; 
the MCP never assigns a processor to a slack with this 
value . 

Group 2 — Tasks which have no need for a 
processor at the moment. 

6 TOBECONTINUED (Formerly 7) 
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WORD FIELD TYPE NAME & MEANING 



The task is waiting to be resumed after execution of a 
"CALL" or "CONTINUE" statement. 

7 FROZEN (New state) 

This task is a library which has executed a "FREEZE" 
stat ement . 

8 WAITING (Formerly 5) 

The task is waiting (on an event, DM block, DM transaction, 
etc. ) . 

9 HOLDING (Formerly 6) 

The task is waiting for a software interrupt. 

12 ASLEEP (New state) 

The task is waiting according to a special MCP convention. 

Group 3 — Tasks which presently have a processor 
or are waiting for an available 
proces sor . 

13 READYSWAPPED (New state) 

The task is waiting for SWAPPER action (e.g., to be swapped 
in) before it can get a processor. 

14 READYQUEUED (New state) 

The task is in the ready queue, waiting for an available 
processor . 

15 ALIVE (Formerly 4) 

A processor is running this task. 
1 5 : 8 I ORIGINALMTYPEF 

The SUBSPACE value requested by the task: 
Value Meaning 

do not run in subspace. 

1 put data but not code in subspace. 

2 put data in subspace; put code in subspace if code file is 
i n my di rectory. 

3 put both data and code in subspace. 

7:8 I ACTUALMTYPEF 

The actual SUBSPACE assignment made when the task was executed. The values 
are the same as ORIGINALMTYPEF, except that 2 wi 1 1 have been resolved to 1 
or 3 . 

USAGE 
47:1 STKISMCSF 

Indicates that the stack is an MCS . 

46:7 I STKMCSNRF 

The MCS number if the stack is or has been an MCS. If datacom is 
terminated, each active MCS has STKISMCSF reset but retains STKMCSNRF. 

39:7 I QPRIORLIMTF 

The priority limit obtained from the queue from which the task was 
initiated. 
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32:4 I SHARINGSPEC 

Indicates sharing specifications for a library. 
Value Meaning 

PRIVATELIB 

1 SHAREDBYALL 

2 DONTCARE 
28:1 PROGRAMLOCKEDF 

The task may not be DSed if this bit is on. 
27:1 GENDISABLEF 

All software interrupts for this stack are disabled. 
26:1 DOINGSOFTINTF 

The stack is processing a soft interrupt. 
25:2 I PBITSTATEF 

Value Meaning 

Not PRESENCEBITting 

1 Initial PRESENCEBITting 

2 Free PRESENCEBITting 

3 Normal PRESENCEBITting 

23:1 (Not used, previously PERMANENTF) 

21:1 PROCSELECTEDF 

20 : 1 NOMEMF 

The associated stack has been stopped due to insufficient memory resources. 
19:1 DUMPINGF 

The stack is PROGRAMDUMP i n g . 
18:1 SORTTINGF 

The stack has called the sort intrinsic and sorting is in process. 
17:1 UNITATTACHEDF 

16:3 I LIBSTATEF 

Value Meaning 

1 LIBINITBYLINKER 

The library stack was initiated by the MCP's library 
1 inking rout ine . 

2 LIBINITBYUSER 

The library stack was explicitly initiated; e.g., by a RUN 
command . 

3 LIBFROZEN 

The normal state of a usable library stack. It is the only 
state in which programs may be linked to the library stack. 

4 LIBTHAWING 

The library stack has at least one program linked to it, 
but no additional links are being accepted. 

5 LIBRESUMED 

The library stack has no programs linked to it and no links 
are being accepted. 

6 LIBNEVERFROZE 
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This state represents an error condition signifying that a 
library stack which has been initiated by the MCP's library 
linking routine never achieved a LIBFROZEN state. 



13:1 NOHISTORYF 



The MCP uses this bit as a temporary flag to prevent recursive calls of 
STACKHISTORY. 

11:2 I BLOWBY 

Value Meaning 

Normal (no stack overflow) 

1 This is an independent runner; stack overflow is not 
permi 1 1 ed . 

2 Stack overflow has occurred; stack stretch or termination 
pending . 

3 Stack overflow has occurred and stack cannot be stretched; 
task is being terminated. 

8 : 8 I BOXMASKF 

Bit "K" of USAGE is set if this stack is or can be in box "K" . 

0:1 I LOAFING 

GEORGE is operating out of this stack. This bit is used to prevent calling 
GEORGE a second time. 
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SPECIFIC MIX INFORMATION (Type 3) 



the 



When specific mix entries are requested, SYSTEMSTATUS wi 1 1 first load the front of the 
arrav row with the GENERAL MIX INFORMATION for that mix entry, and then append the SPECIFIC 
MIX INFORMATION (refer to GENERAL MIX INFORMATION section for the first portion of 
returned data) . 
The structure of the data returned by the SPECIFIC MIX call appears as follows: 



GS : GS : General Mix Info 



GS 



Specific Mix Info : 



The first group-size (GS) word indicates the entire length of the information returned. 
The second group-size word specifies the length of the general mix information which is 
followed immediately by the general mix data. The third group-size word indicates the 
length of the specific mix information and is followed by the specific mix data. 

Because of variable length items returned by this call, item displacement is defined as 
fol lows : 

X = 1 + [1] 

where [N] is defined to be the contents of word N. 

Graphically the above algorithm appears as follows: 



... : General entry size word : ... : Specific entry size word : .. 
(word 1) (word X) 

Only those specific-mix items which have been changed or added since the original 
documentation are listed here. 

WORD FIELD TYPE NAME ft MEANING 



X+2 



47 


1 


46 


1 


45 


1 


44 


1 


43 


1 


42 


1 


41 


I 


31 


8 



COMPILER INFO 

This word contains information supplied by the compiler 
code file for this task. 

IPCCAPABLEF 

SORTCAPABLEF 

CONTROLPROGRAMF 

DMSCAPABLEF 

NOBADPTRF (not used by MCP) 

CONTROLPROGRAMF 

LIBRARYCAPABLEF 

LANGUAGETYPEF 



that created the 



Value 



Type 






ALGOL 


1 


COBOL 


2 


FORTRAN 


3 


XALGOL 


4 


PL1 


6 


NEWP 


7 


ESPOL 


8 


DCALGOL 


9 


BASIC 


10 


WFL 


11 


VFORTRAN 


12 


VLINKERTYPE 


13 


SFORTRANTYFE 
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254 INTRINSICSLTYPE 
23:8 I MARKLEVELF (e.g. 31) 
9:10 I CYCLENUMBERF (e.g. 240 ) 
X+15 STACK INFO 

This word is used by the MCP in performing necessary work for this task. 



NOTE 



This word has been completely reorganized since the II 9 release 

i£f™«™i£? ?™ V '° US ! y w ke ? 1 , here is now Io cated in word 5 (S 
STACKSTATE) of General Mix Information (Type 3). 



SWAPPER 
SWAPSPEX and 



47:4 I BOXNOF 

This field identifies the memory subsystem in which this stack resides. 

= None assigned (task scheduled or 

swapped out ) . 

1 = Global memory 

n+1 = Local memory for processor "n" where 
n=l ,2,3,4. 

43:1 URSVPWAITINGF 

The task is waiting on a unit RSVP. 
40:1 VISIBLEF 

The task is to be displayed and logged. 
39:1 CANTSUSPENDF 

The task is not to be stopped by the working-set or SUSPENDER mechanism. 
38:1 SUSPF 

The task has been suspended. 
3 5:1 PR I V I LEGEDUSERF 

The task is "privileged". 
34:1 COMPILERF 

The task is a compiler. 
33:1 ACTIVEDBSF 

The stack is an "active" DBS stack. 
31: « M STACKKINDF: the next eight bits 
31:1 MCPSTACKF 

The MCP (DO) segment dictionary stack. 
30:1 DBSF 

A data-base segment dictionary stack. 
29:1 INTRINSICSF 

An intrinsic segment dictionary stack. 
2 8:1 S EGD I CTSTACKF 

A segment dictionary (Dl ) stack. 
27:1 LIBRARYSTACKF 

A 1 i brary stack. 
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26:1 JOBSTACKF 

A job stack, 
25:1 IRINDICATORF 

An MCP independent runner. 
24:1 TASKSTACKF 

A task (processing) stack. 

22:1 VIEWABLEF 

The task variable is stable and can be examined. (This bit is always on 
for tasks reported by SYSTEMSTATUS . ) 

21:1 LOGGABLEF 

Logging to the task's JOBLOG is allowed. 
20:1 STACKPRESENTF 

The stack has been built and is in memory. 

7:7 M PROCF 

Contains a processor mask: bit "i" of the STACKINFO word is on if processor 
"i" can run in this stack. 



: I SWAPJOBF 

The task is a swap task. 

X+25 R STOPPOINT (previously ABORTEDRCW) 

This word contains an RCW, with tag of zero, pointing to the location where 

a fault occurred or where the task was abnormally terminated. The 47:8 

field will contain the fault REASON if a hardware fault has occurred; 
otherwise, it will contain zero. 

X+ 2 7 PATHCONTROL 

45:6 I DESTMCSF 

Contains an MCS number (usually RJE) . 

39:1 DESTISREMOTEF 

Output is to be sent to a remote station (usually RJE). 

38:15 I DESTUNITF 

If this field is empty, output is directed to the SITE printers; otherwise, 
'output will be sent to the remote station designated by this field. This 
field is usually associated with RJE. 

23:1 ORGWANTSSUMMARYF 

The job summary will be generated as a printer backup disk file (used by 
RJE) . 

22:1 ORGWANTSMESSAGEF 

The MCP will send messages to an associated MCS. Th i s feature is used by 
RJE and by CANDE when "SO MESSAGES" has been specified. 

21:6 I ORGMCSF 

Contains the originating MCS number, or 0. 
15:1 ORGISREMOTEF 

The task was originated from a remote station. 
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14:15 I ORGUNITF 



Contains the originating LSN if ORGISREMOTEF is on; otherwise, it is the 
originating peripheral unit number. 

X+2 8 STAT I ON INFO 

3 3:2 I TASKTANKF 

Contains the value of the TANKING attribute which controls output tanking 
for REMOTE files. 

- Not specified 

1 - No tanking 

2 - Synchronous tanking 

3 - Asynchronous tanking 

15:16 I STATIONF 

Contains the value of the STATION attribute. 
X+2 9 OPTION 

This word contains the value of the task's OPTION attribute. 
20:1 PRIVLIBDUMPF 

Causes a dump of any private LIBRARY connected to this task. 
19:1 LIBRARYDUMPF 

Produces a dump for any shared or private LIBRARY connected to this task. 
18:1 SIBDUMPF 

Causes the Structure Information Block (SIB), not the Data Base Stack 
(DBS), to be printed by PROGRAMDUMP . 

17:1 IPCOVERRIDEF 

Pre-III.O IPC-capable code files will be run in subspace only if this 
op t i on is set. 

16:1 PDSDUMPF 

Causes a dump of all ports and signals used by the task. 

15:1 DBSDUMPF 

Causes the Data Base Stack (DBS) and Structure Information Block (SIB) to 
be printed by PROGRAMDUMP. 

14:1 PRIVATETASKF 

Prevents parent tasks from inadvertently being terminated by their 
of f spr i ng tasks . 

13:1 (Not used) 

12:1 NOSUMMARYF 

A job which has normally terminated and has no associated printer backup 
files will not print a job summary. 

11:1 BACKUPPUNCHCLSF 

All punch files will go to backup-disk if this option is set. 

10 1 FILESCLSF 

Causes the File Information Block for each file to be printed by 
PROGRAMDUMP . 

9 : 1 CODECLSF 

Causes the code, segment dictionary, and value arrays to be printed by 
PROGRAMDUMP . 
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8 : 1 ARRAYSCLSF 

Causes arrays to be printed by PROGRAMDUMP. 

7 : 1 BASECLSF 

Causes PROGRAMDUMP to print the base of the stack and the Program 
Information Block (TASK variable). 

6 : 1 BDBASECLSF 

Used to establish a new BD BASE for backup files. 
5 : 1 AUTORMCLSF 

Automatic duplicate file removal option. 
4:1 BACKUPPRINTCLSF 

All printer files to backup-disk. 
3 : 1 (Not used) 

2 : 1 DSEDCLSF 

Program dump on external termination. 
1 : 1 FAULTCLSF 

Program dump on fault termination. 
: 1 LONGCLSF 

No arrays will be segmented. 
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PERIPHERAL INFORMATION (Type 4) 

™i¥tIS'S T ^ TU 5 "'I ° f I ype -r. With " V2 Va i ue •"■«" * h « 255 will c.u.e the ty.te.', 
UNITTABLE to be returned. The structure of the data returned by this call it: ■*■»■- 



: GS : UNITTABLE Info 



The following changes have occurred in the UNITTABLE field definitions: 
WORD FIELD TYPE NAME & MEANING 



N UNIT[N-1] 

41:1 UHLPACK 



The corresponding unit is a Halt/Load unit. (There may be more than one 
Halt /Load unit on a TC system.) 

41:6 I UTRAINID 

If the unit is a train printer, this field contains the train 
ident i f ica t i on . 

40 : 1 UNEWFIRM 

The pack firmware is 2.0 or later. 
3 8:1 UALTQR 

The HPT disk unit is an alternate DFO. 
37:1 UDECIMALF 

The unit requires decimal addressing. 
36:1 UPBUSYABLE 

17:3 I DENSITYF 

If the UNITTYPE is DISK 

= IA-2 

1 = IC-3 

2 = 5N 

3 = IC-4 

4 = IIB-2 

5 = IIB-6 

6 = IIB-4 

If the UNITTYPE is PACK 

= 215 

1 = N215 

2 = 225 

3 = 235 

4 = 206 sequent i al 

5 = 206 int er 1 aced 

6 = 207 

If the UNITTYPE is TAPE 

= 800 bpi NRZ 

1 = 556 bpi NRZ 

2 = 200 bpi NRZ 

3 = 1600 bpi PE 

4 = 6250 bpi GCR 



F- 21 
MARK 3 . 1 



WORD FIELD TYPE NAME & MEANING 



16:2 I ULPKIND 

This field designates the train printer kind: 

= 450/750 lines per minute 

1 = 1100 lines per minute 



F- 22 
MARK 3 . 1 



TIMES AND COUNTS, DCP, IOTRACE, and PROCESSOR INFORMATION (Type 7) 

The Type 7 SYSTEMSTATUS call is used to obtain information pertaining to miscellaneous MCP 
times and counts, DCP and I/O activity, and processor time distributions among visible and 
non-v isible tasks. 

The structures of information returned by the Type 7 call are: 
Wi thou t bit mask : 

: GS : GS : T & C Info : > 



: GS : DCP Info : GS : IOTRACE Info : 



GS Processor Information 



With bit mask : 



GS : M : GS : T&C Info : ... : GS : T&C Info : — > 

\ / \__ / 

Lowest Box Highest Box 

Number Number 

: GS : DCP Info : GS : IOTRACE Info : > 



: GS : Processor Information 



The features of the above structures include the following: 

First: A group-size word (GS) reflects the total amount of information returned. 

Second: If a bit mask is used when calling SYSTEMSTATUS, a bit mask word (M) will be 
returned indicating the boxes for which information has been collected. 

Third: The times and counts information and their associated group-size word is returned. 
Note that the times and counts information for each box has its own group-size 
word . 

Fourth: The DCP information is as previously documented. 

Fifth: The IOTRACE information and its associated group-size word is included provided 

that the IOTRACE mechanism has been previously activated by the Type 8 call. Note 

that the IOTRACE and DCP substructures are the same for both monolithic and 
tightly-coupled systems. 

Sixth: The final entry is new information describing the distribution of processor times 
by Global/Local and visible/non-visible time delivered to users. 

All items returned by the case-7 call are listed in this note, which incorporates D-notes 
from the II. 8 and II. 9 MCP releases. 

Times and Counts Information: 
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Within this section, additional category codes are defined as follows: 

Value Meaning 

4 On a TC system, these processor-related items are reported for local boxes only, 
the GLOBALBOX value being zero. 

5 On a TC system, zero is reported as these items are not accumulated. 

TYPE 
WORD* FIELD -CAT NAME & MEANING 



Group-size word 

1 1-2 I/O time charged to the MCP stack. 

2 1-4 Processor time spent IDLE. 

3 1-4 Number of times a processor became IDLE. 

4 1-4 Processor time spent non-idle in GEORGE. 

5 1-4 Number of times a processor entered GEORGE 

or became non-idle. 

6 1-4 Processor time spent in ANSWER. 

7 1-4 Number of times ANSWER was entered. 

8 1-4 Processor time spent in PRESENCEBIT. 

9 1-4 Number of times PRESENCEBIT was entered. 

10 1-2 Processor time logged for completed visible tasks. 

11 1-2 I/O time logged for completed visible tasks. 

12 1-2 Processor time accumulated by completed non-visible tasks 

and by completed visible tasks after they logged off. 

13 1-2 I/O time accumulated by completed non-visible tasks 

and by completed visible tasks after they logged off. 

14 1-2 Processor time spent in SEARCH. 

15 1-2 Number of times SEARCH was entered. 

16 1-2 Processor time in STACKSEARCH. 

17 1-2 Number of stacks searched in STACKSEARCH. 

18 1-2 Undefined 

19 1-2 Undefined 

20 1-4 TRUEIDLETIME: Time spent idle because of a lack 

of tasks . 

21 1-4 TRUEIDLECOUNT: Number of times TRUEIDLETIME was 

i ncrement ed. 

22 1-4 FALSEIDLETIME: Time spent idle when some stack is 

PBITt ing. 

23 1-4 FALSEIDLECOUNT: Number of times FALSEIDLETIME was 

incremented. 

24 I BATCHPBITTIME: Process time spent handling normal 

PBIT for tasks in batch space. 

25 I BATCHPBITCOUNT: Number of normal PBITs handled 

for tasks in batch space. 

26 1-5 BATCHSEARCHTIME: Processor time spent by other 

processors in ANSWER while a processor was doing 
normal PBIT for a task in batch space. 
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TYPE 
WORD* FIELD -CAT NAME & MEANING 



27 1-5 BATCHSEARCHCOUNT : Number of times BATCHSEARCHTIME 

was incremented. 

28 I INITPBITTIME: Processor time spent handling PBIT 

to make a data or code segment present for the 
first t ime . 

29 I INITPBITCOUNT: Number of initial PBITs handled. 

30 1-5 INITSEARCHTIME: Processor time spent by other 

processors in ANSWER while a processor was doing 
initial PBIT. 

31 1-5 INITSEARCHCOUNT: Number of times INITSEARCHTIME 

was incremented. 

32 I FREEPBITTIME: Processor time spent handling PBIT 

to restore the workingset of a previously 
suspended, recently resumed (batch) task. 

33 I FREEPBITCOUNT: Number of free PBITS handled. 

34 1-5 FREESEARCHTIME: Processor time spent by other 

processors in ANSWER while a processor was doing 
free PBIT. 

3 5 1-5 FREESEARCHCOUNT : Number of times FREESEARCHTIME 

was incremented. 

36 I SWAPPBITTIME: Processor time spent handling normal 

PBIT for a task in swap space. 

3 7 I SWAPPBITCOUNT: Number of normal PBITs handled 

for swap tasks . 

38 1-5 SWAPSEARCHTIME: Processor time spent by other 

processors in ANSWER while a processor was doing 
normal PBIT for a swap task. 

39 1-5 SWAPSEARCHCOUNT: Number of times SWAPSEARCHTIME 

was incremented. 

* Word index is relative to start of group 

DCP Information 

The DCP information is as documented in II. 8 MCP note D1781, incorporated here. 

If the datacom subsystem is not running (the tables are not in storage), the group is null 
(its group-size word contains 1). If the datacom subsystem is running, there are four 
words for each DCP number from through MAXDCPS , arranged in the following order: 

Sum of character counts in WRITE and READ-ONCE-ONLY messages. 

1 Count of all messages sent to the DCP. 

2 Sum of character counts in enable-input and read-once messages. 

3 Count of all messages received from the DCP. 

The first pair of words pertains to output from DCWRITE to the DCP; the second pertains to 
input from the DCP to DCCONTROL. Note that the character counts in the messages do not 
necessarily reflect the information actually transmitted/received by the DCP. 

IOTRACE Information 

The IOTRACE information is as documented in II. 8 MCP note D1781, incorporated here, with 
changes noted for the former USER word. 

The first three words in the IOTRACE group are fixed, as follows: 

WORD* FIELD TYPE NAME & MEANING 



Group-size word 

(3 if IO trace is inactive) 
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1 IOTRACECOUNT 

total IO finishes since trace activated 

2 47-8 Number of words in an IOTRACE block 
39^20 Number of double-words in IOTRACE array 
(9-20 N=number of IOTRACE blocks in this group 

Then follow N IOTRACE blocks, describing the N most recent I/O operations completed. Each 
block comprises six words, arranged as follows: 

TIMECELL of I/O Control Block ( IOCB) 

1 CLOCK value at I/O finish: [0]+[l] is I/O time. 

2 IOSTUFF word of IOCB £ MPX ID [19:4] (see below) 

3 I/O (hardware) result descriptor 

4 I/O area descriptor 

5 I/O control word 

The I/O control word, area descriptor and result descriptor are documented in the hardware 
handbook and elsewhere. The IOSTUFF word layout is defined in the MCP and is subject to 
change from release to release; it was formerly called the USER word. For the III.l 
release the IOSTUFF word has assigned a new field for the owner's stack number. The name 
of the field is now OWNERSTKNOF (previously IDNOF) and has been mo v e d If rom 4 7 : 1 to 45 : 1(K 
The MPX identification field (MPXIDF - 19:4) and unit number field (UNITNUMBERF - 31:8) are 
still in the same locations as in previous releases. 

Activation and Use of IOTRACE 

The IOTRACE facility is controlled by a Type 8 call on SYSTEMSTATUS as documented 
previously in II. 8 MCP note D1781. The array parameter is not used in this call. If the 
third parameter is zero or negative, the feature is deactivated (if active). Otherwise the 
third parameter specifies the number of IOTRACE blocks the MCP should a locate (the number 
of I/O finishes to be remembered). If sufficient storage is unavailable IOTRACE is 
deactivated and SYSTEMSTATUS returns an error flag containing 37. If the storage is 
available, IOTRACE is activated and IOTRACECOUNT is set to zero. 7he upper bound for 
IOTRACE allocation is 2500 blocks; larger values will be truncated. 

The number N of IOTRACE blocks returned in a Type 7 call is the minimum of: 

The number of IOTRACE blocks allocated by the MCP (max 2500), 
the capacity of the user's array parameter, and 
the difference between IOTRACECOUNT arid the third (V2) 
parameter of the Type 7 call. 

Thus if the sampling program passes IOTRACECOUNT from one Type 7 call as the V2 parameter 
in the next call, it will be given all the I/O-finish information since the previous call, 
unless too many I/O operations have been finished in the meanwhile, or unless his array is 
too short The program can detect loss of data by comparing the incremental value ot 
IOTRACECOUNT with the number N of blocks returned. The IOTRACE block allocation and the 
sampling rate may be varied to achieve the desired amount of retained/lost information 
The user may pass a very large positive number as V2 , in which case no IOTRACE blocks will 
be returned, since IOTRACECOUNT-V2 will always be negative. 

Processor Information: 

This group returns information about each processor on the system, for both monolithic and 
TC systems. For TC systems, information is returned for both Global- and Local-task 
ut i 1 i za t i on . 

These accumulators record processor time allocated to tasks, which is all the time not 
accumulated as GEORGE, IDLE, PRESENCEBIT or ANSWER time. Therefore all these accumulators 
should add to the total elapsed time for all the processors on the f^tem (Since there 
are timing windows between updating the accumulators and sampling with SYSTEMSTATUS, there 
will be small discrepancies in the turns reported.) Note that if the PRESENCEBITCHARGED and 
OVERHEADCHARGED $-options are SET in an MCP compilation, then the PRESENCEBIT and ANSWfcK 
times, respectively, are included in the task processor times as well as in their separate 
accumul at or s . 

The processor information is arranged in the following order. 

Group-size word for all processor information 

Processor Mask ,, ,_ 

Bit "i" is 1 if processor " i " is in use on the system. In the following subgroups, 

data are reported for each processor in increasing order of processor id number. 
Note that "i" is a processer ID, not a box number. 

Group-size word for global processing 

For each processor, there follow two words: the time spent by that processor in 
non-visible global tasks, followed by the time spent in visible global tasks. These 
data are present for all systems. 

Group-size word for local processing 



MARK 3.1 F 26 



This word and the following are present only for a tightly-coupled system. For each 

processor, there follow two words: the time spent in non-visible local tasks 
followed by the time spent in visible local tasks. 

"Visible" means displayed and logged. "Non-visible" tasks include some independent 

runners, and tasks that are terminating and have already started to log off. 
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MIX AND TASK DATA (Type 9) 

The structure and protocol for Type 9 are unchanged from that previously documented in II. 8 
MCP note D1781; that note is incorporated here. The data returned are subject to all the 
changes noted above for Type 3. 

The Type 9 SYSTEMSTATUS calls retrieves general and specific mix data more efficiently and 
more conveniently than possible with type 3. It has the following advantages: 

Data are returned about non-visible as well as visible stacks. 

Fewer calls are required to get a complete mix survey. 

A convenient fixed array size suffices for any mix. 

The general group for each task is returned only once, not twice. 

The data returned about each stack are the same general and specific groups defined for 
type 3, but the groups are arranged differently. 

SYSTEMSTATUS scans all stacks in the system beginning at the stack number specified in the 
third (V2) parameter. It returns data for all process stacks until the maximum stack 
number is reached or there is insufficient room in the array for another entry. In the 
latter case, the stack number for a continuation call is returned in the array. V2 should 
be zero for the first call in a given sample. 

The structure of the array is: 

Word 0: Total number of words returned. 

Word 1: Next stack number (for continuation-call third parameter), or zero (if no 
continuation required). 

Then follow data about as many stacks as required or will fit: each stack is represented by 
a general group and a specific group, which contain the same data as returned by type 3. 
The specific group always follows the general group for the same stack; continuation breaks 
occur between stacks, not between the two groups for one stack. 

The combined data about each stack vary in length, depending upon the length of task and 
compiler names, usercodes, etc. Typically, about 45 to SO words suffice. To save time, 
SYSTEMSTATUS estimates whether another entry will fit before processing the stack in 
question; if an entry is unexpectedly long and does not fit, the partial entry is discarded 
and prior whole entries are returned. A fault error will be reported by SYSTEMSTATUS only 
if a single entry to be returned will not fit (or otherwise causes a fault). 

Information is returned for all process stacks in a stable ("viewable") state, including 
both scheduled and active tasks; stacks in transition cannot be shown. In addition to 
visible stacks (those that appear in the CONTROLLER m i x picture and in the SYSTEM/SUMLOG) , 
the type 9 call shows MCP independent runners. Visible stacks are marked by a 1 in 
STACKTNFO[snr] .VISIBLEF; this is seen in the III. I MCP as bit 40 of word 15 in the task 
group (relative to word 0, the group length). 
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SWAPPER STATISTICS (Type 10) 

The Type 10 SYSTEMSTATUS call is used to obtain information pertaining to SWAPPER and 
swaptasks. It was previously documented in II. 9 MCP note D214S, which is incorporated here 
with appropriate changes. The principal differences are in the LOCATION values, the 
dimensions of the SWAPSTAT array (SWAPCOUNTSIZE) , and some field layouts in the first of 
the 3 words returned for each swaptask. 

The displacement convention used to get to the swaptask information is as follows: 



WORD 



1 
2 

3 

4 



:Length of : 
: SWAPSTAT : 


(word 


3) 


i FIELD 


TYPE 
-CAT 




I 




I 




I 



Swaptask 
i nf orma t i on : 



(word X) 

NAME & MEANING 

Group size word 

The value of CLOCK when this call was made 

The number of swaptasks currently in the 
sy s t em. 

Length+1 of the SWAPSTAT array, or 1 i f 
SWAPPER has not been used since Halt/Load. 



SWAPSTAT array 

array contains a vector of 18 time accumulators, four miscellaneous 
and a matrix of 18x18 transition counters. The vector and matrix are indexed 



The SWAPSTAT 
a c c umu 1 a t o r s , 
by a composite SWAPPER state: 
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NEWV 

A new swaptask, not yet set up. 

1 INCOREV 

Able to run (not EXPRESS). 

2 QUIESCINGV 

Swapout requested; waiting because of I/O in 
progress, dependent tasks in core, etc. 

3 WRITEREQV 

Swapout is requested; pending SWAPPER attention. 

4 WRITEV 

Swapout write is being considered or performed. 

5 ONDISKV 

Task is on disk until demand (interactive). 

6 READREQUV 

Swapin is requested; pending SWAPPER attention. 

7 NEEDCOREV 

Needs central memory (not EXPRESS nor SLICED). 

8 READINV 

Swapin read being set up or performed. 

9 DONEV 

Swaptask is being terminated. 

10 OUTOFDISKV 

Needs swapdisk for swapout (exception case). 
1 1 NEEDPARENTV 

Waiting for antecedent task to be in core. 

12 LINGERINGV 

Swapout requested; waiting (to see 
if task will be resumed shortly. 

13 CONSIDERINGV 

Special transition state. 

14 INCOREEXPX 

Able to run as an EXPRESS task. 

1 5 NEEDCOREEXPX 

Needs memory as an EXPRESS task. 

16 NEEDCORESLIX 

Needs memory after being SLICED out. 

1 7 NEEDCORES L I EXPX 
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STATE NAME & MEANING 



Needs memory as an EXPRESS task SLICED to grow 

irough 13 are the LOCATION values that control 
igh 17 are derived states. 

The four miscellaneous accumulators in SWAPSTATE have defined indices 18 through 21: 



The indices through 13 are the LOCATION values that control SWAPPER as a state processor- 
indices 14 through 17 are derived states. 



F- 3 1 
MARK 3 . 1 



WORD FIELD TYPE NAME & MEANING 



4+18 I SWAPTIMESX 

Elapsed time accumulator for all swaptasks 
4+19 I SWAPQOOUNTX 

Number of messages removed from SWAPQ 
4+20 I SWAPREADX 

Number of SWAPPER reads of subspaces 
4+21 I SWAPWRITEX 

Number of SWAPPER writes of subspaces 

4+22 I Transition count matrix 

Let A be the array parameter to SYSTEMSTATUS . Then, the following is the amount of time 
swaptasks have spent in state I, not including the current contribution of any task now in 
thai: state: 

A[4+I] 
The following is the number of transitions from state I to state J: 

A[4+22+I+J*18J 
The following is the total elapsed time of all swaptasks, in clocks: 

A[4+18]+A[2]»A[1] 

After the transition matrix follows a sequence of 3-word entries, one for each swaptask in 
the mix. For K=0, 1 . . . ,A[2]-1 , let X=3+A[3]+3*K. Then the data returned are: 
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WORD FIELD TYPE NAME & MEANING 
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46 


: 1 




45 


: 1 




31 


: 5 


I 


23 


:4 


I 


15: 


: 16 


I 


47 : 


8 


I 


39: 


10 


I 


29: 


10 


I 



47:1 Task was time sliced the last time 

it was swapped out. 

Task is an EXPRESS task. 

Dl stack and code are in the subspace. 

LOCATION (state) index. 

Box number of swap task. 

Mix number of the swap task. 

X+ 1 47:8 I Contains the number of additional slots 
needed . 

Contains the current length of the subspace 
in slots. 

Contains the slot index+1 where the subspace 
begins in the swapspace, or zero if no 
memory is allocated for this task. 

19:20 I Contains the swapdisk address for the subspace, 
or zero if no disk is allocated for this task. 
[19:10] is the disk row index. 
[9:10] is the slot index within that row 
(Disk slot 0,0 is never allocated; it holds the 
swapper parameters.) 

X+2 47:5 I Contains the composite state index 

(0 through 17) of the state last entered by 
this swap task . 

42:43 I Contains the time (CLOCK value) when the task 
entered that state. 

The swaptask is in state I=A[X+2] . [47 : 5] . The length of time it has been in this state is 
A [ • ] _A [ X + 2 ] • f 42 : 4 3] - This value may be added to A[4fl] to accumulate the total time 
swaptasks have spent in this state. 
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The organization of the SYSTEMSTATUS array is illustrated by the figure that follows. 

S=18 is the number of composite swapstates. 

T=S+4 is the number of accumulators before the transition matrix. 
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3 4 



0+4 
1+4 



S-l+4 



18+4 
19+4 



20+4 
21+4 



T+0+4 



T+l+4 



T+S-l+4 



T+S+0+4 

T+S+l+4 



N-l-S+4 



N-l-1+4 

N+3 
N+3+1 
N+3+2 

N+6 

N+6+1 



1 ength of array = M 

c 1 ock 

number of swaptasks 

length+1 of swaps'tat array = N (= S*(S+l) + 5), or 1 if none 

time in state 

t ime in state 1 

time info 



t ime in state S- 1 

total time in swap tasks - A[1]*A[2] 

number of swapq messages 

swapper reads 

swapper writes 

transitions from state 

transitions from state 1 



transitions from state S-l 
transitions from state 
transitions from state 1 



transitions to state 



transitions to state 1 



transitions from state 



transitions from state S-l 



transitions to state S-l 



info for 1st swap task 



info for 2nd swap task 



S 

w 

A 
P 
S 
T 
A 
T 

A 
R 
R 
A 
Y 



M-3 
M-2 
M-l 



info for last swap task 
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SWAPPER Parameter Information (Type 11) 

Type 11 is new to the III.l release; it returns SWAPPER parameters. 

The structure of the information returned by the Type 11 SYSTEMSTATUS call is: 



: GS : M : OS : SWAPPER Parameters : ... : OS : SWAPPER Parameters : 

_ - ^ ^ ^ 

Lowest Box Highest Box 

Number Number 

Type 11 is not affected by the bitmask in VI; it returns data from all boxes in which 

SWAPPER is active. M is a bitmask of these boxes. 

WORD FIELD TYPE NAME &. MEANING 



Group-size word 

1 I SWAPCOREMAX in words 

2 R MINTIMESLICE in seconds 

3 I MAXSLICENR 

4 R RATIO 

5 I MAXGORE in words 

6 I EXPRESERVE in words 

7 I EXPMAXCORE in words 

8 I PRIORITYBIAS 0-99 

9 I UTILIZATIONS I AS 0-99 

10 R EXPRESSMAXTIME in seconds 

1 1 R IOBIAS 

12 R MEMORYBIAS 
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SUSPENDER Information (Type 14) 

A SYSTEMSTATUS call of Type 14 will return SUSPENDER information. It is new to the III 1 
release, and is subject to change with the needs of SYSTEM/ SUS PENDER . All these items are 
accessible through other SYSTEMSTATUS calls (types 7, 2 and 1) 
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GETSPACE Statistics (Case 15) 



A temporary Case 15 has been added to accumulate statistics about GETSPACE usage. It will 
be removed in a subsequent release. 



